searchpass.asp

迅捷网上调查系统管理

<!--#include file="top.asp" -->
<!--#include file="../sys/inc/prompt.inc" -->
<!--#include file="../sys/inc/char.asp" -->
<!--#include File=../sys/email.asp -->
<%
call conned()
dim usermail,state,useremail
usermail=request("usermail")
if usermail = "" then
state="查找密码"
call top()
%>
<h1 align="center">&nbsp;</h1>
<h1 align="center"><font color="#FF0000"> </font></h1>
<hr align="center" size="1" width="85%">
<div align="center"><br>
  请在下表中输入您注册时使用的信箱 </div>
<form action=searchpass.asp  method=post name="searchpass" >
  <div align="center"><br>
    <table width="20" border="0" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
      <tr>
        <td>
          <table border=1 width="260" bordercolor="#0099cc" cellpadding="4" cellspacing="0">
            <tbody> 
            <tr> 
              <td  class=td1 height="30" width="79">Email地址：</td>
              <td class=td2 height="30" width="165"> 
                <input name=usermail size="20" maxlength="40" >
              </td>
            </tr>
            </tbody> 
          </table>
        </td>
      </tr>
    </table>
    <P> 
      <INPUT name=login type=submit value=查找>
    <P>&nbsp; 
  </div>
</form>
</body>
</html>
<!--#include file="../foot.inc" -->
<%
else 

if IsValidEmail(usermail)=false then
	errmsg="<br>"+"<li>您的Email有错误!"
	call error()
	response.end
	else
	useremail=trim(usermail)
end if
dim rs,sql
dim username,password,mailbody
set rs=server.createobject("adodb.recordset")
sql = "Select top 1 busername,bpassword From userinfo Where bmail = '"&useremail&"'"
rs.open sql,conn,1,1


if rs.bof and rs.eof then 
errmsg=errmsg+"<br>"+"<li>您的信箱还没有注册!"
call error()
response.end
end if 

'response.write rs("busername")
'response.end

username=rs("busername")
password=rs("bpassword")
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
dim sendmsg
topic="密码查找"
call sendmail()
successmess=(sendmsg)
call successclose()

end if


sub sendmail()
dim err
err=false
on error resume next
	mailbody=mailbody &"尊敬的："&username&"您好!"& vbcrlf
	mailbody=mailbody &"" & vbcrlf 
	mailbody=mailbody &"  您已经成功的注册成为"&homename&"的会员。"& vbcrlf
	mailbody=mailbody &"" & vbcrlf 
	mailbody=mailbody &"您的用户名是:"&username& vbcrlf
	mailbody=mailbody &"密  码："&(password)& vbcrlf	
	mailbody=mailbody &"" & vbcrlf 
	mailbody=mailbody &"再次感谢您注册本系统！"& vbcrlf
	mailbody=mailbody &"" & vbcrlf 
	mailbody=mailbody &"会员服务由 "&homename&"提供("&homepage&")"&vbcrlf
	mailbody=mailbody &"" & vbcrlf 
	mailbody=mailbody &"" & vbcrlf 
	mailbody=mailbody &"--------------------------------------------"& vbcrlf
	mailbody=mailbody &"程序制做:迅捷网络(http://www.soonhost.com)"& vbcrlf
	mailbody=mailbody &"迅捷网络--域名注册，主机租用，网站建设，脚本开发"& vbcrlf
	mailbody=mailbody &"--------------------------------------------"& vbcrlf
	mailbody=mailbody &"" & vbcrlf 
	mailbody=mailbody &"" & vbcrlf
	mailbody=mailbody &"                          "&now& vbcrlf
	mailbody=mailbody &""
select case EmailFlag
case 0
sendmsg="系统未开启邮件功能，请记住您的注册信息。"
case 1
call jmail(useremail)
case 2
call Cdonts(useremail)
case else
sendmsg="系统未开启邮件功能，请记住您的注册信息"

end select
if SendMailed <> "OK" then
	sendmsg="由于系统错误，未能成功发送邮件。"
else
	if EmailFlag=o then 
	sendmsg="系统未开启邮件功能，请记住您的注册信息。"
	else
	sendmsg="您的注册信息已经发往您的邮箱，请注意查收。"
	end if
end if
end sub
'====================================================
'程序制做:迅捷网络.          http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:[e-mail]
'请保留以上版权信息，谢谢合作！
'====================================================  
%>