</body>
</html>
guesbook.asp
’插入ADO常数定义信息文件adovbs.inc
<!--#include file="adovbs.inc" -->
<%
’分页显示之子程序
Sub ShowOnePage( rs, Page ) ’rs为数据库记录对象, Page为页数
rs.AbsolutePage = Page ’AbsolutePage属性将当前数据记录移到第Page页的第一条
For iPage = 1 To rs.PageSize ‘PageSize为每页的数据条数
Rstogbook rs ‘调用处理显示内容之子程序
rs.MoveNext ‘将当前数据记录移至下一条
If rs.EOF Then Exit For ’如果显示页码为最后一页,则要判断是否移至数据记录未
Next
End Sub
‘打开或直接得到数据库连接对象Connection之子程序
Function OpenOrGet_Database(SessionName) ‘SessionName为公用对象中的名称
Dim conn
‘如果数据库连接对象未打开则创建此对象并打开
If Not IsObject(Session(SessionName)) Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "guestbook","",""
Set Session(SessionName) = conn’将打开的数据库连接对象存入公用对象Session中
End If
’直接从公用对象SessionnName中取出已打开的数据库连接对象
Set OpenOrGet_Database = Session(SessionName)
End Function
‘直接打开数据库连接对象Connection之子程序
Function Open_Database(SessionName )
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "guestbook","",""
Set Session(SessionName) = conn
Set Open_Database = Session(SessionName)
End Function
‘打开或直接得到数据库记录对象Recordset之子程序
Function OpenOrGet_RsAndPageSize( conn, sql, SessionName, PageSize )
‘conn为数据库连接对象,sql为SQL语句, SessionName为公用对象名称, PageSize为每页显示记录条数
Dim rs
‘如果数据库记录对象未打开则创建此对象并打开
If Not IsObject(Session(SessionName)) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, adOpenStatic
‘adOpenStatic为adovbs.inc文件中指定的数据记录类型常数,意为当前数据记录可自由移动
Set Session(SessionName) = rs ’将打开的数据库记录对象存入公用对象Session中
rs.PageSize = PageSize ‘记录每页显示的数据条数
End If
’直接从公用对象SessionName中得到已经打开的数据库记录对象
Set OpenOrGet_RsAndPageSize = Session(SessionName)
End Function
‘直接打开数据记录对象Recordset之子程序
Function Open_RsAndPageSize( conn, sql, SessionName, PageSize )
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, adOpenStatic
Set Session(SessionName) = rs
rs.PageSize = PageSize
Set Open_RsAndPageSize = Session(SessionName)
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>留言簿内容</title>
</head>
<body vlink="#008000" link="#0000FF" alink="#FF0000" background="INMTEXTB.GIF">
<div align="center"><center>
‘留言簿查看页面之标题
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><big><big><font face="隶书" color="#FF0000"><strong>留
言 簿</strong></font></big></big></td>
<td> </td>
<td align="center" valign="bottom"><p align="center">
<applet code="fphover.class" codebase="../../_fpclass/" width="80" height="20">
<param name="text" value="写留言薄">
<param name="hovercolor" value="#00FFFF">
<param name="textcolor" value="#0000FF">
<param name="effect" value="reverseGlow">
<param name="url" value="addguest.htm" valuetype="ref">
<param name="target" value="_self">
<param name="font" value="Helvetica">
<param name="fontstyle" value="bold">
<param name="fontsize" value="14">
<param name="color" value="#FFFFFF">
</applet>
</td>
</tr>
</table>
</center></div>
<hr>
<%
sql = "Select * From guestbook Order By time DESC" ‘按时间先后顺序对数据库记录排序
If Request("Page") = "" Then’如果没有当前页则直接打开数据库连接对象和数据库记录对象
Set conn = Open_Database( "gbook_conn")
Set rs = Open_RsAndPageSize( conn, sql, "gbook_rs", 5 )
Else ’存在当前页则从公用对象中得到数据库连接对象和数据库记录对象
Set conn = OpenOrGet_Database( "gbook_conn")
‘gbook_conn为数据库连接对象的公用对象名称
Set rs = OpenOrGet_RsAndPageSize( conn, sql, "gbook_rs", 5 )
‘gbook_rs为数据库记录对象的公用对象名称, 5为每页显示记录条数
End If
Page = CLng(Request("Page"))’用Clng函数将页数转换为长整性数据
转贴于 酷文网-论文下载中心 http://www.coolwen.net
共8页: 上一页 [1] [2] [3] [4] [5] [6] 7 [8] 下一页
网摘收藏:
当前位置:
载入中...
-> 在百度中搜索：
-> 在Google中搜索：