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

				
				
								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%>
						
							alert ("鞘荐 亲格捞 何练钦聪促. ");
							history.back();
						
										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)
				
						%>
							
								alert ("雀盔 沥焊啊 荐沥 登菌嚼聪促.");
								location.href = "/main.asp";
							
												end if
				
					end if
				else
				%>
					
						alert ("肋给等 立辟涝聪促..");
						location.href = "/main.asp";
					
								end if
				%>