<%
username=trim(request("username"))
if username<>"" then
set rs=server.createobject("adodb.recordset")
sql="select UserName,UserEmail,UserPassword from [user] where UserName='"&trim(username)&"' and not UserEmail=''"
rs.open sql,conn,1,1
if not rs.eof then
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="wodeail@etang.com"
objCDOMail.To=rs("UserEmail")
objCDOMail.Subject="您在ASP动网论坛的密码"
objCDOMail.Body="用户名："&rs("UserName")&chr(13)&chr(10)&"密码："&rs("UserPassword")&chr(13)&chr(10)&"欢迎继续使用ASP动网先锋论坛"&chr(13)&chr(10)&"Email：wodeail@etang.com"
objCDOMail.cc=cc
objCDOMail.bcc=bcc
objCDOMail.Send
if err.number<>0 then
msg= "操作失败，请以后再试
"&err.Description
err.clear
else
msg="密码已成功发往您的信箱："&rs("UserEmail")
end if
Set objCDOMail = Nothing
else
msg="错误：请正确输入您的用户名(注意大小写)或您未设置信箱"
end if
response.write msg
rs.Close
set rs=nothing
endConnection
end if%>
向我的信箱发送遗失的密码>>
您需要确保在个人信息里已经设置了正确的信箱，否则请用guest的名字发言由站长处理