‘检查页码是否在有效范围内
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
’调用分页显示之子程序
ShowOnePage rs, Page
%>
<form Action="guestbook.asp" Method="GET" align="right">
<a HREF="addguest.htm"><p>返回留言表单</a>
<%
If Page <> 1 Then‘如果当前页不是第一页显示前面页码状态
Response.Write "<A HREF=guestbook.asp?Page=1>第一页</A>" ’转至第一页
Response.Write "<A HREF=guestbook.asp?Page=" & (Page-1) & ">上一页</A>" ’转至上一页
End If
If Page <> rs.PageCount Then‘如果当前页不是最后一页则显示后面页码状态
Response.Write "<A HREF=guestbook.asp?Page=" & (Page+1) & ">下一页</A>"’转至下一页
Response.Write "<A HREF=guestbook.asp?Page=" & rs.PageCount & ">最后一页</A>"’转至最后一页
End If
%>页码:<font COLOR="Red"><%=Page%>/<%=rs.PageCount%></font> </p>’显示当前页码和总页码
</form>
<%
‘处理如何显示从数据库中取出的留言信息之子程序
Sub RsToGbook( rs )’rs为数据记录对象
Tab = "<TABLE BORDER=0 WIDTH=""100%"">"
Tab = Tab & "<TR><TD>姓 名 : " & rs("Name") & "</TD>"
‘为电子邮件地址加上超级连接
Tab = Tab & "<TD COLSPAN=2>Email : <A HREF=""mailto:" & rs("Email") & """>"
Tab = Tab & rs("Email") & "</A></TD></TR>"
‘为主页地址加上超级连接
Tab = Tab & "<TR><TD COLSPAN=3>主 页 : <A HREF= "&rs("Url") & ">"
Tab = Tab & rs("Url") & "</A></TD></TR>"
Tab = Tab & "<TR><TD>国 家 : " & rs("Country") & "</TD>"
Tab = Tab & "<TD>省 份 : " & rs("State") & "</TD>"
Tab = Tab & "<TD>城 市 : " & rs("City") & "</TD></TR>"
‘将留言内容中的回车字符转换为超文本之换行语句
Comments=Replace(rs("Comments"), Chr(13), "<BR>" )
Tab = Tab & "<TR><TD>留 言 : " & "</TD></TR>"
Tab = Tab & "<TR><TD COLSPAN=3 BGCOLOR=#00FFFF><PRE><FONT Size=+1>"
Tab = Tab & Comments & "</FONT></PRE></TD></TR>"
Tab = Tab & "<TR><TD COLSPAN=3>时 间 : " & rs("Time") & "</TD></TR>"
Tab = Tab & "</TABLE><HR>"
‘将所有留言内容写至WEB页面
Response.Write Tab
End Sub
%>
</body>
</html>
转贴于 酷文网-论文下载中心 http://www.coolwen.net
共8页: 上一页 [1] [2] [3] [4] [5] [6] [7] 8 下一页
网摘收藏: