<%
If Session("User_Account")="" Then
Call AlertUrl("请先登陆！","Index.asp")
Response.End
End if
%>
<%
if Request("action")="check" Then
if Request.Form("code")<>Session("GetCode") Then
Call AlertUrl("验证码不正确！","PasswdReSet.asp")
Response.End
End if
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from User_Info where User_Account='"&Session("User_Account")&"' and User_Password='"&Session("User_Password")&"' "
rs.open sql,conn,3,3
if Request.Form("user")<>rs("User_Account") Then
Call AlertUrl("用户名不正确！","PasswdReSet.asp")
Else
Response.Redirect "PasswdReSetStep2.asp"
End if
End if
%>
Netsoz.Com用户管理中心 - 重设密码
<%
Function GetCode1()
Dim Test
On Error Resume Next
Set Test = Server.CreateObject("Adodb.Stream")
Set Test = Nothing
if Err Then
Dim zNum
Randomize Timer
zNum = CInt(8999 * Rnd + 1000)
Session("GetCode") = zNum
getcode1 = Session("GetCode")
Else
getcode1 = ""
End if
End Function
%>