网上客房预订系统(ASP+Access+系统功能结构图+文件架构图+源代码) 第8页-课程设计

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

图13 后台登录模块设计效果

后台登录页面所涉及的HTML表单主要元素如表3所示。

表3 后台登录页面中涉及的HTML表单元素

名称	类型	含义	重要属性
form1	form	表单	method="post" action="inc/check.asp?action=login"
verifycode2	hidden	隐藏域	value="<%=session("verifycode")%>"
Submit	image	图像区域	value="提交" src="images/12_10.gif"

后台登录页面所涉及到的程序代码如下：

dim verifycode,verifycode2

verifycode=trim(Request.Form("verifycode")) '接收验证码

verifycode2=trim(Request.Form("verifycode2"))

if verifycode<>verifycode2 then '判断输入的验证码与随机产生的验证码是否一致

response.write"<SCRIPT language=JavaScript>alert('您输入的验证码不正确。');"

response.write"location.href='../index.asp'</SCRIPT>"

else

session("verifycode")="" '清空验证码

'判断是否接收表单值

admin_name=request("admin_name") '接收用户名

admin_pass=request("admin_pass") '接收用户密码

set rs=server.createobject("adodb.recordset")

sql="select * from admin where admin_name='"&admin_name&"' and admin_pass='"&admin_pass&"'"

rs.open sql,conn,1,3

if rs.eof then

对不起，您输入的用户名、密码或验证码有误，请重新输入，谢谢！

<br><br>本软件建议您使用IE6.0以上版本，分辨率：1024*768<br><br>

否则一切后果与本软件无关，特此声明！在此<a href=../index.asp>返回</a></font>"

else

session("admin_name")=request("admin_name") '创建session("admin_name")阶段变量

response.redirect "../manage.asp" '跳转到指定的页面

end if

rs.close '关闭已打开的记录集

set rs=nothing

conn.close

set conn=nothing '将不用的对象释放掉

end if

管理首页/退出模块主要用于退出后台管理系统，并将Session变量清空，代码如下：

session("admin_name")="" '将Session变量清空

response.redirect "../index.asp"

网站管理模块主要包括更改初始信息、查看服务器信息2部分。

更改初始信息模块主要用于修改用户名、密码、公司名称。更改初始信息模块的设计效果如图14所示。

图14 更改初始信息模块设计效果

更改初始信息页面所涉及到的程序代码如下