?? admin_modipwd.asp
字號:
<!--#include file = "Include/Startup.asp"-->
<!--#include file = "Include/md5.asp"-->
<!--#include file = "admin_private.asp"-->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★ ★
'☆ eWebEditor - eWebSoft在線文本編輯器 ☆
'★ ★
'☆ 版權所有: eWebSoft.com ☆
'★ ★
'☆ 程序制作: eWeb開發團隊 ☆
'★ email:webmaster@webasp.net ★
'☆ QQ:589808 ☆
'★ ★
'☆ 相關網址: [產品介紹]http://www.eWebSoft.com/Product/eWebEditor/ ☆
'★ [支持論壇]http://bbs.eWebSoft.com/ ★
'☆ ☆
'★ 主頁地址: http://www.eWebSoft.com/ eWebSoft團隊及產品 ★
'☆ http://www.webasp.net/ WEB技術及應用資源網站 ☆
'★ http://bbs.webasp.net/ WEB技術交流論壇 ★
'★ ★
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
%>
<%
sPosition = sPosition & "修改用戶名及密碼"
Call Header()
Call Content()
Call Footer()
Sub Content()
Select Case sAction
Case "MODI"
' 修改操作
Call DoModi()
Case Else
' 修改表單
Call ShowForm()
End Select
End Sub
' 顯示修改表單
Sub ShowForm()
%>
<script language=javascript>
// 客戶端驗證表單的有效性
function checklogin() {
var obj;
obj=document.myform.newusr;
obj.value=BaseTrim(obj.value);
if (obj.value=="") {
BaseAlert(obj, "新用戶名不能為空!");
return false;
}
obj=document.myform.newpwd1;
obj.value=BaseTrim(obj.value);
if (obj.value=="") {
BaseAlert(obj, "新密碼不能為空!");
return false;
}
if (document.myform.newpwd1.value!=document.myform.newpwd2.value){
BaseAlert(document.myform.newpwd1, "新密碼和確認密碼不相同!");
return false;
}
return true;
}
</script>
<br>
<table border=0 cellpadding=0 cellspacing=0 align=center class=form1>
<form action='?action=modi' method=post name=myform onsubmit="return checklogin()">
<tr><th> 修改您的登錄用戶及密碼(每項必填)</th></tr>
<tr><td>新用戶名:<input type=text class=input size=20 name=newusr value="<%=inHTML(Session("eWebEditor_User"))%>"> 舊用戶名:<span class=highlight1><%=outHTML(Session("eWebEditor_User"))%></span></td></tr>
<tr><td>新 密 碼:<input type=password class=input size=20 name=newpwd1 maxlength=30> 確認密碼:<input type=password class=input size=20 name=newpwd2 maxlength=30></td></tr>
<tr><td align=center><input type=image border=0 src='admin/submit.gif' align=absmiddle> <a href='javascript:document.myform.reset()'><img border=0 src='admin/reset.gif' align=absmiddle></a></td></tr>
</form>
</table>
<br><br>
<%
End Sub
' 修改操作
Sub DoModi()
' 服務器端驗證表單的有效性
If IsSelfRefer() = False Then
Go_Error "提交表單有問題!!!"
End If
Dim sNewUsr, sNewPwd1, sNewPwd2
sNewUsr = Trim(Request("newusr"))
sNewPwd1 = Trim(Request("newpwd1"))
sNewPwd2 = Trim(Request("newpwd2"))
If sNewUsr = "" Then
Go_Error "新用戶名不能為空!"
End If
If sNewPwd1 = "" then
Go_Error "新密碼不能為空!"
End If
If sNewPwd1 <> sNewPwd2 Then
Go_Error "新密碼和確認密碼不相同!"
End If
sSql = "select * from ewebeditor_system"
oRs.Open sSql, oConn, 1, 3
If Not oRs.Eof Then
oRs("sys_username") = md5(sNewUsr)
oRs("sys_userpass") = md5(sNewPwd1)
oRs.Update
End If
oRs.Close
Response.Write "<br><p align=center class=title>修改用戶名及密碼</p>" & _
"<br><table border=0 cellspacing=20 align=center>" & _
"<tr valign=top><td><img src='admin/do_ok.gif' border=0></td><td><b><span class=highlight2>登錄用戶名及密碼修改成功!</span></b><br><br><ul>我現在<br><br><li><a href='admin_default.asp'>返回后臺管理首頁</a><li><a href='admin_modipwd.asp'>重新修改</a></ul></td></tr>" & _
"</table><br><br>"
End Sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -