基于ASP酒店客房管理系统的设计与实现

五、主要模块介绍

（一）、管理员登录

管理员登录界面，需要输入正确的管理员名、密码、验证码，可以根据管理员名判断管理员的权限。

session("power")=rs("power")‘保存用户权限

‘用于管理员权限的判断

<%

if session("power")=1 then

                 response.Write("你是超级用户！")

            else

                  response.Write("你是一般用户！")

            end if

                  %>

（二）、管理

主程序也是程序控制的核心，操作权限、程序功能调用等都要通过管理主程序实现。

（三）、修改密码

此功能只有超级管理员具有，根据登陆用户是否超级管理员给出相应的权限，普通管

理员不具有这些功能，超级管理员具有添加、修改、删除管理员权限。如下图就是一般用户点击修改后的页面。

（四）、客户资料

根据客户提供的订单号查询客户的信息，为防止证客户忘记订单号，可以输入客户身份证号查询订单号，可以查询客户在此订单号下的定房信息，不分是那种管理员都具有这个功能。

（五）、退房

根据客户提供的房间号给予退房，为防止出错，在此功能里显示客户基本信息，用以确定，如下图：

此功能里可以实现自动算账。基本代码如下：

<%         dim x,y,z

           dtime=rs("dtime")‘订房时间

y_dtime=int(year(dtime))

           m_dtime=int(month(dtime))

           d_dtime=int(day(dtime))

           ntime=now()‘退房时间即当前时间

           y_ntime=int(year(ntime))

           m_ntime=int(month(ntime))

           d_ntime=int(day(ntime))

           x=(y_ntime-y_dtime)

           y=(m_ntime-m_dtime)

           z=(d_ntime-d_dtime)

           if x>0 then

           tim=x*365+y*30+z

           end if

           if x=0 then

           tim=y*30+z

           end if

           if tim=0 then‘如果未满一天算做一天

           tim=1

           end if

           response.Write tim

           response.Write "天"

           response.Write "*"

           response.Write  pric

           response.Write "元"

           response.Write "="

           response.Write  tim*pric‘计算

           response.Write "元"

               %>

（六）、客房资料

列出所有房间分类，在此可以修改此类房间，查看此类房间详情，并订房，创建此类房间号，普通管理员不具有客房修改、创建功能。为了便于客户管理，每个客户产生一订单号。

<%        ‘根据服务器时间来生成定单号保证了不会有同样的定单号存在

tim=year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())

response.Write(tim)

%>

为了防出现某一个号房间被设置成不同的房间类型使用以下代码判断

<%

fanghao2=request.Form("fanghao2")

roomlei=request.Form("hiddenField")

if fanghao2="" then

response.Redirect("chuanjinafj.asp")

end if

sql1="select * from fj where roomname=''"&fanghao2&"''"

set rs1=conn.execute(sql1)

if  not rs1.eof then‘判断是否存在

response.Redirect("chuanjinafj.asp")‘数据库中有这种房间返回chuanjinafj.asp

else

sql2="insert into fj (roomlei,roomname) values("&roomlei&",''"&fanghao2&"'')"

conn.execute(sql2)‘创建插入数据库

conn.close

end if

conn.close

%>

为了防止出现某一类房间数设置时大于此类房间总数使用以下代码判断

<%

i=1

id=request("id")

sqlchk="select * from [fj] where roomlei="&id

set chkrs=conn.execute(sqlchk)

do while not chkrs.eof

i=i+1

chkrs.movenext

loop

sql1="select * from room where id="&id

set rs1=conn.execute(sql1)

x=int(trim(rs1("totnum")))

y=i

if y>x then  ‘被此类房间被设置的房间数总数

Response.Write("<script>alert(""此类房已全部被设置！"");location.href=""room.asp"";</script>")

else

%>

当管理员点击详情时列出此类房的所以房间可以根据客户要求确定订房如下图：

 

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167