毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

网上客房预订系统(ASP+Access+系统功能结构图+文件架构图+源代码) 第5页

更新时间:2008-10-26:  来源:毕业论文

网上客房预订系统

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]  ... 下一页  >> 

网上客房预订系统(ASP+Access+系统功能结构图+文件架构图+源代码) 第5页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。