1、基于ASP技術的論壇的設計與實現 摘 要: 使用ASP語言和數據庫技術設計的一個論壇軟件。使用ASP內置的SELECT、 INSERT INTO、UPDATE 、DELETE、EXECUTE等指令和微軟Access數據庫軟件技術實現論壇的各種功能。Asp的優點有平安性與減輕客戶端瀏覽器的負擔，提高交互速度，Access 的優點在于與其他網絡用戶共享數據庫。關鍵詞：ASP 動態效勞器頁面 HTML超文本標記語言VB腳本語言目錄引言3概述11開發背景312系統說明4主要技術和分析21引言522ASP技術綜述523Dreamweaver MX2004應用7系統需求分析31系統運行環境832系統功能需

2、求8系統概要設計41模塊劃分及各模塊功能介紹942系統數據庫設計9詳細設計與實現11結綸20參考文獻20引 言隨著的飛速開展，機關、學校、公司、企業都已經或正在建立自己的網站和論壇，而一個真正的、完善的論壇離不開數據庫技術,數據庫技術可以實現瀏覽器與數據庫的雙向交互。技術和數據庫相互融合領域的研究已成為熱點方向之一,數據庫技術使技術和數據庫技術都發生了質的變化:網頁由靜態網頁開展成了動態網頁,數據庫實現了開發環境和應用環境的別離,用戶端可以用相對統一的瀏覽器實現跨平臺和多媒體效勞。 概 述1.1開發背景為了提高自己對計算機專業知識的運用水平，并對三年來自己所學的計算機知識進行好好的回憶和實踐運

3、用，同時利用開展畢業的實習和開展畢業設計，檢驗自己學習中存在的缺乏，到達加強對網絡和數據庫等的學習。本論壇的設計是結合現在流行的各種網上技術和論壇的普及，也是為適應企業的信息化管理基于ASP技術而設計的論壇。本論壇是為了用戶進行網上交流和開展網上對話，也有利于成員之間利用互聯技術，開展學習、交流、網上交友等活動。本論壇的建立將發揮橋梁與扭帶的作用大大的方便了用戶之間信息的溝通。網絡論壇，也被稱為異步會議系統、布告板，是網絡上除了E-mail之外，最為普遍的在線討論系統，它來源于早期Internet開展的BBS系統BulletinBoardSystem，隨著Internet的開展，逐步演變成現在

4、的形式基于Web的BBS系統。在網絡教學中，論壇作為其中一個必不可少的交流平臺，正廣泛地被應用，是網絡教學系統的有機組成局部。ASP應用程序易于使用、修改，并且是通過效勞器端解釋執行，無需編譯，能夠對源代碼進行保密，因而很多網站都運用ASP來架構。論壇是一個通過國際互聯信息網絡進行發布信息和實現多人通訊的一個系統。在這個信息極其興旺的時代，我們目前可以用來發布信息和進行相互交流的方法也有非常多，比方文件、通知、電報、 、電子郵件、OICQ等等通訊手段，但是這些或者不方便或者有局限性或者有費用的問題，比方一個紅頭文件從下發到被人閱覽這期間要通過好多手續和時間，那么一個需要幾個人一起討論的會議就非

5、的有一定的時間，和一定的地點，聚集在一起才能舉行，一般情況下都需要花費大量的人力物力。非但費時費力費錢而且效果也不一定很好。電子郵件那么不是一種及時聯系的手段，需要一定時間才能到達，只能作為一種輔助交流的手段。而論壇就能很好的解決這個問題，廠團委發一個通知或文件不需要專人送的各個崗位和車間，我們也不需要聚集在同一地點，各自在不同的地點就可以在論壇中發言，大家互相討論。而且好的論壇在討論時還有各種表情符號等可以加強我們的表達。另外還有費用低廉，信息交流速度快等優點，青年論壇的建立將會為臺電成為國際一流火力發電廠作出自己的奉獻。1.2系統說明本論壇設計方案主要是利用局域網原理，在企業網絡效勞器上搭

6、建一個網站，建立網頁論壇平臺，瀏覽者可通過網絡，在自己的終端上利用IE瀏覽器訪問該網站，瀏覽相關信息，并可以注冊、注銷個人信息，發表、編輯、修改、刪除個人觀點。論壇著力構建效勞功能強大、信息交流便捷、管理模式科學的青年活動、交流的新型平臺。成為用戶思想交流的家園，文化活動的基地，娛樂聯歡的場所，努力為用戶效勞。 主要技術和分析21引言實現動態網頁的手段很多,像傳統的程序存在執行效率低、移植性較差及開發效率低的缺點。而目前十分流行的訪問網站數據庫是用方式,同以往的開發工具相比具有靈活易用、強大的可擴充性、無需編譯及獨立于瀏覽器等優點,而且有效地結合了語言、腳本語言,并可以通過效勞器組件來擴充效勞

7、器功能2.2ASP技術綜述2.2.1ASP技術簡介Microsoft Active Server Pages 即我們所稱的 ASP ，其實是一套微軟開發的效勞器端腳本環境， ASP 內含于 IIS 3.0 和 4.0 之中 , 通過 ASP 我們可以結合 HTML 網頁、 ASP 指令和 ActiveX 元件建立動態、交互且高效的 WEB 效勞器應用程序。有了 ASP你就不必擔憂客戶的瀏覽器是否能運行你所編寫的代碼，因為所有的程序都將在效勞器端執行，包括所有嵌在普通 HTML 中的腳本程序。當程序執行完畢后，效勞器僅將執行的結果返回給客戶瀏覽器，這樣也就減輕了客戶端瀏覽器的負擔，大大提高了交互

8、的速度。2.2.2技術特點完全與HTML文件融合在一起；容易創立，不需要其它編譯、鏈接程序；面向對象的并通過ActiveX Server對象可擴展。2.2.3ASP與數據庫在實際應用中如論壇發貼、刪貼，需要保存、刪除、修改的數據很多，利用數據庫來管理這些數據，可以很方便的查詢和更新。數據庫有很多種，如：Fox 數據庫(.dbf)、Access 數據庫(.mdb)、Informix、Oracle 和 SQL Server 等等，在這里，我采用 Microsoft Access 作為后臺數據庫。23Dreamweaver MX2004應用Macromedia Dreamweaver MX 2004

9、 是一款專業的HTML 編輯器，用于對Web 站點、Web 頁和Web 應用程序進行設計、編碼和開發。無論您愿意享受手工編寫HTML 代碼時的駕馭感還是偏愛在可視化編輯環境中工作，Dreamweaver 都會為您提供有用的工具，使您擁有更加完美的Web 創作體驗。利用Dreamweaver 中的可視化編輯功能，您可以快速地創立頁面而無需編寫任何代碼。您可以查看所有站點元素或資源并將它們從易于使用的面板直接拖到文檔中。您可以在MacromediaFireworks 或其他圖形應用程序中創立和編輯圖像，然后將它們直接導入Dreamweaver，或者添加Macromedia Flash 對象，從而優

10、化您的開發工作流程。Dreamweaver 還提供了功能全面的編碼環境，其中包括代碼編輯工具例如代碼顏色和標簽完成；有關HTML、層疊樣式表(CSS)、JavaScript、ColdFusion 標記語言(CFML)、Microsoft Active Server Pages (ASP) 和JavaServer Pages (JSP) 的參考資料。Macromedia 的可自由導入導出HTML 技術可導入您手工編碼的HTML 文檔而不會重新設置代碼的格式，您可以隨后用您首選的格式設置樣式來重新設置代碼的格式。Dreamweaver 還使您可以使用效勞器技術例如CFML、ASP.NET、ASP、

11、JSP 和PHP生成由動態數據庫支持的Web 應用程序。Dreamweaver 可以完全自定義。您可以創立您自己的對象和命令，修改快捷鍵，甚至編寫JavaScript 代碼，用新的行為、屬性檢查器和站點報告來擴展Dreamweaver 的功能。 系統需求分析3.1系統運行環境：效勞器端：1、WINDWOS2000 SERVER2、IIS5.0客戶端：1、WINDOWS98及以上版本2、IE5.0及以上版本3.2系統功能需求：管理端：對版塊，欄目，貼子，會員信息等進行管理。客戶端：注冊，查詢，發表回復貼子。系統概要設計4.1模塊劃分及各模塊功能介紹：論壇管理添加、刪除論壇版面；修改斑竹信息各版斑

12、竹登錄各自版塊進行貼子管理，具有刪貼功能版面管理本論壇簡介關于論壇論壇版面討論一些當前熱點的時事新聞發布團委的日常通知及站務公告團委公告時事新聞交流一些與軍事有關問題軍事天地可以按貼子主題或者發貼者為條件查詢相關的貼子論壇貼子查詢更改個人密碼修改個人信息用戶信息可以查看個人的發貼情況查詢個人信息積分排行榜4.2系統數據庫設計：本論壇采用ACCESS作為后臺數據系統。數據庫BOARD下面其有4個表。分別為：USER、BOARD、ADMIN、BBS1字段名字段類型字段說明USER表，里面記錄注冊用戶的一些信息。userID自動編號用戶號username文本用戶名userEmail文本EMAIL地址

13、artide數字積分userpassword文本密碼sex文本性別homefrom文本來自homepage文本個人主頁BOARD表，里面記錄版面信息。BoardID自動編號版面序號BoardType文本版面名稱BoardName文本斑竹用戶名MastarPwd文本密碼MastarEmail文本EMAILADMIM表，里面記錄論壇管理員信息。ID自動編號編號Adminame文本管理員用戶名Adminpwd文本密碼BBS1表，里面記錄貼子信息。AnnounceID自動編號ParentId數字Child數字Username文本發貼人Boardid數字Useremail文本Topic文本貼子主題Bod

14、y備注貼子內容Dateandtime文本發貼時間Hits數字Length數字Rootid數字Layer數字Orders數字Ip文本Expression文本 詳細設計與實現主頁面DEFAULT.ASP鏈接頁面LEFT.ASP論壇積分排行榜 POINT.ASP論壇簡介 ABOUT.ASP論壇管理管理員登錄頁面 LOGIN.ASP論壇管理管理功能頁面 BOARDMANAGER.ASP版面管理斑竹登錄頁面 ELOGIN.ASP版面管理管理功能頁面EMANAGE.ASP貼子主題瀏覽頁面 LIST.ASP發表回復頁面 SHOWANNUNCE.ASP發表新話題頁面 ANNOUNCE.ASP貼子查詢頁面 QU

15、ERY.ASP QUERYRESULT.ASP論壇用戶個人資料包括密碼、信息修改頁面 MYINFO.ASP常用數據庫語句1.SELECT 語句：命令數據庫引擎從數據庫里返回信息，作為一組記錄。2.INSERT INTO 語句：添加一個或多個記錄至一個表。3.UPDATE 語句：創立更新查詢來改變基于特定準那么的指定表中的字段值。4.DELETE 語句：創立一個刪除查詢把記錄從 FROM 子句列出并符合 WHERE 子句的一個或更多的表中去除。5.EXECUTE 語句：用于激活 PROCEDURE過程一連接數據庫方法1：Set conn = Server.CreateObject(ADODB.C

16、onnection)conn.Open driver=Microsoft Access Driver (*.mdb);dbq=&Server.MapPath(data.mdb)方法2：Set conn = Server.CreateObject(ADODB.Connection)conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(data.mdb)注意：一個頁面中，只要連接一次就可以了，數據庫使用完后要及時關閉連接。conn.CloseSet conn = Nothing二、添加新記錄到數據庫Set co

17、nn = Server.CreateObject(ADODB.Connection)conn.Open driver=Microsoft Access Driver (*.mdb);dbq=&Server.MapPath(data.mdb)username = 風云突變usermail = HYPERLINK mailto:fytb163 fytb163 indate = Now()sql = insert into data (username,usermail,indata) values(&username&,&usermail&,&indate&)conn.Execute(sql)co

18、nn.CloseSet conn = Nothing說明：建立數據庫連接；通過表單獲取姓名、E-mail 字符串，Now()獲取當前時間日期；使用 insert into 語句添加新記錄；conn.Execute 來執行；最后關閉。三、選擇數據庫里的記錄1.選擇所有記錄的字段按記錄倒序排序：sql = select * from data order by ID desc2.選擇所有記錄的姓名和E-mail字段不排序：sql = select username,usermail from data3.選擇姓名為“風云突變的所有記錄：sql = select * from data where

19、username=風云突變4.選擇使用 163 信箱的所有記錄按查看次數排序：sql = HYPERLINK mailto:select * from data where usermail like %163 % select * from data where usermail like %163 % order by view desc5.選擇最新的10個記錄：sql = select top 10 * from data order by ID descSQL 語句已經知道了，不過在Web應用時，還得創立一個 RecordSet 對象得到記錄集，才能把從數據庫里取出的值應用在網頁上，如

20、果現在將所有的記錄顯示在網頁上就這樣：Set conn = Server.CreateObject(ADODB.Connection)conn.Open driver=Microsoft Access Driver (*.mdb);dbq=&Server.MapPath(data.mdb)sql = select * from dataSet rs = Server.CreateObject(ADODB.RecordSet)rs.Open sql,conn,1,1Do While Not rs.EofResponse.Write 姓名：& rs(username) &E-mail：& rs(u

21、sermail) &查看：& rs(view) &次& rs(indate) &參加rs.MoveNextLooprs.CloseSet rs = Nothingconn.CloseSet conn = Nothing說明：建立數據庫連接；創立 rs 得到記錄集；循環顯示記錄，rs.Eof 表示記錄末，rs.MoveNext 表示移到下一個記錄；最后關閉。四、修改更新數據庫記錄修改記錄的E-mail：Set conn = Server.CreateObject(ADODB.Connection)conn.Open driver=Microsoft Access Driver (*.mdb);d

22、bq=&Server.MapPath(data.mdb)ID = 1usermail = HYPERLINK mailto:fytb163 fytb163 sql = update data set usermail=&usermail& where ID=&CInt(ID)conn.Execute(sql)conn.CloseSet conn = Nothing說明：建立數據庫連接；獲取記錄ID、新 E-mail 字符串；使用 update 語句修改記錄；conn.Execute 來執行；最后關閉。如果使記錄的查看值加1，那么：sql = update data set view=view+

23、1 where ID=&CInt(ID)五、刪除數據庫記錄刪除某一條記錄：Set conn = Server.CreateObject(ADODB.Connection)conn.Open driver=Microsoft Access Driver (*.mdb);dbq=&Server.MapPath(data.mdb)ID = 1sql = delete from data where ID=&CInt(ID)conn.Execute(sql)conn.CloseSet conn = Nothing說明：建立數據庫連接；獲取記錄ID；使用 delete 語句刪除記錄；conn.Execu

24、te 來執行；最后關閉。刪除多條記錄為：sql = delete from data where ID in (ID1,ID2,ID3)刪除所有記錄為：sql = delete from data結 論通過這個認壇的制作，我深化了對ASP技術的了解，也深刻體會到了ASP技術的優越性，堅決了我進一步學習ASP的信心。致 謝在此論文的完成過程中，有眾多老師的費心指導和一些同學的熱情幫助，在此表示萬分的謝意。參考文獻 HYPERLINK :/ 100down /download/default_study.html :/ 100down /download/default_study.html百當軟

25、件園網絡學院詳細設計與實現各頁面代碼如下：主頁面DEFAULT.ASP歡送光臨青年論壇 This page uses frames, but your browser doesnt support them. 鏈接頁面LEFT.ASPLeft論壇首頁論壇管理版面管理關于論壇論壇版面團委公告時事新聞軍事天地論壇帖子查詢更改個人密碼修改個人信息查詢個人信息查看積分排行在線人論壇積分排行榜POINT.ASP積分 論壇積分排行榜 姓名積分姓名積分9 then Exit Do loop end ifrs.Closeset rs=nothing%查看個人積分關于積分 論壇簡介ABOUT.ASPhtml 請

26、注意以下事項 本論壇由廠團委創辦和管理。 您在本站注冊發言便表示您將遵守以下條款 保持良好言行，不得對他人進行人身攻擊；遵守中華人民共和國的一切法律法規；網友不得張貼無用的重復信息，如果此類帖子數目超過5，將被視為對本站的惡意攻擊行為本站有權對登記網友的賬號進行管理，有權對違反上述條款的網友賬號進行關閉、刪除的處分通用用戶名：guest，密碼：guest 積 分 規 那么 斑竹在原來的根底上增加200分作為獎勵發一個帖子積分加1分，回復一個帖子積分加1分(多發新帖噢)被刪一個帖子，倒扣1分采用積分機制只是來活潑論壇的氣氛，積分數只是說明網友在本論壇的活潑情況，并不一定代表網友任何方面的個人水平

27、論壇管理管理員登錄頁面LOGIN.ASP管理者登陸 用戶名： 密 碼： 論壇管理管理功能頁面BOARDMANAGER.ASP!-/function check3()if (.value.length1) |( document.addbt3 ame.value.length1) )alert(名字不能為空);else document.addbt3.submit();function check4()if (.value.length1) |( document.addbt4 ame.value.length論壇版面管理區域增加版面 ID版 面斑 竹操 作a href=boardmanager

28、.asp?method=modify&boardid=&name=a href=mailto:請點擊相應版面增加板面：版面名稱：斑竹密碼：斑竹mail：斑竹姓名：=1 thenshowmaster=trim(rsb(boardmaster)%修改信息：INPUT TYPE=hidden name=id value=版面名稱：INPUT TYPE=text size=10 NAME=name value= class=bline1斑竹密碼：INPUT TYPE=text size=10 NAME=cname value= class=bline1斑竹mail：INPUT TYPE=text si

29、ze=10 NAME=email value= class=bline1斑竹姓名：INPUT TYPE=text size=10 NAME=userid value= class=bline1 %conn.Closeset rsB=nothingset conn=nothing版面管理斑竹登錄頁面ELOGIN.ASP管理者登陸 版面: % do while not rs.eof if boardid=cstr(rs(boardid) then sel=selected else sel= end if response.write +rs(Boardtype)+chr(13)+chr(10)

30、rs.movenext loop % 用戶名： 密 碼： 版面管理管理功能頁面EMANAGE.ASP青年論壇% dim sql,rs,rsBoard,BoardName,boardsql dim selStr dim mailStr1 dim mailStr2 dim boardmaster on error resume next selStr=() if session(masterlogin)=true then boardID=session(manageboard) selStr= if not isempty(request(page) then currentPage=cint(

31、request(page) else currentPage=1 end if set rsBoard=server.createobject(adodb.recordset) boardsql=select * from board where boardID=+cstr(boardID)+ rsboard.open boardsql,conn,1,1 if not rsboard.eof then boardname=rsboard(boardname) session(boardtype)=rsboard(boardtype) boardmaster=rsboard(boardmaste

32、r) if trim(rsboard(masteremail) then mailStr1= mailStr2= else mailStr1= mailStr2= end if if boardID0 then set rs=server.createobject(adodb.recordset) sql=select AnnounceID,boardID from bbs1 where boardID=+cstr(boardID)+ and parentID=0 ORDER BY announceID desc rs.open sql,conn,1,1 if not rs.eof then

33、totalAnnounce=rs.recordcount dim i i=0 if currentPage=1 then do while not rs.EOF if selstr= then selStr=selStr+cstr(rs(announceid) else selStr=selStr+,+cstr(rs(announceid) end if i=i+1 if i=maxannounce then exit do rs.MoveNext loop else if (current1)*maxannounce=maxannounce then exit do rs.MoveNext

34、loop else currentPage=1 do while not rs.EOF if selstr= then selStr=selStr+cstr(rs(announceid) else selStr=selStr+,+cstr(rs(announceid) end if i=i+1 if i=maxannounce then exit do rs.MoveNext loop end if end if dim n selstr=(+selstr+) if selStr() then sql=select * from bbs1 where (rootID in &selStr& )

35、 ORDER BY rootID desc,orders else sql=select * from bbs1 ORDER BY rootID desc,orders end ifend if rs.Close rs.open sql,conn,1,1 showpage session(boardtype),boardmaster,totalannounce,boardid,mailstr1,mailstr2 showlist() showpage session(boardtype),boardmaster,totalannounce,boardid,mailstr1,mailstr2 e

36、lse response.write 版面：+session(boardtype)+版主：+mailstr1+boardmaster+mailstr2+ response.write 本論壇無內容 response.write 我要發言 刷新瀏覽 end if rs.close sub showlist() on error resume next dim outtext dim bytestr response.write dim layer layer=1 do while not (rs.eof or err.number0) do while layer rs(layer) if rs

37、(layer) layer then outtext=outtext & layer=layer+1 else outtext=outtext & & chr(13) & chr(10) layer=layer-1 end if loop outtext=outtext & outtext=outtext & outtext=outtext & dim t if rs(Length)=0 then t= else t= end if if pwsonchsys then outtext=outtext & htmlencode(rs(Topic)+t) else outtext=outtext

38、 & Server.HTMLEncode(rs(Topic)+t) end if outtext=outtext & - bytestr=(+cstr(rs(length) if not WINNT_CHINESE then if rs(Length)-1=1 then bytestr=bytestr+ Byte) else bytestr=bytestr+ Bytes) end if else bytestr=bytestr+字) end ifif pwsonchsys then outtext=outtext & htmlencode(rs(UserName) else outtext=o

39、uttext & Server.HTMLEncode(rs(UserName) ) end if outtext=outtext & &rs(DateAndTime)& ID:+cstr(rs(announceID)+ 點擊:&rs(Hits)& +bytestr+ ( + Cstr(rs(child)+)+chr(13)+chr(10) if trim(rs(DateAndTime) and isdate(rs(DateAndTime) then if cbool(cdate(rs(DateAndTime)(date()-1)=true then outtext=outtext & end

40、if end if outtext=outtext & 刪除+chr(13)+chr(10) rs.movenext response.write outtext outtext= loop if layer0 then dim i for i=1 to layer outtext=outtext & next end if outtext=outtext & response.write outtext end subfunction showpage(boardtype,boardmaster,totalannounce,boardid,mailstr1,mailstr2) respons

41、e.write response.write 版面：&boardtype& response.write response.write 版主：+mailstr1+boardmaster+mailstr2+ response.write 我要發言 response.write 刷新瀏覽 dim n if totalAnnounce mod maxannounce=0 then n= totalAnnounce maxannounce else n= totalAnnounce maxannounce+1 end if response.write response.write if Curren

42、tPage2 then response.write 首頁 前頁 else response.write 首頁 response.write 前頁 end if if n-currentpage1 then response.write 后頁 尾頁 else response.write 后頁 尾頁 end if response.write 頁次：&CurrentPage&/&n&頁 response.write response.write 轉到： response.write response.write end functionelse Response.Write 該論壇不存在！ e

43、nd if end ifrsBoard.Closeset rsboard=nothing %貼子主題瀏覽頁面LIST.ASP青年論壇% dim sql,rs,rsBoard,BoardName,boardsql dim selStr dim mailStr1 dim mailStr2 dim boardmaster on error resume next selStr=() if not isEmpty(request(lstRefreshBoard) then boardID=request(lstRefreshBoard) elseif not isEmpty(request(Board

44、ID) then boardID=request(BoardID) end if selStr= if not isempty(request(page) then currentPage=cint(request(page) else currentPage=1 end if set rsBoard=server.createobject(adodb.recordset) boardsql=select * from board where boardID=&request(boardid) rsboard.open boardsql,conn,1,1 if not rsboard.eof

45、then boardname=rsboard(boardname) session(boardtype)=rsboard(boardtype) boardmaster=rsboard(boardmaster) if trim(rsboard(masteremail) then mailStr1= mailStr2= else mailStr1= mailStr2= end if if boardID0 then set rs=server.createobject(adodb.recordset) sql=select AnnounceID,boardID from bbs1 where bo

46、ardID=+cstr(boardID)+ and parentID=0 ORDER BY announceID desc rs.open sql,conn,1,1 if not rs.eof then totalAnnounce=rs.recordcount dim i i=0 if currentPage=1 then do while not rs.EOF if selstr= then selStr=selStr+cstr(rs(announceid) else selStr=selStr+,+cstr(rs(announceid) end if i=i+1 if i=maxannou

47、nce then exit do rs.MoveNext loop else if (current1)*maxannounce=maxannounce then exit do rs.MoveNext loop else currentPage=1 do while not rs.EOF if selstr= then selStr=selStr+cstr(rs(announceid) else selStr=selStr+,+cstr(rs(announceid) end if i=i+1 if i=maxannounce then exit do rs.MoveNext loop end

48、 if end if dim n selstr=(+selstr+) if selStr() then sql=select * from bbs1 where (rootID in &selStr& ) ORDER BY rootID desc,orders else sql=select * from bbs1 ORDER BY rootID desc,orders end ifend if rs.Close rs.open sql,conn,1,1 showpage session(boardtype),boardmaster,totalannounce,request(boardid)

49、,mailstr1,mailstr2 showlist() showpage session(boardtype),boardmaster,totalannounce,request(boardid),mailstr1,mailstr2 else response.write 版面：+session(boardtype)+版主：+mailstr1+boardmaster+mailstr2+ response.write 本論壇無內容 response.write 我要發言 刷新瀏覽 end if rs.close sub showlist() on error resume next dim

50、outtext dim bytestr response.write dim layer layer=1 do while not (rs.eof or err.number0) do while layer rs(layer) if rs(layer) layer then outtext=outtext & layer=layer+1 else outtext=outtext & & chr(13) & chr(10) layer=layer-1 end if loop outtext=outtext & outtext=outtext & outtext=outtext & dim t

51、if rs(Length)=0 then t= else t= end if if pwsonchsys then outtext=outtext & htmlencode(rs(Topic)+t) else outtext=outtext & Server.HTMLEncode(rs(Topic)+t) end if outtext=outtext & - bytestr=(+cstr(rs(length) if not WINNT_CHINESE then if rs(Length)-1=1 then bytestr=bytestr+ Byte) else bytestr=bytestr+

52、 Bytes) end if else bytestr=bytestr+字) end ifif pwsonchsys then outtext=outtext & htmlencode(rs(UserName) else outtext=outtext & Server.HTMLEncode(rs(UserName) ) end if outtext=outtext & 20&rs(DateAndTime)& ID:+cstr(rs(announceID)+ 點擊:&rs(Hits)& +bytestr+ ( + Cstr(rs(child)+)+chr(13)+chr(10) if trim

53、(rs(DateAndTime) and isdate(rs(DateAndTime) then if cbool(cdate(rs(DateAndTime)(date()-1)=true then outtext=outtext & +chr(13)+chr(10) end if end if rs.movenext response.write outtext outtext= loop if layer0 then dim i for i=1 to layer outtext=outtext & next end if outtext=outtext & response.write o

54、uttext end sub function showpage(boardtype,boardmaster,totalannounce,boardid,mailstr1,mailstr2) response.write response.write 版面：&boardtype& response.write response.write 版主：+mailstr1+boardmaster+mailstr2+ response.write 我要發言 response.write 刷新瀏覽 dim n if totalAnnounce mod maxannounce=0 then n= total

55、Announce maxannounce else n= totalAnnounce maxannounce+1 end if response.write response.write if CurrentPage2 then response.write 首頁 前頁 else response.write 首頁 response.write 前頁 end if if n-currentpage1 then response.write 后頁 尾頁 else response.write 后頁 尾頁 end if response.write 頁次：&CurrentPage&/&n&頁 re

56、sponse.write response.write 轉到： response.write response.write end functionelse Response.Write 該論壇不存在！ end ifrsBoard.Closeset rsboard=nothing % 發表回復頁面SHOWANNUNCE.ASP顯示貼子%if err.number0 then response.write 數據庫操作失敗：&err.descriptionelse if rs.eof and rs.bof then response.write 該貼子的內容找不到 else dim UserNam

57、e dim useremail dim Topic dim body dim dateTimeStr dim layer dim orders dim parentid dim ip dim FoundError dim ErrMsg username=rs(username) useremail=rs(useremail) topic=rs(topic) body=rs(body) dateTimeStr=rs(dateAndTime) layer=rs(layer) orders=rs(orders) parentid=rs(parentid) ip=rs(ip) response.wri

58、te if pwsonchsys then showBody Topic else response.write Server.HTMLEncode(Topic) end if response.write +chr(13)+chr(10) response.write +chr(13)+chr(10) if Trim(UserEmail) then response.write if pwsonchsys then showBody UserName else response.write Server.HTMLEncode(UserName) end if response.write r

59、esponse.write 于 +DateTimeStr+ 發表在：+session(boardtype)+chr(13)+chr(10) else response.write if pwsonchsys thenshowBody UserName else response.write Server.HTMLEncode(UserName) end if response.write 于 +DateTimeStr+ 發表在：+session(boardtype)+chr(13)+chr(10) end if showbody(body)%回復：form action=SaveReAnnou

60、nce.asp?boardID= method=POSTname=frmAnnounce input type=hidden name=followup value=input type=hidden name=rootID value= 我 要 發 言 版 面： *為必填工程 第一次發言自動注冊 姓 名： input class=smallInput name=username size=16 maxlength=50 value=* 密 碼：* Email： input class=smallInput name=email size=42 maxlength=40 value= 主 題：