酒店预订管理系统论文(8)

当数据提交后，将执行checkuser.asp，把管理员的信息保存在Sesstion变量中，然后把页面转向到Login.asp中，当再次执行Left.asp时，程序将接受用户信息，进行身份验证。checkuser.asp代码如下： <%

Dim UID,PSWD

' 取输入的用户名和密码 UID= Request.Form(\PSWD= Request.Form(\' 把用户名和密码放入Session Session(\Session(\Response.Redirect(\

5.3.2 公告信息管理模块设计

公告信息管理模块实现的功能如下： ? 添加新的公告记录 ? 修改公告记录 ? 删除公告记录

只有管理用户才有权限进入公告信息管理模块，在Adminstrationgdvh.asp中，单击“新闻管理”超级链接，可以打开新闻管理页面newsmod.asp。如果存在公告记录，则在表格的下面将显示“添加公告”，“全选”，“清空”和“删除”按钮。修改和添加的实现是有newsmod.asp实现的，newsmod.asp根据传过来的参数action来执行当前要求的动作，当参数action=add时，表示添加记录；当参数action=update时，表示修改记录。

31

酒店预订管理系统 5.3.3 商品管理模块设计

商品管理模块设计包括商品类别管理模块的设计和商品管理模块的设计 (1) 商品类别管理模块实现的功能如下： ? 添加新的商品类别记录 ? 修改类别记录 ? 删除商品类别记录

只有管理用户才有权限进入商品类别管理模块，在Adminstrationgdvh.asp中，单击“类别管理”超级链接，可以打开类别管理页面productType.asp。 为了方便管理类别，productType.asp以表格的形式显示商品类别名称，并在后面有修改链接和删除复选框。修改，添加，删除商品类别的网页都是productType.asp，URL参数Oper的值用来控制，update为修改，delete为删除，add为添加。

(2) 管理员可以对商品信息进行管理，商品管理模块实现的功能如下： ? 添加商品 ? 修改商品信息 ? 删除商品

在Adminstrationgdvh.asp中，单击“商品列表”超级链接，将打开productList.asp。它的功能是按商品类别分页显示商品列表，并提供商品管理的界面。

5.3.4 订单管理模块设计

系统用户都可以对订单进行管理，注册用户提交的订单必须经过处理才能生效。订单管理模块包含以下功能： ? 查看订单

? 处理订单（即改变订单状况）

在Adminstrationgdvh.asp中，单击“订单管理”下面的超级链接，可以查看订单信息。管理订单分4中情况：未处理订单，已处理订单，已发货订单，已确认订单。订单管理页面为OrderDo.asp文件，根据URL参数flag确定显示页面，代码如下： <%If iflag=1 Then%> 未处理订单

<%ElseIf iflag=2 Then%> 正在处理订单

<%ElseIf iflag=3 Then%> 已经发货订单

32

酒店预订管理系统 <%ElseIf iflag=4 Then%> 已经确认订单 <%End If%>

系统管理员对用户提交的订单进行操作，表Basket中字段AdminChecked表示订单的状态。AdminChecked等于0表示用户尚未确认订购，等于1表示用户提交订购单，等于2表示管理员已经处理里订购单，等于3表示已经发货，等于4表示货款两结，等于5表示管理员删除订购单。实现订单处理的网页是OrderCheck.asp，它可以更改订购单的状态值，URL参数iflag的值用来控制,当iflag=5时，则删除指定的记录，否则只需要更改表Basket中的AdminChecked字段的值，更改状态后显示提示更改成功页面后，马上转向上一级页面。

5.3.5 会员管理模块设计

会员管理系统如下图所示：

图5.13 会员管理系统页面

管理员有权限修改删除会员的资料，修改和删除的代码如下： 首先是修改的代码： <%

if Request(\

if Request(\ response.write

\密码、

33

确认密码不同

酒店预订管理系统 href='Javascript:window.history.go(-1)'>返回\

response.End end if

modifyPassword=1 end if

Set cmdTemp = Server.CreateObject(\ Set InsertCursor = Server.CreateObject(\

cmdTemp.CommandText = \ cmdTemp.CommandType = 1

Set cmdTemp.ActiveConnection = conn InsertCursor.Open cmdTemp, , 1, 3

InsertCursor(\ InsertCursor(\ InsertCursor(\

InsertCursor(\if modifyPassword=1 then

InsertCursor(\end if

InsertCursor(\ InsertCursor(\ InsertCursor(\ InsertCursor(\ InsertCursor(\ InsertCursor(\ InsertCursor.Update InsertCursor.close conn.close

set InsertCursor=nothing set conn=nothing %>

会员的删除其代码如下：

34

酒店预订管理系统 <% dim intId dim sql

intId=Request(\

sql=\conn.execute (sql) %>

35