<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../tgzcm.Scnn.asp" --><!--#include file="../tgzcm.Include/tgzcm.Lable.All.asp"-->
<%
newpass=NoSqlHack(Request.Form("newpass"))'新密码
uok=NoSqlHack(Request.Form("uok"))'答案
username=NoSqlHack(Request.QueryString("username"))'用户名
action=NoSqlHack(Request.QueryString("action"))
loste=NoSqlHack(Request.QueryString("loste"))
''''
 if action="pass" and len(loste)>10  and newpass<>"" and username<>"" Then
    Set rs = Server.CreateObject("adodb.recordset")
	rs.open"Select uid,uask from tgzcm_user where uname='"&username&"'",conn,1,1
	If not(rs.Eof and rs.bof) Then
	 Conn.Execute("Update tgzcm_user Set upass='"&md5(newpass,32)&"' where uid="&rs("uid")&"")
	 Call tgzcm_err_b("恭喜,密码修改成功！！！","../index.asp")
	 Response.End()
	 rs.close:Call CloseConn
	Else
	 Call tgzcm_err_c("新密码不能为空！！！")
     response.End()
	End If
 Else
 Call tgzcm_err_c("新密码不能为空！！！")
 response.End()
 End if
%>
