<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 后台管理
密码管理‖返回
密码更新
旧密码:
新密码:
新密码:
  
<% if request.form("submit")="提交" then rpws=trim(request.form("rpws")) rpws=md5(rpws) pws1=trim(request.form("pws1")) pws1=md5(pws1) pws2=trim(request.form("pws2")) pws2=md5(pws2) if rpws="" or pws1="" or pws2="" then response.Write("密码不能为空") end if if pws1<>pws2 then response.Write("两次新密码不一样") else set rs=server.CreateObject("adodb.recordset") sql="select * from y_admin" rs.open sql,conn,3,3 if rpws<>rs("y_password") then %> <%else rs("y_password")=pws1 rs.update %> <% end if rs.close set rs=nothing conn.close set conn=nothing end if end if %>