⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 searchpwd.asp

📁 21世纪人才www.51zy.net 网站源码
💻 ASP
字号:
🔍 
<%
dim conn
dim dbpath
set conn=Server.createobject("ADODB.Connection")
DBpath=Server.Mappath("jobs.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath & ";pwd="
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style>
	td{font-size:9pt}
	body{font-size:9pt}	
</style>
</head>
<body leftmargin=0 topmargin=0 background=ffffff>

<%
dim usertype
dim username
dim systememail
dim email
dim sql
dim rs
Dim MailObject  
dim subject
dim bodytext
dim towho
dim fromwho
on error resume next '出错处理

username=request.form("uid")
email=request.form("email")
usertype=request("usertype")
systememail="info@qd-ego.com"
fromwho=systememail '这是包含的管理员邮箱
subject="您在余姚人才信息网的密码！"
bodytext="您的用户名是：" & username & "<br>您的密码是：password<br>感谢您对我们的支持，欢迎光临我们的站点！"

if username="" or email="" then
	response.write "<br><br><center>您的用户名信息或者邮箱地址没有填写<br>请返回重填<br><br>"
	response.write "<a href=javascript:history.go(-1)>[ 返回上页 ]</a><br></center>"
	response.end
end if	

if usertype="person" then
   sql="select * from person where uname='" & username & "' and email='" & email & "'"
   set rs=conn.execute(sql)

   if rs.eof and rs.bof then
	   response.write "<br><br><center>您的用户名或者邮箱填写错误<br>请返回重填<br><br>"
	   response.write "<a href=javascript:history.go(-1)>[ 返回上页 ]</a><br></center>"
	   response.end
   else	
	   
	   
	    ' 创建jmail对象:
	Set JMail = Server.CreateObject("JMail.SMTPMail")
	JMail.Charset = "gb2312"
	JMail.ContentType = "text/html"
	' 设置发送邮件服务器(SMTP):
    JMail.ServerAddress = "mail.cnyuyao.com:25"
    ' 发件人的信箱:
    JMail.Sender = "余姚人才信息网"
    ' 邮件标题:
   Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from person where uname='" & username & "' and email='" & email & "'"
rs.open sql,conn,1,1 
uname=rs("uname")
email=rs("email")
iname=rs("iname")
pwd=rs("pwd")	
	JMail.Subject = ""& iname &"您在余姚人才信息网的密码"
    ' 设置邮件的收件人信箱:
	JMail.AddRecipient email
	mess = mess & iname & ",您好！<br><br>" & vbcrlf & vbcrlf 
    mess = mess & "&nbsp;&nbsp;&nbsp;&nbsp;您的用户名为："& uname &"<br>" & vbcrlf
	mess = mess & "&nbsp;&nbsp;&nbsp;&nbsp;您的密码为："& pwd &"</strong></font><br>" & vbcrlf
    mess = mess & "&nbsp;&nbsp;&nbsp;&nbsp;现在登陆<a href='http://www.cnyuyao.com' target='_blank'>余姚人才信息网http://www.cnyuyao.com</a><br>" & vbcrlf
    mess = mess & "&nbsp;&nbsp;&nbsp;&nbsp;感谢您是用余姚人才信息网，祝您成功！！！<br>" & vbcrlf
    mess = mess & "<br><br><br>" & vbcrlf & vbcrlf & vbcrlf
    mess = mess & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & date & vbcrlf
    JMail.Body = mess
    ' 设置邮件的优先级(1-5，1为最高):
    JMail.Priority = 1
    ' 执行发送任务:
    JMail.Execute
	   
	   
	   
	   
	   
	   
	   
	   
	   response.write "<br><br><center>您的密码已经发到您注册时填写的邮箱里了<br>请检查您的邮箱！<br><br>"
	   response.write "<a href=javascript:window.close()>[ 关闭本页 ]</a><br></center>"
	   response.end
	   rs.close
   end if

else 
  if usertype="company" then
      sql="select * from company where uname='" & username & "' and email='" & email & "'"
      set rs=conn.execute(sql)

      if rs.eof and rs.bof then
	    response.write "<br><br><center>您的用户名或者邮箱填写错误<br>请返回重填<br><br>"
	    response.write "<a href=javascript:history.go(-1)>[ 返回上页 ]</a><br></center>"
	    response.end
      else	
	    
		
		' 创建jmail对象:
	Set JMail = Server.CreateObject("JMail.SMTPMail")
	JMail.Charset = "gb2312"
	JMail.ContentType = "text/html"
	' 设置发送邮件服务器(SMTP):
    JMail.ServerAddress = "mail.cnyuyao.com:25"
    ' 发件人的信箱:
    JMail.Sender = "余姚人才信息网"
    ' 邮件标题:
   Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from company where uname='" & username & "' and email='" & email & "'"
rs.open sql,conn,1,1 
uname=rs("uname")
email=rs("email")
cname=rs("cname")
pwd=rs("pwd")	
	JMail.Subject = ""& cname &"您在余姚人才信息网的密码"
    ' 设置邮件的收件人信箱:
	JMail.AddRecipient email
	mess = mess & cname & ",您好！<br><br>" & vbcrlf & vbcrlf 
    mess = mess & "&nbsp;&nbsp;&nbsp;&nbsp;您的用户名为："& uname &"<br>" & vbcrlf
	mess = mess & "&nbsp;&nbsp;&nbsp;&nbsp;您的密码为："& pwd &"</strong></font><br>" & vbcrlf
    mess = mess & "&nbsp;&nbsp;&nbsp;&nbsp;现在登陆<a href='http://www.cnyuyao.com' target='_blank'>余姚人才信息网http://www.cnyuyao.com</a><br>" & vbcrlf
    mess = mess & "&nbsp;&nbsp;&nbsp;&nbsp;感谢您是用余姚人才信息网！！！<br>" & vbcrlf
	mess = mess & "&nbsp;&nbsp;&nbsp;&nbsp;希望您早日找到您需要的人才！！！<br>" & vbcrlf
    mess = mess & "<br><br><br>" & vbcrlf & vbcrlf & vbcrlf
    mess = mess & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & date & vbcrlf
    JMail.Body = mess
    ' 设置邮件的优先级(1-5，1为最高):
    JMail.Priority = 1
    ' 执行发送任务:
    JMail.Execute
		
		
		
		
		
		
		
		
	    response.write "<br><br><center>您的密码已经发到您注册时填写的邮箱里了<br>请检查您的邮箱！<br><br>"
	    response.write "<a href=javascript:window.close()>[ 关闭本页 ]</a><br></center>"
	    response.end
	    rs.close
      end if
  end if
end if

set MailObject = nothing 
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -