【正文】 % 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% ! % if request(method)=modify then select * from Board where boardid=+request(boardid),conn,1 if =1 then showmaster=trim(rsb(boardmaster)) % form name=addbt4 method=post action= 修改信息 ： brbr INPUT TYPE=hidden name=method value=modified INPUT TYPE=hidden name=id value=%=request(boardid)% 版面名稱 ： INPUT TYPE=text size=10 NAME=name value=%=rsb(boardtype)% class=bline1br 斑竹密碼 ： INPUT TYPE=text size=10 NAME=ame value=%=rsb(masterpwd)% class=bline1br 斑竹 mail： INPUT TYPE=text size=10 NAME= value=%=rsb(master)% class=bline1br 斑竹姓名 ： INPUT TYPE=text size=10 NAME=userid value=%=showmaster% class=bline1 INPUT TYPE=hidden name=way value=刪除 br INPUT name=way1 class=buttonface TYPE=BUTTON value=修改 onClick=check4() INPUT name=way1 class=buttonface TYPE=submit value=刪除 /form % end if end if% ! % if request(method)=added then select * from board,conn,3,2 showmaster=trim(request(userid)) rsB(boardtype)=request(name) rsB(masterpwd)=request(ame) rsB(boardmaster)=showmaster rsB(master)=request() end if % ! % if request(method)=modified then if request(way)=修改 then showmaster=trim(request(userid)) strSQL=update Board set boardtype=39。 strSQL=strSQL+ where boardid=+request(id) 39。139。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。刷新瀏覽 /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。 outtext=outtext amp。39。 (rs(UserName) ) end if outtext=outtext amp。 img src=39。 /ul next end if outtext=outtext amp。00000039。boardtypeamp。center39。boardidamp。 if CurrentPage2 then font color=39。首頁 前頁 /font else a href=?boardID=amp。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。FEEC8539。FFFFFF39。139。 end if end if outtext=outtext amp。rs(DateAndTime)amp。BoardAnnounce39。?boardID=+cstr(boardID)+amp。 /ul amp。 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。 sel amp。 charset=gb2312style type=text/css ! body { backgroundcolor: 00CCFF。,masterpwd=39。 bordercolordark=39。center table border=39。 charset=gb2312 link rel=stylesheet type=text/css href= style type=text/css ! body { backgroundcolor: 00CCFF。 cellpadding=39。