getpassword.asp

嘉缘人才6.0精简 ,很好用的人才系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn/conn.asp"-->
<!--#include file="inc/Commoncode.asp"-->
<!--#include file="inc/CommonFunction.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/sendmail.asp" -->
<%
If Request.QueryString("action")="submit" Then
	loginname=Trim(Request.Form("loginname"))
	membertype=Trim(Request.Form("membertype"))
	
	email=Trim(Request.Form("email"))
'	strMailContent="会员帐号："&loginname&"<br>"
'	strMailContent=strMailContent&"会员类型："&membertype&"<br>"
'	strMailContent=strMailContent&"真实姓名："&truename&"<br>"
	
	newpass=Date()&Now()
	newpass=md5(newpass)
	newpass=Left(md5(newpass),6)
	newpass=md5(newpass)
	newpass=Right(md5(newpass),6)
	newpass2=newpass
	newpass=md5(newpass)
	
	Set rs=Server.CreateObject("ADODB.RecordSet")
	Select Case membertype
		Case "个人会员"
		sql="select * from JOB_Member where member_login='"&loginname&"' and member_typeid=1"
		Case "企业会员"
		sql="Select * From JOB_Member Where member_login='"&loginname&"' and member_typeid=2"
	End Select
	rs.Open sql,conn,1,3
	
	If Not(rs.Eof) Then
		rs("Member_pwd")=newpass
		email2=rs("Member_email")
		If email<>email2 Then
			Response.Write("<script>alert(""您输入的邮箱和注册时的不符，请输入您注册时用的邮箱！"");history.back();</script>")
			Response.End()
		Else
			rs.Update
			if SendMail(email2,"找回密码成功------"&SiteName&"！","您的新密码为："&newpass2) then
				Response.Write("<script>alert(""密码找回成功！请注意查看您的信箱！"");window.location='index.asp';</script>")
				Response.End()
			else
				Response.Write("<script>alert(""密码找回失败！请和管理员联系！"");window.location='index.asp';</script>")
				Response.End()			
			end if
		End If
	Else
		Response.Write("<script>alert(""您输入的帐号不存在！"");history.back();</script>")
		Response.End()
	End If
	rs.Close
	Set rs=Nothing
End If

'读取模版内容
set rs=conn.execute("select * from JOB_Template where ChannelID=9999 and IsDefault="&FR_HR_True&" and IsDefaultInProject="&FR_HR_True&" and typeid=15")
if not rs.eof then
TemplateContent=rs("TemplateContent")
else
Response.Write("读取模板出错!")
Response.end()
end if
rs.close
set rs=nothing
html=TemplateContent
html=ReplaceLableFlag(ReplaceAllLabel(html))
Response.Write(CreateHTMLReplace(html))
conn.close:set conn=nothing%>