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

				
				
								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 = "go2qy@163.com"
						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到：go2qy@163.com.填写好以上的信息，客服人员会尽快给你发送密码。"
					else
						msg  = name & "如果密码发送不成功，请Email到：go2qy@163.com.填写好以上的信息，客服人员会尽快给你发送密码。"
					end if
				%>
				
				alert ('');
				window.open ("/main.asp", "_self");
				
								end if
				
				rs.close
				Dbcon.close
				%>