中小型企業(yè)內(nèi)部信息網(wǎng)的實(shí)現(xiàn)-資料下載頁(yè)
2025-06-29 01:07本頁(yè)面
【正文】 IsObject(Session(SessionName)) ThenSet conn = () guestbook,Set Session(SessionName) = conn’將打開的數(shù)據(jù)庫(kù)連接對(duì)象存入公用對(duì)象Session中 End If ’直接從公用對(duì)象SessionnName中取出已打開的數(shù)據(jù)庫(kù)連接對(duì)象 Set OpenOrGet_Database = Session(SessionName) End Function ‘直接打開數(shù)據(jù)庫(kù)連接對(duì)象Connection之子程序 Function Open_Database(SessionName ) Dim conn Set conn = () guestbook, Set Session(SessionName) = conn Set Open_Database = Session(SessionName) End Function ‘打開或直接得到數(shù)據(jù)庫(kù)記錄對(duì)象Recordset之子程序 Function OpenOrGet_RsAndPageSize( conn, sql, SessionName, PageSize ) ‘conn為數(shù)據(jù)庫(kù)連接對(duì)象,sql為SQL語(yǔ)句, SessionName為公用對(duì)象名稱, PageSize為每頁(yè)顯示記錄條數(shù) Dim rs ‘如果數(shù)據(jù)庫(kù)記錄對(duì)象未打開則創(chuàng)建此對(duì)象并打開 If Not IsObject(Session(SessionName)) ThenSet rs = () sql, conn, adOpenStatic‘,意為當(dāng)前數(shù)據(jù)記錄可自由移動(dòng) Set Session(SessionName) = rs ’將打開的數(shù)據(jù)庫(kù)記錄對(duì)象存入公用對(duì)象Session中 = PageSize ‘記錄每頁(yè)顯示的數(shù)據(jù)條數(shù) End If ’直接從公用對(duì)象SessionName中得到已經(jīng)打開的數(shù)據(jù)庫(kù)記錄對(duì)象 Set OpenOrGet_RsAndPageSize = Session(SessionName) End Function ‘直接打開數(shù)據(jù)記錄對(duì)象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留言簿內(nèi)容/title /headbody vlink=008000 link=0000FF alink=FF0000 background= div align=centercenter ‘留言簿查看頁(yè)面之標(biāo)題 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í)間先后順序?qū)?shù)據(jù)庫(kù)記錄排序 If Request(Page) = Then’如果沒有當(dāng)前頁(yè)則直接打開數(shù)據(jù)庫(kù)連接對(duì)象和數(shù)據(jù)庫(kù)記錄對(duì)象 Set conn = Open_Database( gbook_conn) Set rs = Open_RsAndPageSize( conn, sql, gbook_rs, 5 ) Else ’存在當(dāng)前頁(yè)則從公用對(duì)象中得到數(shù)據(jù)庫(kù)連接對(duì)象和數(shù)據(jù)庫(kù)記錄對(duì)象 Set conn = OpenOrGet_Database( gbook_conn) ‘gbook_conn為數(shù)據(jù)庫(kù)連接對(duì)象的公用對(duì)象名稱 Set rs = OpenOrGet_RsAndPageSize( conn, sql, gbook_rs, 5 ) ‘gbook_rs為數(shù)據(jù)庫(kù)記錄對(duì)象的公用對(duì)象名稱, 5為每頁(yè)顯示記錄條數(shù) End IfPage = CLng(Request(Page))’用Clng函數(shù)將頁(yè)數(shù)轉(zhuǎn)換為長(zhǎng)整性數(shù)據(jù) ‘檢查頁(yè)碼是否在有效范圍內(nèi) If Page 1 Then Page = 1 If Page Then Page = ’調(diào)用分頁(yè)顯示之子程序 ShowOnePage rs, Page % form Action= Method=GET align=right a HREF=p返回留言表單/a %If Page 1 Then‘如果當(dāng)前頁(yè)不是第一頁(yè)顯示前面頁(yè)碼狀態(tài) A HREF=?Page=1第一頁(yè)/A ’轉(zhuǎn)至第一頁(yè) A HREF=?Page= amp。 (Page1) amp。 上一頁(yè)/A ’轉(zhuǎn)至上一頁(yè) End IfIf Page Then‘如果當(dāng)前頁(yè)不是最后一頁(yè)則顯示后面頁(yè)碼狀態(tài) A HREF=?Page= amp。 (Page+1) amp。 下一頁(yè)/A’轉(zhuǎn)至下一頁(yè) A HREF=?Page= amp。 amp。 最后一頁(yè)/A’轉(zhuǎn)至最后一頁(yè) End If%頁(yè)碼：font COLOR=Red%=Page%/%=%/font /p’顯示當(dāng)前頁(yè)碼和總頁(yè)碼 /form % ‘處理如何顯示從數(shù)據(jù)庫(kù)中取出的留言信息之子程序 Sub RsToGbook( rs )’rs為數(shù)據(jù)記錄對(duì)象 Tab = TABLE BORDER=0 WIDTH=100% Tab = Tab amp。 TRTD姓 名 : amp。 rs(Name) amp。 /TD ‘為電子郵件地址加上超級(jí)連接 Tab = Tab amp。 TD COLSPAN=2Email : A HREF=mailto: amp。 rs(Email) amp。 Tab = Tab amp。 rs(Email) amp。 /A/TD/TR ‘為主頁(yè)地址加上超級(jí)連接 Tab = Tab amp。 TRTD COLSPAN=3主 頁(yè) : A HREF= amp。rs(Url) amp。 Tab = Tab amp。 rs(Url) amp。 /A/TD/TR Tab = Tab amp。 TRTD國(guó) 家 : amp。 rs(Country) amp。 /TD Tab = Tab amp。 TD省 份 : amp。 rs(State) amp。 /TD Tab = Tab amp。 TD城 市 : amp。 rs(City) amp。 /TD/TR ‘將留言內(nèi)容中的回車字符轉(zhuǎn)換為超文本之換行語(yǔ)句 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時(shí) 間 : amp。 rs(Time) amp。 /TD/TR Tab = Tab amp。 /TABLEHR ‘將所有留言內(nèi)容寫至WEB頁(yè)面 Tab End Sub % /body/html71 / 7
化學(xué)相關(guān)推薦
鄂ICP備17016276號(hào)-1