查看: 43|回复: 4

[求模板] 求预约程序

[复制链接]
贝利 发表于 2020-7-3 18:41:46 来自手机 | 显示全部楼层 |阅读模式
各位老师,有预约程序类的模板吗?
xuanxiao 发表于 2020-7-4 15:26:14 | 显示全部楼层
预约什么?有更具体的需求嘛?
 楼主| 贝利 发表于 2020-7-5 06:57:19 | 显示全部楼层
谢谢管理员,我编写了,红色字代码不弹出窗口,什么原因?

思路是预约信息(时间和预约人)提交后,
先查询库里有没有和时间重复的,如果有就弹出窗口,重新录入
如果没有,再查询库里有没有重名的,如果有就弹出窗口,重新录入
如果都没有,就把提交信息保存到数据库里。

<%
riqi=Replace(Request.Form("riqi"),"'","''")
lifashi=Replace(Request.Form("lifashi"),"'","''")
shijianduan=Replace(Request.Form("shijianduan"),"'","''")
username=Session("username")
address3 = request.servervariables("REMOTE_ADDR")      
date2=now()
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("ip.mdb")
   set rs = conn.execute("select * from ip where riqi=#"&riqi&"#  and shijianduan like '%"&shijianduan&"%' and lifashi like '%"&lifashi&"%'")
    if not rs.eof then
        Response.Write "<script>alert('该时间段已被预约!请约其他时间段!');window.window.location.href='main.asp';</script>"
                rs.close:set rs = nothing
else
set rs1 = conn.execute("select * from ip where riqi=#"&riqi&"#  and username like '%"&username&"%' and username not like '星辉' and username not like '戈松'")
    if not rs1.eof then
        Response.Write "<script>alert('一天只能预约一次!请先取消今天的预约');window.window.location.href='main.asp';</script>"
                rs1.close:set rs1 = nothing
        else       
        sql="insert into ip (address3,date2,shijianduan,lifashi,riqi,username,mobile,bumen)values('"&address3&"','"&date2&"','"&shijianduan&"','"&lifashi&"','"&riqi&"','"&Session("username")&"','"&session("mobile")&"','"&session("bumen")&"')"
        conn.execute sql
        conn.close
End If
response.Redirect("main.asp")
rs.close:set rs = nothing
conn.Close:set conn = nothing
End If
%>
xuanxiao 发表于 2020-7-12 17:56:41 | 显示全部楼层
  1.   Response.Write "<script>alert('一天只能预约一次!请先取消今天的预约');window.location.href='main.asp';</script>"
复制代码


正确写法
 楼主| 贝利 发表于 2020-7-13 07:39:45 来自手机 | 显示全部楼层
谢谢老师,我试了一下,不是这个原因。您看第一个条件语句我也是这样写的,能正常运行。并且我把这两个弹出语句换个位置,还是前一个能弹出,后一个不能弹出。我觉得原因是if语句嵌套的不对。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号