| 修改密码

<%Sub EditPassword() If API_Enable Then FoundErr = False ErrMsg = "" sPE_Items(conAction, 1) = "update" sPE_Items(conUsername, 1) = NoSqlHack(request.Form("userid")) sPE_Items(conPassword, 1) = NoSqlHack(Request.Form("password")) If createXmlDom Then prepareXML True SendPost If FoundErr Then ErrMsg = "
- " & ErrMsg & "
" End If Else FoundErr = True ErrMsg = "
- 目前注册服务不可用! [APIError-XmlDom-Runtime]
" End If End If Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select UsersPassword from YWNT_TMS_Users where UsersName='"&Request.Cookies("YWNTUserCookie")("UserName")&"'" Rs.open sql,Conn,1,3 RS("UsersPassword")=md5(NoSqlHack(Request.Form("password")),16) Rs.Update Rs.Close Set Rs = Nothing call ShowErr("
- 用户密码修改成功
","Users_Password.asp",1) End Sub Action=Trim(request("Action")) Select Case Action Case "EditPassword" call EditPassword() Case else IF Request.Cookies("YWNTUserCookie")("UserName")="" Then call UsersLogin() Else call Password() End If End Select sub Password()%>

用户名称： | " name="userid" />
用户密码： |
密码强度： |
确认密码： |

<%end sub%>

<%call connclose()%>