说明 对应文件 1 网站导航 主要用于显示网站的标题及为用户提供前台功能导航 index.asp 2 公告栏 主要用于展示最新添加的本地景点 open.asp 3 后台登录入口 管理员可以通过该入口登录后台 index.asp 4 展示区 用于展示相关功能的运行结果 index.asp 4.2 网站导航设计
导航是网站设计不可缺少的基础元素之一，它不仅是信息结构的基础分类，也是浏览者的网站路标。在此网站导航主要包括旗帜广告条、功能分类导航2部分。设计完成的网站导航页面的设计效果如图5所示。
图5 网站导航页面设计效果
1．功能分类导航条
用户可以通过功能分类导航条查看相应类别的信息，功能分类导航条主要通过传递参数来实现超链接。关键程序代码如下：
宾馆简介 '通过传递参数Typeid实现超链接功能
地理位置 会展中心 餐饮美食 商务中心 其他 4.3 宾馆简介管理模块设计
宾馆简介管理模块的主要功能是介绍宾馆地理位置、室内设施、宾馆大小等相关详细信息介绍。宾馆简介页面的设计效果如图6所示。
图6 宾馆简介页面设计效果
宾馆简介页面，主要是根据传递的参数（本例为Typeid为参数名进行传递）查找相应的记录并显示。查询宾馆简介信息的程序代码如下：
<%
if request("Typeid")="" then '判断接收的Typeid是否为空值
Typeid=1 '设置默认值
else
Typeid=request("Typeid") '将接收到的Typeid值赋值给Typeid
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where Typeid="&Typeid&" order by Dateandtime desc" '通过时间进行降序排列
rs.open sql,conn,1,1
%>
宾馆简介 '传递参数Typeid
地理位置 会展中心 餐饮美食 商务中心 其他 通过以下代码判断记录集是否为空，也就是判断是否有符合条件的记录，如没有符合条件的记录系统将给予提示。相关程序代码如下：
<% If not rs.eof Then %>
<%= rs("content") %>
<% Else %>
暂无信息
<% End If %>
通过以下代码显示宾馆简介内容：
<%= rs("content") %>
4.4 客房服务管理模块设计
客房服务管理模块的主要功能是介绍房价、房间类型、房间内部设施等，页面设计效果如图
8.7所示。
图7 客房服务管理页面设计效果
客房服务管理页面主要用于显示客房的相关信息，程序代码如下：
<%
set rs=server.CreateObject("adodb.recordset")'获取客房信息
sql="select * from fangjian "
rs.open sql,conn,1,1
function HTMLcode(fString)
if not isnull(fString) then
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "
")
fString = Replace(fString, CHR(10), "
")
fString = Replace(fString, CHR(32), " ")
HTMLcode = fString
end if
end function
%>
<%
If not rs.eof Then
tol=rs.recordcount
for i=1 to tol
%>
<%
rs.movenext '向下移动记录指针
if rs.eof then exit for '判断当前记录指针是否到达记录尾
next
else
response.Write("暂无信息")
end if
%>
4.5 在线订房管理模块设计
在线订房管理主要用于在线预订客房，在进行在线订房时，所填写的登记信息必须真实有效，否则不能预期正确地进行客房预订。在线订房管理模块的页面设计效果如图8所示。
图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("
") '判断输入的Email格式是否正确
elseIf Instr(Email, "@") = 0 Or Right(Email, 1) = "@" Or Left(Email, 1) = "@" Then
response.write "
"
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("
")
response.end
end if
if datediff("d",mm,nn)<0 then
response.Write("
")
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.updat
上一篇：
基于ASP的网上求职招聘系统毕业论文(最终稿)
下一篇：
缅怀先烈 铭记历史
2014-8-23
