member_pwsearch_ok.asp

泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.

<!-- #include virtual="/common/BombConnDB.asp" -->
<!-- #include virtual="/common/SiteUtils.asp" -->
<%
name = trim(Request.Form("name"))
jumin1 = trim(Request.Form("jumin1"))
jumin2 = trim(Request.Form("jumin2"))
email = trim(Request.Form("email"))

jumin = jumin1 & "-" & jumin2
sql = nul & "SELECT Name, UserID, UserPWD, Email "
sql = sql & "FROM IB_Member "
sql = sql & "WHERE Name='" & name & "' "
sql = sql & "AND JuminA = '" & jumin1 & "' "
sql = sql & "AND JuminB = '" & jumin2 & "' "
sql = sql & "AND Email = '" & email & "' "

set rs = server.CreateObject("ADODB.RecordSet")
rs.Open sql, Dbcon, 1, 3

if rs.EOF then 

	call PageBack("请输入完整信息.")
	
else

	if instr(1, email, "@", 1) <> 0 then 
		
		name = rs("Name")
		id = rs("UserID")
		pwd = rs("UserPWD")
		email = rs("Email")

		mail_from = "[e-mail]"
		subject = name & "您在www.forecn.com注册的疯狂炸弹人密码"
		CRLF = Chr(13) & Chr(10)

		msg = nul & "www.forecn.com" & CRLF
		msg = msg & name &"欢迎进入疯狂炸弹人" & CRLF
		msg = msg & "您的游戏帐号 : " & id & CRLF
		msg = msg & "您的游戏密码 : " & pwd

		On error resume next

		Set objMail = Server.CreateObject("CDONTS.Newmail")
		objMail.From = mail_from
		objMail.To = email
		objMail.Subject = subject
		objMail.Body = msg
		objMail.importance = 2
		objMail.Send
		Set objMail = Nothing

		msg  = name & "如果密码发送不成功，请Email到：[e-mail].填写好以上的信息，客服人员会尽快给你发送密码。"
	else
		msg  = name & "如果密码发送不成功，请Email到：[e-mail].填写好以上的信息，客服人员会尽快给你发送密码。"
	end if
%>
<script language=javascript>
alert ('<%=msg%>');
window.open ("/main.asp", "_self");
</script>
<%
end if

rs.close
Dbcon.close
%>