【正文】 驗(yàn)證管理員登陸 Sub Admin_Login_Execute() username = ((username)) password = ((password)) If username = OR password = Then br錯(cuò)誤類型 ： 用戶名或者密碼為空 br a href=?action=Admin_Loginbr返回/abrbrtable width=100% border=0 cellspacing=0 cellpadding=0trtdimg src=images/ width=530 height=27 border=0/td /tr/table End If Set Rs = () Sql=Select * From admin Sql,Conn,1,1 If username = Rs(username) AND password = Rs(password) Then Session(Admin) = Login Else br錯(cuò)誤類型 ： 用戶名或者密碼不對(duì) ， 登陸失敗 br a href=?action=Admin_Loginbr返回/abrbrtable width=100% border=0 cellspacing=0 cellpadding=0trtdimg src=images/ width=530 height=27 border=0/td /tr/table End If Set Rs = Nothing End Sub Sub EditPWD_。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 % % Sub Copyrights() % % End Sub % %Sub UbbHelp()% div align=left table width=499 border=0 cellspacing=1 cellpadding=4 align=center tr td height=20 colspan=4 align=center /td /tr tr td width=17div align=right/div/td td width=74 /td td width=308 /td td width=63 /td /tr tr td width=17 height=20div align=right/div/td td width=74 height=20 /td td width=308 height=20 /td td width=63 height=20 /td /tr tr td width=17div align=right/div/td td width=74 /td td width=308 /td td width=63 /td /tr tr td width=17 height=20div align=right/div/td td width=74 height=20 /td td width=308 height=20 /td td width=63 height=20 /td /tr tr td width=17div align=right/div/td td width=74 /td td width=308 /td td width=63 /td /tr tr td width=17div align=right/div/td td width=74 /td td width=308 /td td width=63 /td /tr tr td width=17div align=right/div/td td width=74 /td td width=308 /td td width=63 /td /tr /table %End Sub% /div %Sub EditPWD()% table width=499 border=0 cellspacing=1 cellpadding=4 align=center form name=editpwd method=post action= tr td colspan=2 align=center b修改密碼 /b/td /tr tr td align=right valign=middle width=105 height=38舊用戶名 ：/td td width=226 height=38 align=left input type=text name=oldusername class=input1 /td /tr tr td align=right valign=middle width=105 height=38新用戶名 ：/td td width=226 height=38 align=left input type=text name=username class=input1 /td /tr tr td align=right valign=middle width=105 height=38確認(rèn)新用戶名 ：/td td width=226 height=38 align=left input type=text name=username_c class=input1 /td /tr tr td align=right valign=middle width=105 height=38 舊 密 碼 ： /td td width=226 height=38 align=left input type=password name=oldpwd class=input1 /td /tr tr td align=right valign=middle width=105新 密 碼 ： /td td width=226 align=left input type=password name=newpwd class=input1 /td /tr tr td align=right valign=middle width=105 height=38確認(rèn)新密碼 ：/td td width=226 align=left height=38 input type=password name=newpwd_c class=input1 input type=hidden name=action_e value=EditPWD /td /tr tr align=center td colspan=2 input type=submit name=EditPWD value=修改密碼 class=input1 /td /tr /form /table %End Sub% % Sub Edit() % % Set Rs = () Sql=Select * From words Where 編號(hào) =amp。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。管理員登陸接口 % % Sub Admin_Login() % br table width=760 border=0 cellspacing=1 cellpadding=4 align=center form name=reply method=post action= tr td colspan=2 align=center管理登錄 /td /tr tr td align=right valign=top width=105 用戶名 ： /td td width=226 input type=text name=username class=input1 /td /tr tr td align=right valign=top width=105 密 碼 ： /td td width=226 input type=password name=password class=input1 input type=hidden name=action_e value=admin /td /tr tr align=center td colspan=2 input type=submit name=Submit32 value= class=b /td /tr /form /table br % End Sub% % 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。id=%=Rs(id)%【編輯】 /a % End If % /td /tr /table table width=760 border=0 cellspacing=0 cellpadding=0 align=center tr td height=16 background=images//td /tr /table % i=i+1 loop Set Rs = Nothing % table width=760 border=0 cellspacing=1 cellpadding=4 align=center tr td align=right height=20共有 %=TotalRecord%條預(yù)訂信息 分頁(yè) % For m = 1 To PageCount % [a href=?page=%=m%%=m%/a] % Next % /td