图9 在线订房管理页面运行结果
意见反馈管理模块主要包括留言的发布、留言与回复留言浏览2部分。单击“我要留言”超链接,可以进入意见反馈管理页面。
意见反馈管理页面所涉及到的相关程序代码如下:
<%
if request("post")<>"" then '判断是否接收到表单值
call writ
end if
function writ
Email=request("email") '接收输入的email地址
if request("name")="" or request("email")="" or request("ICQ")="" or request("liuyan")="" then
response.Write("<script language=javascript>alert&_
('请把内容填写完整');location='javascript:history.go(-1)'</script>")
elseIf Instr(Email, "@") = 0 Or Right(Email, 1) = "@" Or Left(Email, 1) = "@" Then
response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您的邮件地址是否正确!');" & "history.back()" & "</script>"
Response.End
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from guestbook"
rs.open sql,conn,1,3
rs.addnew
rs("name")=request("name") '获取添加人姓名
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("<script language=javascript>alert('提交成功')</script>")
end if
end function
%>
公告栏是用来发布网站最新公告信息的,目的是让浏览者了解网站的最新动态。公告栏信息分为首页滚动显示和具体信息展示两部分。
公告栏滚动显示功能模块位于前台主页的左侧,它可以将网站最新的公告信息展示给用户。公告栏滚动设计效果如图10所示。图10 公告栏滚动显示功能页面设计效果
实现滚动显示主要是应用HTML中的Marquee标识符实现的。程序代码如下:
<marquee direction="up" scrollamount="3"
onMouseOver="this.stop()
" onMouseOut="this.start()" height=180>
<%
set rs3=server.CreateObject("adodb.recordset")
sql3="select * from news by Dateandtime desc" '取出景点的相关信息
rs3.open sql3,conn,1,1
if not rs3.eof then
do while not rs3.eof
%>
<table width="100%" border="0">
<tr>
<td><span class="style3">☆</span>
<a href="#" onClick="window.open('open.asp?id=<%=rs3("Newsid")%>','',' '单击标题进入详细信息页面
scrollbars=yes,width=565,height=500')"><%=rs3("title")%></a>
</td>
</tr>
</table>
<%
rs3.movenext
loop
else
response.Write("<div align=center><font color=white>暂无信息</font></div>")
end if
%> </marquee>
公告栏滚动显示功能页面运行结果如图11所示
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>