图8 在线订房管理页面设计效果
在线订房管理页面中要求输入的信息必须是真实有效的，系统将对输入的Email地址进行判断、同时还要判断到达时间与离开时间是否过期，代码如下：
<%
if month(date())<10 then '如果当前月份小于10则在当前月份前面加0
mon=0&month(date())
else
mon=month(date()) '获取当前系统月份
end if
if day(date())<10 then '如果当前日期小于10则在当前日期前面加0
da=0&day(date())
else
da=day(date()) '获取当前系统日期
end if
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from dd where time='"&date()&"'"
rs2.open sql2,conn,1,3
if not rs2.eof then
t=year(date)*1000000000+month(date())*10000000+day(date())*100000+rs2.recordcount+1
else
t=year(date)*1000000000+month(date())*10000000+day(date())*100000+1
end if
if request("post")<>"" then '判断是否接收表单值
call writ
end if
function writ
Email=request("email")
if request("name")="" or request("danwei")="" or request("sex")="" or request("email")="" or request("num")="" or request("guoji")="" or request("tel")="" or request("zhengjian")="" or request("shenfen")="" then
response.Write("<script language=javascript>alert('请把内容填写完整');location='javascript:history.go(-1)'</script>") '判断输入的Email格式是否正确
elseIf Instr(Email, "@") = 0 Or Right(Email, 1) = "@" Or Left(Email, 1) = "@" Then
response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您的邮件地址是否正确！');" & "history.back()" & "</script>"
Response.End
else
mm=request("year")&"-"&request("month")&"-"&request("day") '获得到达时间
nn=request("year1")&"-"&request("month1")&"-"&request("day1") '获得离开时间
if datediff("d",mm,date())>0 then '判断达到日期和当前日期是否冲突
response.Write("<script>alert('日期已过');location='javascript:history.go(-1)'</script>")
response.end
end if
if datediff("d",mm,nn)<0 then
response.Write("<script>alert('开始日期和结束日期填写有误');location='javascript:history.go(-1)'</script>")
response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from dd"
rs.open sql,conn,1,3
rs.addnew '通过addnew()方法添加在线订房详细信息
rs("name")=request("name") '添加在线订房人姓名
rs("sex")=request("sex")
rs("age")=request("age")
rs("shenfen")=request("shenfen")
rs("zhengjian")=request("zhengjian")
rs("guoji")=request("guoji")
rs("danwei")=request("danwei")
rs("dtime")=mm
rs("ltime")=nn
rs("num")=request("num")
rs("email")=request("email")
rs("tel")=request("tel")
rs("room")=request("room")
rs("beizhu")=request("beizhu")
rs("bianhao")=request("t")
rs("time")=date() '添加获取当前的日期和时间
rs.update
rs.close
response.Write("<script language=javascript>alert('提交成功');location='dingdan.asp'</script>")
end if
end function
%>
在线订房管理页面的运行结果如图9所示。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>