图9  在线订房管理页面运行结果

5.6  意见反馈管理模块设计

意见反馈管理模块主要包括留言的发布、留言与回复留言浏览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

%>

5.7  公告栏模块设计

公告栏是用来发布网站最新公告信息的，目的是让浏览者了解网站的最新动态。公告栏信息分为首页滚动显示和具体信息展示两部分。

5.7.1．首页滚动显示

公告栏滚动显示功能模块位于前台主页的左侧，它可以将网站最新的公告信息展示给用户。公告栏滚动设计效果如图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]  ... 下一页  >>