<% '###################################### ' eWebEditor v6.2 - Advanced online web based WYSIWYG HTML editor. ' Copyright (c) 2003-2008 eWebSoft.com ' ' For further information go to http://www.ewebsoft.com/ ' This copyright notice MUST stay intact for use. '###################################### %> <% 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() %>

<%=sPosition%>

设置名称	基本参数设置	设置说明
新用户名：	">	*  旧用户名：<%=outHTML(Session("eWebEditor_User"))%>
新 密 码：		*
确认密码：		*

<% End Sub Sub DoModi() Dim sNewUsr, sNewPwd1, sNewPwd2 sNewUsr = Trim(Request("newusr")) sNewPwd1 = Trim(Request("newpwd1")) sNewPwd2 = Trim(Request("newpwd2")) If sNewUsr = "" Then GoError "新用户名不能为空！" End If If sNewPwd1 = "" then GoError "新密码不能为空！" End If If sNewPwd1 <> sNewPwd2 Then GoError "新密码和确认密码不相同！" End If sUsername = sNewUsr sPassword = sNewPwd1 Call WriteConfig() %>

<%=sPosition%>

登录用户名及密码修改成功！

<% End Sub %>