【正文】 table width=45% border=1 cellspacing=0 cellpadding=1 align=center bordercolordark=ecf5ff bordercolorlight=6699cc tr tdtable width=100% border=0 cellspacing=1 cellpadding=1 tr td width=33% align=right height=30用戶名 ： /td td width=67%input name=username maxlength=20 class=smallInput size=20 /td /tr tr td width=33% align=right height=30密 碼 ： /td td width=67%input type=password name=password maxlength=16 class=smallInput size=20 /td /tr tr td colspan=2 height=15/td /tr /table /td /tr tr align=center td height=40 input type=submit name=Submit value=確定 class=buttonface input type=reset name=Submit2 value=重寫 class=buttonface /td /tr 畢業(yè)設(shè)計 共 66 頁 第 27 頁 /table /form p align=center /td /tr /table /center/div /body script language=JavaScript /script /html 論壇管理 —— 管理功能頁面 % LANGUAGE=VBSCRIPT % % option explicit% ! include file= html head meta HTTPEQUIV=ContentType content=text/html。 } /style/head SCRIPT LANGUAGE=JavaScript !// function check3() { if ((1) ||( 1) ) alert(名字不能為空 )。 } function check4() { if ((1) ||( 1) ) alert(名字不能為空 )。 ()。center39。139。80%39。039。00000039。FFFFFF39。039。boardid=%=rsB(boardid)%amp。+trim(request(name)) strSQL=strSQL+39。+trim(request(ame))+39。+trim(request())+39。+showmaster+39。(strSQL) strSQL,conn,1 else delete * from Board where boardid=+request(id),conn,1 end if end if % /td/tr /table /body /html % 畢業(yè)設(shè)計 共 66 頁 第 31 頁 set rsB=nothing set conn=nothing 版面管理 — 斑竹登錄頁面 % LANGUAGE=VBSCRIPT % % option explicit% !include file= ! include file=inc/ html head title管理者登陸 /title link rel=stylesheet href= meta equiv=ContentType content=text/html。 } /style/head body % dim sql,rs dim sel dim boardid boardid=0 if not (isNUll(request(boardid)) or isEmpty(request(boardid)) or (request(BoardID)=) ) then boardid=request(boardid) end if set rs=() sql=select * from board 畢業(yè)設(shè)計 共 66 頁 第 32 頁 sql,conn,1,1 % div align=centercenter table border=0 cellspacing=39。 width=90% tr td form method=POST name=frmNewUser action= target=BoardList table width=45% border=1 cellspacing=0 cellpadding=0 align=center bordercolordark=FFFFFF bordercolorlight=000000 tr tdtable width=100% border=0 cellspacing=39。 cellpadding=39。 trtd width=33% align=right版面 :/td td width=67%select class=smallSel name=lstBoard size=1 % do while not if boardid=cstr(rs(boardid)) then sel=selected else sel= end if option amp。 value=39。+rs(Boardtype)+/option+chr(13)+chr(10) loop % /select/td tr td width=33% align=right height=30用戶名 ： /td td width=67%input name=username maxlength=20 class=smallInput size=20 /td /tr tr td width=33% align=right height=30密 碼 ： /td td width=67%input type=password name=password maxlength=16 class=smallInput size=20 /td /tr tr td colspan=2 height=15/td /tr /table /td /tr 畢業(yè)設(shè)計 共 66 頁 第 33 頁 tr align=center td height=40 input type=submit name=Submit value=確定 class=buttonface input type=reset name=Submit2 value=重寫 class=buttonface /td /tr /table /form p align=center /td /tr /table /center/div /body /html html/html 版面管理 —— 管理功能頁面 % LANGUAGE=VBSCRIPT % % option explicit% !include file= ! include file=inc/ ! include file=inc/ % if (adminok)= then end if % html head meta NAME=GENERATOR Content=Microsoft FrontPage CHARSET=GB2312 title青年論壇 /title 畢業(yè)設(shè)計 共 66 頁 第 34 頁 link rel=stylesheet type=text/css href= meta equiv=ContentType content=text/html。 } /style/head body % dim sql,rs,rsBoard,BoardName,boardsql dim selStr dim mailStr1 dim mailStr2 dim boardmaster 39。mailto:+trim(rsboard(master))+39。selStramp。?boardID=+cstr(boardID)+39。?boardID=+cstr(boardID)+39。 ul layer=layer+1 else outtext=outtext amp。 chr(13) amp。 li outtext=outtext amp。rs(Expression)amp。 a href=39。RootID=amp。amp。Cstr(rs(announceID))amp。 target=39。 dim t if rs(Length)=0 then t= 無內(nèi)容 else t= end if if pwsonchsys then outtext=outtext