if request.querystring("act")="xg" then
if request.Form("password2")<>request.Form("password") then '判断是否一致
response.write ""
response.End
else
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from admin" rs1.open sql1,conn,1,3
rs1("username")=request.form("username")
rs1("password")=md5(trim(request("password")))
rs1.update
rs1.close
set rs1=nothing
response.Write "修改完成,请执行其他操作"
end if
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin"rs.open sql,conn,1,1
%>
用户名: ">
新密码:
确认新密码:
rs.close
set rs=nothing
conn.close
conn=nothing
end if
%>
取消
评论