user_reg_write.asp

树型ASP论坛下载

<% response.Buffer=0 %>
<!--#include file="opendb.asp" -->
<%
nickname=Trim(request("nickname"))
pwd=Trim(request("pwd"))
pwd2=Trim(request("pwd2"))
truename=Trim(request("truename"))
sex=request("sex")
birthday_yyyy=Trim(request("birthday_yyyy"))
birthday_mm=Trim(request("birthday_mm"))
birthday_dd=Trim(request("birthday_dd"))
 birthday=birthday_yyyy&"-"&birthday_mm&"-"&birthday_dd
marriage=Trim(request("marriage"))
idcard=Trim(request("id_no"))
job=request("job")
education=request("education")
email=Trim(request("email"))
net_msg_name=Trim(request("net_msg_name"))
net_msg_no=Trim(request("net_msg_no"))
url=Trim(request("url"))
tel=Trim(request("tel"))
fax=Trim(request("fax"))
mobile=Trim(request("mobile"))
area=request("area1")+Trim(request("area2"))
address=Trim(request("address"))
zipcode=Trim(request("zipcode"))
hear_from=request("hear_from")
email_flag=Trim(request("email_flag"))
msg_mode_txt=Trim(request("msg_mode_txt"))
usign=Trim(request("usign"))
%>
<%
set rs1=server.Createobject("ADODB.Recordset")
rs1.open "select nickname from users where nickname='"&nickname&"'",conn,1,3
if rs1.recordcount>0 then%>
    <script language="javascript">
	 alert("在本站已经有人用<%=trim(request("nickname"))%>这个用户名啦，\n返回请另选一个吧！");
	history.go(-1);
	</script>
<%end if
set rs1=nothing%> 

<%if nickname="" then%>
  <script language="javascript"> 
  alert("请输入用户名！");
  //document.location.href="index.asp"
  history.go(-1);
  </script> 
<%end if%>
<%if len(pwd)<4 then%>
  <script language="javascript"> 
  alert("请输入密码,不能少于4位！");
  //document.location.href="index.asp"
  history.go(-1);
  </script> 
<%end if%>
<%if pwd<>pwd2 then%>
  <script language="javascript"> 
  alert("确认密码和密码不一样！");
  //document.location.href="index.asp"
  history.go(-1);
  </script> 
<%end if%>
<%if not isdate(birthday) then%>
  <script language="javascript"> 
  alert("出生日期不正确！");
  //document.location.href="index.asp"
  history.go(-1);
  </script> 
<%end if%>
<%
	'Response.Write hear_from
	'Response.end
 '事务处理和卷回处理
 conn.BeginTrans
set rs1=server.createobject("adodb.recordset")
     rs1.open "select * from users",conn,1,3
     rs1.addnew
	 rs1("nickname")=nickname
	 rs1("password")=pwd
	 rs1("truename")=truename
	 rs1("sex")=cint(sex)
	 rs1("birthday")=cdate(birthday)
	 rs1("marriage")=cint(marriage)
	 rs1("idcard")=idcard
	 rs1("job")=cint(job)
	 rs1("education")=cint(education)
	 rs1("area")=area
	 rs1("net_msg_name")=cint(net_msg_name)
	 rs1("net_msg_no")=net_msg_no
	 rs1("mobile")=mobile
	 rs1("tel")=tel
	 rs1("fax")=fax
	 rs1("zipcode")=zipcode
	 rs1("address")=address
	 rs1("email")=email
	 rs1("url")=url
	 if hear_from<>"" then
	 rs1("hear_from")=cint(hear_from)
	 end if
	 if email_flag<>"" then
	 rs1("email_flag")=cint(email_flag)
	 end if
	 if msg_mode_txt<>"" then
	 rs1("msg_mode_txt")=cint(msg_mode_txt)
	 end if
	 rs1("usign")=usign
	 'rs1("usign2")=usign2
	 'rs1("usign3")=usign3
	 rs1("lastip")=Request.ServerVariables("REMOTE_ADDR")
     rs1.update
     rs1.Close
    set rs1=nothing


  if conn.Errors.Count=0 then
   conn.CommitTrans 
  else
   conn.RollbackTrans 
  end if
  '完成事务处理和卷回处理


  response.redirect "user_reg_write_ok.asp"
%>