【導讀】基于Web的信息處理系統(tǒng)

　　

【正文】 UserName amp。 39。 and Password=39。 amp。 UserPassword amp。 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。rs(userid)) set rs = nothing CloseDatabase() dim eurl eurl = Request(eurl) 39。if ComeUrl then () 39。else 39。((HTTP_REFERER)) 39。end if end if set rs = nothing CloseDatabase() % !DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//CN html head META equiv=ContentType content=text/html。 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 產(chǎn)生錯誤的可能原因： /bbrbr li 可能您還沒有登陸或者沒有注冊用戶。 brli 你輸入的用戶名大小寫不正確 brli 您輸入的密碼錯誤 /li /td/tr form action= method=post tr th valign=middle colspan=2 align=center height=25請輸入您的用戶名、密碼登陸/td/tr tr td align=right valign=middle class=tablebody1 請 輸 入 您 的 用 戶 名 /td td valign=middle class=tablebody1INPUT name=username type=text a href=沒有注冊？ /a/td/tr tr td align=right valign=middle class=tablebody1 請 輸 入 您 的 密 碼 /td td valign=middle class=tablebody1INPUT name=userpassword type=password/td/tr tr td class=tablebody2 valign=middle colspan=2 align=centerinput type=submit name=submit value=登 陸 input type=button name=back value=返 回 onclick=javascript:()/td/tr input type=hidden name=eurl value=%=ComeUrl% /form /table /body /html 基于 Web 的信息處理系統(tǒng) —— BBS 信息處理系統(tǒng) 28 實現(xiàn)在當前主題添加留言的方法。 當用戶單擊任意留言用，顯示本留言的所有回復信息，并把點擊次數(shù)加 1。顯示留言的 具體內(nèi)容和相關(guān)回復的內(nèi)容。 點擊留言和相關(guān)回復的具體內(nèi)容時顯示的程序，如果用戶感興趣，可以馬上回復，由 處理。 如果用戶輸入了回復信息，并單擊了“提交”，程序可用于保存用戶回復的信息。 建立 Connection 對象，用 Connection 對象的 Open 方法建立與數(shù)據(jù)庫 BBS 的連接。 定義插入的 SQL 語句。 定義 Command 對象，用 Command 對象的 Execute 方法執(zhí)行 SQL 語句，在表 main 中插入用戶回復的信息。 用隱藏對象保存回復留言的發(fā)言人和 ID。 代碼實現(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。 backgroundcolor: D7CCB2。 color: 846952。 border: 1px solid 866956。 /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。 backgroundcolor: D7CCB2。 color: 846952。 border: 1px solid 866956。 /td /tr tr td height