【正文】 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確認新密碼 ：/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 編號 =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。管理員登陸接口 % % 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。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%條預訂信息 分頁 % For m = 1 To PageCount % [a href=?page=%=m%%=m%/a] % Next % /td td align=right /td /tr /table % End Sub % % 39。每頁顯示預訂的數(shù)目 PageSize = PageCount= If page= Then = 1 Else = page End If % table width=499 border=0 cellspacing=1 cellpadding=4 align=center tr /tr /table table width=499 border=0 cellspacing=0 cellpadding=0 align=center tr tdp align=centerimg src=IMAGES/ width=470 height=1/td/p /tr /table br % do while i PageSize And not % table width=760 border=0 cellspacing=1 cellpadding=4 align=center style=tablelayout:fixed。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。39。39。39。39。39。39。39。39。39。39。39。主程序 Select Case action_e Case Case Add_New ‘添加客房預定的信息 Call Add_New_Execute() 調用客房預訂的函數(shù) Case reply ‘ 客房預訂的回復 Call Reply_Execute() 調用客房預訂的函數(shù) Case admin ‘ 管理員登錄 Call Admin_Login_Execute() 調用管理員登錄模塊 Case EditPWD 修改當前操作員密碼 Call EditPWD_Execute() 調用修改當前操作員密碼模塊 Case Edit 修改預訂信息 Call Edit_Execute() 調用修改預訂信息 End Select Call Main_Menu() 進入管理員調用主菜單 Select Case action ‘ 選擇調用情況 Case UbbHelp Call UbbHelp() Case Admin_Login 管理員登錄 Call Admin_Login() 調用管理員登錄模塊 Case Exit 如果選擇退出管理員登錄 Call Exit_Admin() 調用了退出管理員登錄 Call View_Words() 調用瀏覽預訂信息瀏覽模塊 Case Call View_Words() 調用瀏覽預訂信息瀏覽模塊 Case Add_New 如果是“添加預訂信息” Call Add_New() 調用“添加預訂信息” Case reply 如果是回復預訂信息 Call Reply() 調用回復預訂信息模塊 Case View_Words如果是瀏覽預訂信息 Call View_Words()調用瀏覽預訂信息模塊 Case Delete如果是刪除預訂信息 Call Delete() 調用刪除預訂信息模塊 Call View_Words() 調用預訂瀏覽信息模塊 Case EditPWD 如果是是修改密碼 Call EditPWD() 調用修改密碼模塊 Case Edit 如果是編輯預訂信息 Call Edit() 調用編輯預訂信息模塊 End Select Call Copyrights() 調用版權信息 % /td /tr /table HR width=95% color=000000 noShade SIZE=1 table width=760 height=43 border=0 align=center cellpadding=0 cellspacing=0 tr td align=center bgcolor=F0F0F0 height=22 font color=000000 程序設計 ： 康賓 大豐廣播電視大學 /font p /p /td /tr tr td background=images/ height=21 /td /tr /table/td /tr /table % 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 strongbr /strong/td /tr /table/td /tr /table/td /tr tr td height=46 valign=toptable width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=F0F0F0 tr td align=center valign=top class=input1 % 39。} } // /script body leftmargin=0 topmargin=0 marginwidth=0 marginheight=0 bgcolor=FFFFFF table width=760 border=0 cellpadding=0 cellspacing=0 align=center trtd width=199 align=center height=16img border=0 src=images/ width=425 height=26/tdtd width=331 align=center height=16img border=0 src=images/ width=333 height=26/td/tr /table table width=760 border=0 align=center cellpadding=0 cellspacing=0 class=boder !DWLayoutTable tr td valign=toptable width=760 border=0 cellpadding=0 cellspacing=0 align=center bgcolor=F0F0F0 !DWLayoutTable tr t