中小型企业内部网(Intranet)的实现

<p align="center"><strong><font face="隶书"><a href="addguest.htm">返 回</a></font></strong></p> 

</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