member_modify_ok.asp

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

<!-- #include virtual = /common/BombConnDB.asp -->
<!-- #include virtual = "/common/SiteUtils.asp" -->
<%
id = replace(trim(request.form("id")), " ", "")
if id <> "" then
	pw = trim(request.form("pw"))
	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

	%>
	<%
	if (pw = "") or (email = "") then%>
		<script language=javascript>
			alert ("鞘荐 亲格捞 何练钦聪促. ");
			history.back();
		</script>
	<%
	else
		sql =  "SELECT idx "
		sql = sql & "FROM   IB_Member "
		sql = sql & "WHERE  UserID = '" & id & "' " 
		set rs = server.CreateObject("ADODB.RecordSet")
		rs.Open sql, Dbcon, 1, 3

		if rs.EOF then
			call PageBack(id & "绰  粮犁窍瘤 臼绰 酒捞叼涝聪促")
		else
			auth_sql = "UPDATE IB_Member SET "
			auth_sql = auth_sql & "UserPWD = '" & pw & "', "
			auth_sql = auth_sql & "Zipcode = '" & zip1 & "-" & zip2 & "', "
			auth_sql = auth_sql & "JusoA = '" & addr1 & "', "
			auth_sql = auth_sql & "JusoB = '" & addr2 & "', "
			auth_sql = auth_sql & "Email = '" & email & "', "
			auth_sql = auth_sql & "TellNum = '" & tel & "', " 
			auth_sql = auth_sql & "HandPhone = '" & hp & "', "
			auth_sql = auth_sql & "Job = '" & job & "', "
			auth_sql = auth_sql & "NoMail = " & accept_mail & " "
			auth_sql = auth_sql & "WHERE  idx = '" & rs("idx") & "' "
			'response.write auth_sql
			'response.end
			Dbcon.Execute(auth_sql)

		%>
			<script language=javascript>
				alert ("雀盔 沥焊啊 荐沥 登菌嚼聪促.");
				location.href = "/main.asp";
			</script>
		<%
		end if

	end if
else
%>
	<script language=javascript>
		alert ("肋给等 立辟涝聪促..");
		location.href = "/main.asp";
	</script>
<%
end if
%>