<%
if username<>"" and request("SendIt") = "true" then
CodeStr=request("CodeStr")
if CodeStr<>session("GetCode") then
response.write "验证码不正确，请重新输入！请返回!"
else
openconn
set rs=server.createObject("adodb.recordset")
sql="select UserEmail,UserPassword,UserID from [cl_user] where UserName='" & username & "'"
rs.open sql,conn,1,1
if rs.eof then
response.write "错误的用户名或邮箱名!请返回!"
else
emailRecipient=rs("UserEmail")
if emailRecipient<>"" then
doSend=sendMail(rs("UserID"))
if doSend<>1 then
'rs("UserPassword")=md5("123456",16)
' rs.update
response.write "无法发送邮件! 返回"
else
set rs1=server.createObject("adodb.recordset")
sql="select * from [activelink]"
rs1.open sql,conn,1,3
rs1.addnew
rs1("activelink")=activelink
rs1("userId")=rs("UserID")
rs1("temPassword")=temPassword
rs1("addTime")=now
rs1.update
rs1.close
set rs1=nothing
response.Redirect("doSend.asp?mailName=" & emailRecipient)
end if
else
response.write "无法发送邮件! 返回"
end if
end if
rs.close
set rs=nothing
closeconn
end if
end if
if request("SendIt") = "true" then
if trim(username)="" then
response.write "请填写您的用户名! 返回"
end if
else
%>
<%
end if
%>