【正文】 /td /tr tr td height=202。 color: 846952。 /td /tr tr td height=24 align=right昵稱： /td td width=88% input name=GuestName type=text id=topic size=10 maxlength=20 style=fontsize: 12px。 color: 846952。 代碼實現(xiàn)如下： ! include file=inc/ ! include file=inc/ % dim rs,errmsg,noteid,ReviewCount set rs = () = select * from GuestBook Order By UpdateTime Desc ,conn,1,1 ReviewCount = if = 0 then errmsg = 現(xiàn)在還沒有任何訪客留言！ call ErrorForm() end if % center DIV align=center ! 頂部標題部分 !include file=inc/ ! 首頁部分開始 TABLE width=770 border=0 background=images/ align=center TBODY TR ! 中間部分開始 TD width=602 vAlign=top table width=100% height=103% border=0 基于 Web 的信息處理系統(tǒng) —— BBS 信息處理系統(tǒng) 29 tbody tr bgcolor=E0D8C2 td height=24 align=centerB 留言本 B /td /tr tr td height=339 valign=top % while not % table border=1 cellspacing=0 cellpadding=3 style=bordercollapse: collapse width=100% bordercolor=E0D8C2 tr bgcolor=E0D8C2 td colspan=8 valign=TOP □ b%=rs(Title)%/b /td /tr tr class=colheader1 td colspan=2 div align=center font color=8F7E70作者 :/font%=rs(GuestName)% /div /td td width=470 colspan=5 font color=8F7E70發(fā)帖時間： /font%=rs(UpdateTime)% /td /tr tr class=colheader1 td colspan=7 valign=top height=50 br %=rs(Content)% br /td /tr /tablebr % wend % br table border=1 cellspacing=0 cellpadding=3 style=bordercollapse: collapse width=100% bordercolor=E0D8C2 tr bgcolor=1378BE td colspan=2 bgcolor=E0D8C2共有留言： %=ReviewCount%條基于 Web 的信息處理系統(tǒng) —— BBS 信息處理系統(tǒng) 30 /td /tr /table table width=100% height=100% border=0 tbody tr td height=339 valign=top br form name=form2 method=post action= table width=100% border=1 cellspacing=0 cellpadding=3 bordercolor=E0D8C2 style=bordercollapse: collapse tr td height=22 colspan=2 bgcolor=E0D8C2◇ 我的留言/td /tr tr td width=12% height=44 align=right標題： /td td width=88% input name=topic type=text id=topic size=60 maxlength=50 style=fontsize: 12px。 定義 Command 對象，用 Command 對象的 Execute 方法執(zhí)行 SQL 語句，在表 main 中插入用戶回復的信息。 建立 Connection 對象，用 Connection 對象的 Open 方法建立與數(shù)據(jù)庫 BBS 的連接。 點擊留言和相關回復的具體內容時顯示的程序，如果用戶感興趣，可以馬上回復，由 處理。 當用戶單擊任意留言用，顯示本留言的所有回復信息，并把點擊次數(shù)加 1。 charset=gb2312 title登陸錯誤 /title LINK href=inc/ rel=stylesheet /head body brbrbr table cellspacing=1 cellpadding=3 align=center class=tableBorder2 style=width:80% tr 基于 Web 的信息處理系統(tǒng) —— BBS 信息處理系統(tǒng) 27 td height=25 valign=middle img src=images/ width=32 height=32 align=absmiddle font color=FF0000錯誤：不存在的用戶名或密碼不正確！ /font /td /tr /table br br table cellpadding=3 cellspacing=1 align=center class=tableborder1 style=width:45% tr align=center th width=100% height=25 colspan=2錯誤信息 /td /tr tr td width=100% class=tablebody1 colspan=2 b 產生錯誤的可能原因： /bbrbr li 可能您還沒有登陸或者沒有注冊用戶。((HTTP_REFERER)) 39。if ComeUrl then () 39。 ,conn,1,1 if not and not then session(userID)=rs(UserID) session(UserName)= UserName session(UserKind)= rs(UserKind) (update account set logincounts = logincounts+1,lastlogintime=GetDate() where userid=amp。 UserPassword amp。 and Password=39。 UserName amp。 數(shù)據(jù)檢查設計的實現(xiàn)： % Language=VBScript % 基于 Web 的信息處理系統(tǒng) —— BBS 信息處理系統(tǒng) 26 !include file=inc/ % dim UserName,UserPassword,LoginKind UserName = trim((UserName)) UserPassword = trim((UserPassword)) LoginKind = trim((LoginKind)) dim rs set rs = () = select UserID,UserKind from Account where UserName=39。如果不相同，則關閉于數(shù)據(jù)庫的連接，釋放數(shù)據(jù)對象顯示密碼不正確的信息。） 如果沒有記錄，說明用戶還沒有注冊，關閉與數(shù)據(jù)庫的連接，顯示用戶輸入錯誤的提示信息。首先 ,在 中，包含引用了 公用連接文件， 中建立了 Conn 公用對象來進行數(shù)據(jù)庫的連接。 完畢，按要求保存相 關文件在同一目錄中，打開 瀏覽。 定義 Command 對象，用 Command 對象的 Execute 方法執(zhí)行 SQL 語句，在表 main 中插入用戶回復的信息。 建立 Connection 對象，用 Connection 對象的 Open 方法建立與數(shù)據(jù)庫 BBS 的連接。 點擊留言和相關回復的具體 內容時顯示的程序，如果用戶感興趣，可以馬上回復，由 處理。 當用戶單擊任意留言用，顯示本留言的所有回復信息，并把點擊次數(shù)加 1。把留言存儲進表 main。 此時，建立 mand 對象。 建立 Recordset 對象，用 Open 方法執(zhí)行上面 SQL 語句。從 Session(“UserName”)中得到當前用戶的昵稱。 顯示表 Forum 的相關主題下的所有留言，單擊每個留言都可以查看其具體內容及回復內容，由 處理。 處理在當前版塊加新帖的過程。 設置 Recordset 對象的 Pagesize 屬性，即設置分頁顯示的數(shù)據(jù)量。 顯示 BBS 論壇的管理條例信息，但不執(zhí)行任何功能。右邊部分為具體內容，由表格分欄顯示。最后關閉于數(shù)據(jù)庫的連接，釋放數(shù)據(jù)對象，顯示注 冊成功提示頁面。 注釋：因為用戶 ID 是數(shù)據(jù)庫自動生成的自增長 ID,所以必須在保存用戶注冊數(shù)據(jù)后得到新注冊用戶的數(shù)字 ID 作為該用戶的登陸標志。 Recordeset 對象的 AddNew 方法可以 實現(xiàn)記錄的各種操作，如果昵稱不存在，則調用 方法在將用戶輸入的注冊信息在表 Account 中加入一條新記錄。在 中通過 Reg3()函數(shù)集中處理用戶輸入數(shù)據(jù)的正確性判斷。 用戶信息注冊的功能實現(xiàn)： 保存在 中輸入的注冊信息。 注冊頁面，讓用戶填寫必要的信息，并檢查信息的合法性，如果合法，則保存用戶的注冊信息，并進入論壇主頁面。如果不相同，則關閉于數(shù)據(jù)庫的連接，釋放數(shù)據(jù)對象顯示密碼不正確的信息。） 如果沒有記錄，說明用戶還沒有注冊，關閉與數(shù)據(jù)庫的連接，