<%
PersonalName=cstr(SafeRequest("PersonalName",0))
Set rs = Server.CreateObject("ADODB.Recordset")
str="select * from Job_Hunter where Job_Login_Name='"&PersonalName&"' "
rs.open str,conn,1,1
if rs.bof or rs.eof then
response.write""
else
Seeker_True_Name=rs("Job_True_Name")
Seeker_Password=rs("Job_Login_Password")
Seeker_Email=rs("Job_Email")
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "zptong@gmail.com"
objCDOMail.To = Seeker_Email
objCDOMail.Subject ="您在招聘通(www.zptong.com)的帐号信息"
objCDOMail.Body = ""&Seeker_True_Name&"您好：
您在 zptong.com (招聘通) 注册的用户名和密码如下：
用户名："&PersonalName&"
密 码："&Seeker_Password&"
立即登录招聘通
招聘通人才网-湖南最专业的人才招聘网。
-------------------------------------------------------------------------------------------------
招聘不出门 求职在家中 －－ 招聘通 www.zptong.com"
objCDOMail.BodyFormat=0
objCDOMail.MailFormat = 0
objCDOMail.Send
Set objCDOMail = Nothing
response.write ""
end if
%>