Typeid=7">其他
通过以下代码判断记录集是否为空，也就是判断是否有符合条件的记录，如没有符合条件的记录系统将给予提示。
相关程序代码如下：
<%Ifnotrs.eofThen%>
<%=rs（"content"）%>
<%Else%>
暂无信息
<%EndIf%>
通过以下代码显示宾馆简介内容：
<%=rs（"content"）%>
4.4客房服务管理模块设计
客房服务管理模块的主要功能是介绍房价、房间类型、房间内部设施等，页面设计效果如图6所示。
图6客房服务管理页面设计效果
客房服务管理页面主要用于显示客房的相关信息，程序代码如下：
<%
setrs=server.CreateObject（"adodb.recordset"）'获取客房信息
sql="select*fromfangjian"
rs.opensql,conn,1,1
functionHTMLcode（fString）
ifnotisnull（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
endif
endfunction
%>
<%
Ifnotrs.eofThen
tol=rs.recordcount
fori=1totol
%>
<%
rs.movenext'向下移动记录指针
ifrs.eofthenexitfor'判断当前记录指针是否到达记录尾
next
else
response.Write（"暂无信息"）
endif
%>
4.5在线订房管理模块设计
在线订房管理主要用于在线预订客房，在进行在线订房时，所填写的登记信息必须真实有效，否则不能预期正确地进行客房预订。
在线订房管理模块的页面设计效果如图7所示。
图7在线订房管理页面设计效果
在线订房管理页面中要求输入的信息必须是真实有效的，系统将对输入的Email地址进行判断、同时还要判断到达时间与离开时间是否过期，代码如下：
<%
ifmonth（date（））<10then'如果当前月份小于10则在当前月份前面加0
mon=0&month（date（））
else
mon=month（date（））'获取当前系统月份
endif
ifday（date（））<10then'如果当前日期小于10则在当前日期前面加0
da=0&day（date（））
else
da=day（date（））'获取当前系统日期
endif
setrs2=server.CreateObject（"adodb.recordset"）
sql2="select*fromddwheretime='"&date（）&"'"
rs2.opensql2,conn,1,3
ifnotrs2.eofthen
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
endif
ifrequest（"post"）<>""then'判断是否接收表单值
callwrit
endif
functionwrit
Email=request（"email"）
ifrequest（"name"）=""orrequest（"danwei"）=""orrequest（"sex"）=""orrequest（"email"）=""orrequest（"num"）=""orrequest（"guoji"）=""orrequest（"tel"）=""orrequest（"zhengjian"）=""orrequest（"shenfen"）=""then
response.Write（"alert（'请把内容填写完整'）;location='javascript:
history.go（-1）'"）'判断输入的Email格式是否正确
elseIfInstr（Email,"@"）=0OrRight（Email,1）="@"OrLeft（Email,1）="@"Then
response.write""&chr（13）&"alert（'请检查您的邮件地址是否正确！
'）;"&"history.back（）"&""
Response.End
else
mm=request（"year"）&"-"&request（"month"）&"-"&request（"day"）'获得到达时间
nn=request（"year1"）&"-"&request（"month1"）&"-"&request（"day1"）'获得离开时间
ifdatediff（"d",mm,date（））>0then'判断达到日期和当前日期是否冲突
response.Write（""）
response.end
endif
ifdatediff（"d",mm,nn）<0then
response.Write（""）
response.end
endif
setrs=server.CreateObject（"adodb.recordset"）
sql="select*fromdd"
rs.opensql,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.update
rs.close
response.Write（"alert（'提交成功'）;location='dingdan.asp'"）
endif
endfunction
%>
在线订房管理页面的运行结果如图8所示。
图8在线订房管理页面运行结果
4.6意见反馈管理模块设计
意见反馈管理模块主要包括留言的发布、留言与回复留言浏览2部分。
单击“我要留言”超链接，可以进入意见反馈管理页面。
意见反馈管理页面所涉及到的相关程序代码如下：
<%
ifrequest（"post"）<>""then'判断是否接收到表单值
callwrit
endif
functionwrit
Email=request（"email"）'接收输入的email地址
ifrequest（"name"）=""orrequest（"email"）=""orrequest（"ICQ"）=""orrequest（"liuyan"）=""then
response.Write（"alert&_
（'请把内容填写完整'）;location='javascript:
history.go（-1）'"）
elseIfInstr（Email,"@"）=0OrRight（Email,1）="@"OrLeft（Email,1）="@"Then
response.write""&chr（13）&"alert（'请检查您的邮件地址是否正确！
'）;"&"history.back（）"&""
Response.End
else
setrs=server.CreateObject（"adodb.recordset"）
sql="select*fromguestbook"
rs.opensql,conn,1,3
rs.addnew
rs（"name"）=request（"name"）'获取添加人姓名
rs（"sex"）=request（"sex"）
rs（"laizi"）=request（"laizi"）
rs（"email"）=request（"email"）'获取添加人的email地址
rs（"OICQ"）=request（"OICQ"）
rs（"ICQ"）=request（"ICQ"）
rs（"homepage"）=request（"homepage"）
rs（"liuyan"）=request（"liuyan"）
rs（"time"）=now（）'获取当前系统日期和时间
rs.update
rs.close
response.Write（"alert（'提交成功'）"）
endif
endfunction
%>
4.7公告栏模块设计
公告栏是用来发布网站最新公告信息的，目的是让浏览者了解网站的最新动态。
公告栏信息分为首页滚动显示和具体信息展示两部分。
1．首页滚动显示
公告栏滚动显示功能模块位于前台主页的左侧，它可以将网站最新的公告信息展示给用户。
公告栏滚动设计效果如图9所示。
图9公告栏滚动显示功能页面设计效果
实现滚动显示主要是应用HTML中的Marquee标识符实现的。
程序代码如下：
onMouseOver="this.stop（）
"onMouseOut="this.start（）"height=180>
<%
setrs3=server.CreateObject（"adodb.recordset"）
sql3="select*fromnewswhereTypeid=8orderbyDateandtimedesc"'取出景点的相关信息
rs3.opensql3,conn,1,1
ifnotrs3.eofthen
dowhilenotrs3.eof
%>
| ☆ id=<%=rs3（"Newsid"）%>','',''单击标题进入详细信息页面 scr
展开阅读全文
相关搜索
|