3.3 程序设计
管理员在进入网上购物系统主页后点击“管理员”按钮就会进入管理员登陆界面。
只有管理员才有权限进入后台修改数据库,其部分代码如下:
Session("ShopAdmin")=""
Session("INIT")=""
Dim myconn
msg=""
ShopOpenDatabase myconn
on error resume next
If Request("Submit")<>"" Then
SQL = "SELECt * FROM tblUser WHERe fldUserName=“" & Request("UserName")&"“ANDfldPassword=“"&Request("Password")& "“"
Set rs = myconn.Execute(SQL)
if err.number>0 then
msg=Session("Openerror")
else
If Not rs.EOF Then
Session("ShopAdmin") = rs("fldUserName")
LogUser Session("ShopAdmin"), "in", myconn
Shopclosedatabase myconn
response.redirect "shopadmin1.asp"
Else