<% '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ '★ ★ '☆ 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() %>
  修改您的登录用户及密码(每项必填)
新用户名:">  旧用户名:<%=outHTML(Session("eWebEditor_User"))%>
新 密 码:  确认密码:
 


<% 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 "

修改用户名及密码

" & _ "
" & _ "" & _ "
登录用户名及密码修改成功!



" End Sub %>