【正文】 bject(Session(SessionName)) ThenSet conn = () guestbook,Set Session(SessionName) = conn’將打開的數(shù)據(jù)庫連接對象存入公用對象Session中 End If ’直接從公用對象SessionnName中取出已打開的數(shù)據(jù)庫連接對象 Set OpenOrGet_Database = Session(SessionName) End Function ‘直接打開數(shù)據(jù)庫連接對象Connection之子程序 Function Open_Database(SessionName ) Dim conn Set conn = () guestbook, Set Session(SessionName) = conn Set Open_Database = Session(SessionName) End Function ‘打開或直接得到數(shù)據(jù)庫記錄對象Recordset之子程序 Function OpenOrGet_RsAndPageSize( conn, sql, SessionName, PageSize ) ‘conn為數(shù)據(jù)庫連接對象,sql為SQL語句, SessionName為公用對象名稱, PageSize為每頁顯示記錄條數(shù) Dim rs ‘如果數(shù)據(jù)庫記錄對象未打開則創(chuàng)建此對象并打開 If Not IsObject(Session(SessionName)) ThenSet rs = () sql, conn, adOpenStatic‘,意為當前數(shù)據(jù)記錄可自由移動 Set Session(SessionName) = rs ’將打開的數(shù)據(jù)庫記錄對象存入公用對象Session中 = PageSize ‘記錄每頁顯示的數(shù)據(jù)條數(shù) End If ’直接從公用對象SessionName中得到已經打開的數(shù)據(jù)庫記錄對象 Set OpenOrGet_RsAndPageSize = Session(SessionName) End Function ‘直接打開數(shù)據(jù)記錄對象Recordset之子程序 Function Open_RsAndPageSize( conn, sql, SessionName, PageSize ) Dim rs Set rs = () sql, conn, adOpenStatic Set Session(SessionName) = rs = PageSize Set Open_RsAndPageSize = Session(SessionName) End Function % htmlheadmeta equiv=ContentType content=text/html。 charset=gb_231280 meta name=GENERATOR content=Microsoft FrontPage title留言簿內容/title /headbody vlink=008000 link=0000FF alink=FF0000 background= div align=centercenter ‘留言簿查看頁面之標題 table border=0 cellspacing=0 cellpadding=0 tr td align=centerbigbigfont face=隸書 color=FF0000strong留 言 簿/strong/font/big/big/td td /td td align=center valign=bottomp align=center applet code= 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= 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 ‘按時間先后順序對數(shù)據(jù)庫記錄排序 If Request(Page) = Then’如果沒有當前頁則直接打開數(shù)據(jù)庫連接對象和數(shù)據(jù)庫記錄對象 Set conn = Open_Database( gbook_conn) Set rs = Open_RsAndPageSize( conn, sql, gbook_rs, 5 ) Else ’存在當前頁則從公用對象中得到數(shù)據(jù)庫連接對象和數(shù)據(jù)庫記錄對象 Set conn = OpenOrGet_Database( gbook_conn) ‘gbook_conn為數(shù)據(jù)庫連接對象的公用對象名稱 Set rs = OpenOrGet_RsAndPageSize( conn, sql, gbook_rs, 5 ) ‘gbook_rs為數(shù)據(jù)庫記錄對象的公用對象名稱, 5為每頁顯示記錄條數(shù) End IfPage = CLng(Request(Page))’用Clng函數(shù)將頁數(shù)轉換為長整性數(shù)據(jù) ‘檢查頁碼是否在有效范圍內 If Page 1 Then Page = 1 If Page Then Page = ’調用分頁顯示之子程序 ShowOnePage rs, Page % form Action= Method=GET align=right a HREF=p返回留言表單/a %If Page 1 Then‘如果當前頁不是第一頁顯示前面頁碼狀態(tài) A HREF=?Page=1第一頁/A ’轉至第一頁 A HREF=?Page= amp。 (Page1) amp。 上一頁/A ’轉至上一頁 End IfIf Page Then‘如果當前頁不是最后一頁則顯示后面頁碼狀態(tài) A HREF=?Page= amp。 (Page+1) amp。 下一頁/A’轉至下一頁 A HREF=?Page= amp。 amp。 最后一頁/A’轉至最后一頁 End If%頁碼：font COLOR=Red%=Page%/%=%/font /p’顯示當前頁碼和總頁碼 /form % ‘處理如何顯示從數(shù)據(jù)庫中取出的留言信息之子程序 Sub RsToGbook( rs )’rs為數(shù)據(jù)記錄對象 Tab = TABLE BORDER=0 WIDTH=100% Tab = Tab amp。 TRTD姓 名 : amp。 rs(Name) amp。 /TD ‘為電子郵件地址加上超級連接 Tab = Tab amp。 TD COLSPAN=2Email : A HREF=mailto: amp。 rs(Email) amp。 Tab = Tab amp。 rs(Email) amp。 /A/TD/TR ‘為主頁地址加上超級連接 Tab = Tab amp。 TRTD COLSPAN=3主 頁 : A HREF= amp。rs(Url) amp。 Tab = Tab amp。 rs(Url) amp。 /A/TD/TR Tab = Tab amp。 TRTD國 家 : amp。 rs(Country) amp。 /TD Tab = Tab amp。 TD省 份 : amp。 rs(State) amp。 /TD Tab = Tab amp。 TD城 市 : amp。 rs(City) amp。 /TD/TR ‘將留言內容中的回車字符轉換為超文本之換行語句 Comments=Replace(rs(Comments), Chr(13), BR ) Tab = Tab amp。 TRTD留 言 : amp。 /TD/TR Tab = Tab amp。 TRTD COLSPAN=3 BGCOLOR=00FFFFPREFONT Size=+1 Tab = Tab amp。 Comments amp。 /FONT/PRE/TD/TR Tab = Tab amp。 TRTD COLSPAN=3時 間 : amp。 rs(Time) amp。 /TD/TR Tab = Tab amp。 /TABLEHR ‘將所有留言內容寫至WEB頁面 Tab End Sub % /body/html71 /