【正文】 amp。首頁 前頁 /font else a href=?boardID=amp。 if CurrentPage2 then font color=39。 bgcolor=39。 td nowrap align=39。page=1刷新瀏覽 /a/td dim n if totalAnnounce mod maxannounce=0 then n= totalAnnounce \ maxannounce else n= totalAnnounce \ maxannounce+1 end if form method=Post action=?boardID=amp。boardidamp。center39。FEEC8539。boardidamp。center39。FEEC8539。left39。FEEC8539。boardtypeamp。FEEC8539。039。FFFFFF39。00000039。039。98%39。139。 /ul next end if outtext=outtext amp。39。?announceID=amp。 end if end if outtext=outtext amp。 img src=39。red39。rs(Hits)amp。rs(DateAndTime)amp。 (rs(UserName) ) end if outtext=outtext amp。 /a strong 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 if if pwsonchsys then outtext=outtext amp。 htmlencode(rs(Topic)+t) else outtext=outtext amp。BoardAnnounce39。39。ID=amp。cstr(rs(RootID))amp。?boardID=+cstr(boardID)+amp。 outtext=outtext amp。 img src=images/amp。 chr(10) layer=layer1 end if loop outtext=outtext amp。 /ul amp。刷新瀏覽 /a end if sub showlist() on error resume next dim outtext dim bytestr ul dim layer layer=1 do while not ( or 0) do while layer rs(layer) if rs(layer) layer then outtext=outtext amp。 target=+chr(34)+BoardAnnounce+chr(34)+我要發(fā)言 /a a href=39。 ) ORDER BY rootID desc,orders else sql=select * from bbs1 ORDER BY rootID desc,orders end if end if sql,conn,1,1 showpage session(boardtype),boardmaster,totalannounce,boardid,mailstr1,mailstr2 showlist() showpage session(boardtype),boardmaster,totalannounce,boardid,mailstr1,mailstr2 else p 版面 ： +session(boardtype)+br版主 ：+mailstr1+boardmaster+mailstr2+br 本論壇無內(nèi)容 pa href=39。 mailStr2=/a else mailStr1= mailStr2= end if if boardID0 then set rs=() sql=select AnnounceID,boardID from bbs1 where boardID=+cstr(boardID)+ and parentID=0 ORDER BY announceID desc sql,conn,1,1 if not then totalAnnounce= dim i i=0 if currentPage=1 then do while not 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 loop else if (currentPage1)*maxannouncetotalAnnounce then (currentPage1)*maxannounce dim bookmark bookmark= do while not 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 loop else currentPage=1 do while not 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 loop end if end if dim n selstr=(+selstr+) if selStr() then sql=select * from bbs1 where (rootID in amp。on error resume next selStr=() if session(masterlogin)=true then boardID=session(manageboard) selStr= if not isempty(request(page)) then currentPage=cint(request(page)) else currentPage=1 end if set rsBoard=() boardsql=select * from board where boardID=+cstr(boardID)+ boardsql,conn,1,1 if not then boardname=rsboard(boardname) session(boardtype)=rsboard(boardtype) boardmaster=rsboard(boardmaster) if trim(rsboard(master)) then mailStr1=a href=39。 charset=gb2312style type=text/css ! body { backgroundcolor: 00CCFF。+CStr(rs(BoardID))+39。 sel amp。139。139。139。 charset=gb2312style type=text/css ! body { backgroundcolor: 00CCFF。 strSQL=strSQL+ where boardid=+request(id) 39。,boardmaster=39。,master=39。,masterpwd=39。name=%=rsB(boardtype)%%=rsB(boardtype)%/a/td td width=25% align=centera href=mailto:%=rsB(master)%%=rsB(boardmaster)%/a/td td width=40% align=center請點擊相應(yīng)版面 /td /tr % loop end if % /table /td td width=30% valign=top ! % if request(method)=btmodify then % form name=addbt3 method=post action= 增加板面 ： brbr INPUT TYPE=hidden name=method value=added 版面名稱 ： INPUT TYPE=text size=10 NAME=name class=bline1br 斑竹密碼 ： INPUT TYPE=text size=10 NAME=ame class=bline1br 斑竹 mail： INPUT TYPE=text size=10 NAME= class=bline1br 斑竹姓名 ： INPUT TYPE=text size=10 NAME=userid class=bline1 INPUT name=way class=buttonface TYPE=BUTTON value=增加 onClick=check3() /form %end if% !