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

　　

【正文】 count where UserName=39。 amp。 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() 基于 Web 的信息處理系統(tǒng) —— BBS 信息處理系統(tǒng) 22 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 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 基于 Web 的信息處理系統(tǒng) —— BBS 信息處理系統(tǒng) 23 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 實現(xiàn)在當前主題添加留言的方法。 當用戶單擊任意留言用，顯示本留言的所有回復信息，并把點擊次數(shù)加 1。顯示留言的 具體內(nèi)容和相關回復的內(nèi)容。 點擊留言和相關回復的具體內(nèi)容時顯示的程序，如果用戶感興趣，可以馬上回復，由 處理。 如果用戶輸入了回復信息，并單擊了“提交”，程序可用于保存用戶回復的信息。 建立 Connection 對象，用 Connection 對象的 Open 方 法建立與數(shù)據(jù)庫 BBS 的連接。 定義插入的 SQL 語句。 定義 Command 對象，用 Command 對象的 Execute 方法執(zhí)行 SQL 語句，在表 main 中插入用戶回復的信息。 基于 Web 的信息處理系統(tǒng) —— BBS 信息處理系統(tǒng) 24 用隱藏對象保存回復留言的發(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 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 基于 Web 的信息處理系統(tǒng) —— BBS 信息處理系統(tǒng) 25 /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%條 /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 基于 Web 的信息處理系統(tǒng) —— BBS 信息處理系統(tǒng) 26 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