計算機(jī)網(wǎng)站論文word版(參考版)
2025-01-21 12:54本頁面
【正文】 nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。用于添加網(wǎng)站的管理員，管理員可以修改網(wǎng)站的設(shè)置。) exit sub end if end if end SubSub Main() dim username,Admin_type username = Session(Admin_name)% br table width=97% border=0 align=center cellpadding=3 cellspacing=1 class=tableBorder form action=?action=update_info method=post tr td colspan=3 class=titlediv align=center class=title 管理員密碼修改/div/td /tr tr td colspan=3 class=title2amp。ErrMsg=amp。) else ErrMsg=li 您輸入的密碼不正確。info=amp。 (cmd) info=li 管理員密碼更新成功。usernameamp。 where username = 39。Md5_codeamp。) exit sub else if password_org = rs(2) then Dim SaveSet,cmd,Md5_code Md5_code=md5(Password) cmd = Update Admin set pwd = 39。ErrMsg=amp。) if and then ErrMsg=li 用戶名不正確。usernameamp。) Exit Sub End if dim rs password_org = md5 (password_org) set rs = (select * from admin where Username=39。ErrMsg=amp。) Exit Sub end if if PasswordPassword2 then ErrMsg=li 您兩次輸入的密碼不一致，請重新輸入。ErrMsg=amp。) Exit Sub end if session(getcode)= if password_org= or password= or password2= then ErrMsg=li 請您完整輸入信息。ErrMsg=amp。) Exit Sub elseif cstr(session(getcode))cstr(trim(code)) then ErrMsg=li 您輸入的確認(rèn)碼和系統(tǒng)產(chǎn)生的不一致，請重新輸入。ErrMsg=amp。) Exit Sub elseif session(getcode)= then ErrMsg=li 請不要重復(fù)提交，如需重新登錄請返回登錄頁面。ErrMsg=amp。) ()end ifif (action)=update_info then call update_info() else call main()end ifFooter()Sub Update_info() dim Username,Password_org,Password,Password2,code Username = trim((Username)) Password_o
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1