member_join_ok.asp

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

<!-- #include virtual = /common/BombConnDB.asp -->
<!-- #include virtual = "/common/SiteUtils.asp" -->
<%
partner_id = request.form("partner_id")
if partner_id = "" then partner_id = "BG"

accept_parent = request.form("accept_parent")
if accept_parents = "" then accept_parents = 0
if accept_parents = 0 then
	id = replace(trim(request.form("id")), " ", "")
	pw = trim(request.form("pw"))
	name = replace(trim(request.form("name")), " ", "")
	jumin1 = trim(request.form("jumin1"))
''	jumin2 = trim(request.form("jumin2"))
	email = trim(request.form("email"))
	accept_mail = request.form("accept_mail")
	if accept_mail = "" then accept_mail = 0
	zip1 = trim(request.form("zip1"))
	zip2 = trim(request.form("zip2"))
	if (zip1 = "" or zip2 = "") then
		zip = " "
	end if
	addr1 = trim(request.form("addr1"))
	if addr1 = "" then
		addr1 = " "
	end if
	addr2 = trim(request.form("addr2"))
	if addr2 = "" then
		addr2 = " "
	end if
	tel1 = trim(request.form("tel1"))
	tel2 = trim(request.form("tel2"))
	tel3 = trim(request.form("tel3"))
	tel = tel1 & "-" & tel2 & "-" & tel3	

	hp1 = trim(request.form("hp1"))
	hp2 = trim(request.form("hp2"))
	hp3 = trim(request.form("hp3"))
	hp = hp1 & "-" & hp2 & "-" & hp3	

	job = trim(request.form("job"))
	if job = "" then
		job = " "
	end if
	birth = "19" & left(jumin1, 2) & "-" & mid(jumin1, 3, 2) & "-" & right(jumin1, 2)
	sex = left(jumin2, 1)
	if sex = "1" then
		sex = 0
	else
		sex = 1
	end if

	sMoney = 0

	tmp_year  = CStr(Year(Date()))
	tmp_month = CStr(Month(Date()))
	tmp_day = CStr(Day(Date()))

	first_DateStr = DateSerial(tmp_year, tmp_month, tmp_day)
	last_DateStr = DateSerial("2003", "06", "02")

	if first_DateStr < last_DateStr then sMoney = 2000

%>
<%
	id_len = Len(id)
	if id_len < 4 then%>
		<script language=javascript>
			alert ("ID的长度必须大于4位!!");
			history.back();
		</script>
<%else
		if (id = "") or (pw = "") or (name = "") or (jumin1 = "") or (email = "") then%>
			<script language=javascript>
				alert ("必选项未填写完整 ");
				history.back();
			</script>
	<%elseif (Instr(id, "'") > 0) or (InStr(id, """") > 0) then%>
		<script language=javascript>
			alert ("请填写ID号");
			history.back();
		</script>
	<%else

			sql =  "SELECT * "
			sql = sql & "FROM   IB_Member "
			sql = sql & "WHERE  UserID = '" & id & "' " 
			set rs = server.CreateObject("ADODB.RecordSet")
			rs.Open sql, Dbcon, 1, 3

			if not rs.EOF then
				call PageBack(id & "绰  捞固 殿废等 酒捞叼涝聪促")
			else
				'霸烙叼厚俊 脚痹拌沥阑 积己茄促		
				auth_sql = "INSERT INTO IB_Member ( "
				auth_sql = auth_sql & "UserID,"
				auth_sql = auth_sql & "UserPWD,"
				auth_sql = auth_sql & "name,"
				auth_sql = auth_sql & "JuminA,"
				auth_sql = auth_sql & "JuminB,"
				auth_sql = auth_sql & "MF,"
				auth_sql = auth_sql & "Zipcode,"
				auth_sql = auth_sql & "JusoA,"
				auth_sql = auth_sql & "JusoB,"
				auth_sql = auth_sql & "Email,"
				'auth_sql = auth_sql & "sMoney,"
				auth_sql = auth_sql & "TellNum,"
				auth_sql = auth_sql & "HandPhone,"
				auth_sql = auth_sql & "Job,"
				auth_sql = auth_sql & "NoMail,"
				auth_sql = auth_sql & "AcceptParent, "
				auth_sql = auth_sql & "partner_tag "
				auth_sql = auth_sql & ") VALUES( "
				auth_sql = auth_sql & " '" & id & "', "
				auth_sql = auth_sql & " '" & pw & "', "
				auth_sql = auth_sql & " '" & name & "', "
				auth_sql = auth_sql & " '" & jumin1 & "', "
				auth_sql = auth_sql & " '" & jumin2 & "', "
				auth_sql = auth_sql & " " & sex & ", "
				auth_sql = auth_sql & " '" & zip1 & "-" & zip2 & "', "
				auth_sql = auth_sql & " '" & addr1 & "', "
				auth_sql = auth_sql & " '" & addr2 & "', "
				auth_sql = auth_sql & " '" & email & "', "
				'auth_sql = auth_sql & " '" & sMoney & "', "
				auth_sql = auth_sql & " '" & tel & "', "
				auth_sql = auth_sql & " '" & hp & "', "
				auth_sql = auth_sql & " '" & job & "', "
				auth_sql = auth_sql & " " & accept_mail & ", "
				auth_sql = auth_sql & " " & accept_parents & ", "
				auth_sql = auth_sql & " '" & partner_id & "' "
				auth_sql = auth_sql & ") "
				'response.write auth_sql
				'response.end
				Dbcon.Execute(auth_sql)

				if age = 14 then
					auth_sql = "INSERT INTO IB_MEMBER_PARENT ( "
					auth_sql = auth_sql & "a_idname,"
					auth_sql = auth_sql & "a_parent_name,"
					auth_sql = auth_sql & "a_parent_jumin,"
					auth_sql = auth_sql & "a_parent_phone"
					auth_sql = auth_sql & ") VALUES( "
					auth_sql = auth_sql & " '" & id & "', "
					auth_sql = auth_sql & " '" & p_name & "', "
					auth_sql = auth_sql & " '" & p_jumin & "', "
					auth_sql = auth_sql & " '" & p_phone & "' "
					auth_sql = auth_sql & ") "
					'response.write auth_sql
					'response.end
					Dbcon.Execute(auth_sql)
				end if

				Response.Cookies("LOGIN")("check") = "true"
				Response.Cookies("LOGIN")("bomb_id")   = id
				Response.Cookies("LOGIN")("bomb_name") = name
			%>
				<script language=javascript>
					alert ("你已成功注册疯狂炸弹人帐号，希望你玩的开心!!!");
					location.href = "/main.asp";
				</script>
			<%
			end if

		end if
	end if
else
%>
	<script language=javascript>
		alert ("何葛丛狼 悼狼甫 罐栏寂具 钦聪促.");
		history.back();
	</script>
<%
end if
%>