【正文】 itle).Value)%%end if%%else%%if len(trim((topictitle).Value))10 then %%=[精]amp。nbsp。amp。nbsp。 amp。left(((topictitle).Value),10)amp。...%%else%%=[精]amp。nbsp。amp。nbsp。 amp。trim((topictitle).Value)%%end if% %end if%/a/tdtd width=100%=((topicuserid).Value)% label/label/tdtd width=80div align=center%=((replynum).Value)%/%=((bronum).Value)%/div/td td width=100div align=centerspan class=STYLE9%=((topictime).Value)%/span/div/td/tr/table/form% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows1 ()Wend%/td/trtr td colspan=4amp。nbsp。table border=0 width=58% align=centertrtd width=23% align=center% If MM_offset 0 Then % a href=%=MM_moveFirst%第一頁/a % End If 39。 end MM_offset 0 % /td td width=31% align=center% If MM_offset 0 Then %a href=%=MM_movePrev%上一頁/a% End If 39。 end MM_offset 0 % /tdtd width=23% align=center% If Not MM_atTotal Then %a href=%=MM_moveNext%下一頁/a% End If 39。 end Not MM_atTotal % /tdtd width=23% align=center% If Not MM_atTotal Then % a href=%=MM_moveLast%最后一頁/a% End If 39。 end Not MM_atTotal %/td/tr/table/td/trtrtd colspan=4 valign=toppamp。nbsp。/p/td/tr/table/td/tr/table 帖子內(nèi)容瀏覽模塊設(shè)計用戶點擊帖子標(biāo)題后進入帖子內(nèi)容界面，用戶可以查看該帖子的內(nèi)容以及用戶對該帖子的回復(fù)內(nèi)容。圖 55 帖子瀏覽界面帖子瀏覽界面設(shè)計代碼如下：if((topcid) ) then Command4__MM_t = (topcid)set Command4 = () = MM_bbs_STRING = UPDATE topicinfo SET replynum =replynum+1 WHERE topicid =39。 + Replace(Command4__MM_t, 39。, 39。39。) + 39。 = 1 = 0 = true()END FUNCTION%%if((topicid) ) then Command1__MM_topicid = (topicid)%%if((b) ) then Command2__MM1 = (b)if((mid) ) then Command2__MM2 = (mid)%%if(Session(MM_Username) ) then Command3__MM_j = Session(MM_Username)%%Dim Recordset1__MMColParamRecordset1__MMColParam = 1If ((a) ) Then Recordset1__MMColParam = (a)End If%%set Command1 = () = MM_bbs_STRING = UPDATE topicinfo SET bronum =bronum + 1 WHERE topicid = + Replace(Command1__MM_topicid, 39。, 39。39。) + = 1 = 0 = true()%%set Command2 = () = MM_bbs_STRING = UPDATE foruminfo1 SET totaltopic = + Replace(Command2__MM1, 39。, 39。39。) + WHERE mid = + Replace(Command2__MM2, 39。, 39。39。) + = 1 = 0 = true()%%set Command3 = () = MM_bbs_STRING = UPDATE userinfo SET userlevel =userlevel+1 WHERE userid =39。 + Replace(Command3__MM_j, 39。, 39。39。) + 39。 = 1 = 0 = true()% 發(fā)帖模塊設(shè)計圖 56帖子發(fā)表界面，不同的管理員會進入不同的管理界面。超級管理員登陸后可對版塊信息和用戶帳號進行管理。圖57超級管理員后臺管理界面超級管理員登陸成功后代碼如下：td height=23 colspan=3span class=STYLE19/span你好，%= Session(MM_Username) %你的權(quán)限為span class=STYLE21超級管理員/span，你可進行以下操作 /td td height=23span class=STYLE20a href=/admin/用戶賬戶管理/a/span/td/tr trtd height=23 colspan=4amp。nbsp。/td /trtrtd colspan=4table width=100% border=0tr tddiv align=centerimg src=/database/img/bk/ width=151 height=57 //div/td tddiv align=centerimg src=/database/img/bk/ width=151 height=57 //div/td tddiv align=centerimg src=/database/img/bk/ width=151 height=57 //div/td tddiv align=centerimg src=/database/img/bk/ width=151 height=57 //div/td /trtrtd height=88 valign=top% While ((Repeat2__numRows 0) AND (NOT )) %table width=100% border=0trtdstrong%=((name).Value)%/strong/td tdA HREF=/admin/?%= (MM_keepNone) amp。 MM_joinChar(MM_keepNone) amp。 mid= amp。 (mid).Value %修改/A/td /trtrtd colspan=2span class=STYLE9描述：%=((description).Value)%/span/td /tr/table% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows1 ()Wend%/tdtd valign=top% While ((Repeat3__numRows 0) AND (NOT )) %table width=100% border=0tr tdstrong%=((name).Value)%/strong/td tdA HREF=/admin/?%= (MM_keepNone) amp。 MM_joinChar(MM_keepNone) amp。 mid= amp。 (mid).Value %修改/A/td /trtrtd colspan=2span class=STYLE9描述：%=((description).Value)%/span/td /tr/table % Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows1 ()Wend%/td td valign=top% While ((Repeat4__numRows 0) AND (NOT )) % table width=100% border=0tr tdstrong%=((name).Value)%/strong/td tdA HREF=/admin/?%= (MM_keepNone) amp。 MM_joinChar(MM_keepNone) amp。 mid= amp。 (mid).Value %修改/A/td/trtr td colspan=2span class=STYLE9描述：%=((description).Value)%/span/td/tr/table% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows1 ()Wend%/tdtd valign=top% While ((Repeat5__numRows 0) AND (NOT )) % table width=100% border=0trtdamp。nbsp。strong%=((name).Value)%/strong/td tdA HREF=/admin/?%= (MM_keepNone) amp。 MM_joinChar(MM_keepNone) amp。 mid= amp。 (mid).Value %修改/A/td/trtrtd colspan=2span class=STYLE9描述：%=((description).Value)%/span/td/tr/table% Repeat5__index=Repeat5__index+1 Repeat5__numRows=Repeat5__numRows1 ()Wend%/td/tr/table/td/tr/table版主登錄到后臺管理界面后，可對所在權(quán)限發(fā)版塊內(nèi)的帖子進行刪除可加精設(shè)置。圖58版主管理主界面顯示所有帖子進行管理的代碼如下： td colspan=6% While ((Repeat1__numRows 0) AND (NOT )) % table width=100% border=0trtd width=60%=((topicid).Value)%/td td width=200%if (jingpin).Value=False then %