user_reg_modi_write.asp

树型ASP论坛下载

<% response.Buffer=0 %>
<% if session("userid")="" or session("nickname")=""then%>
  <script language="javascript"> 
  alert("您未登录或超时了，请重新登录！");
  document.location.href="login.asp"
  //history.go(-1);
  </script> 
<%'Response.redirect "login.asp"
else%>
<!--#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=Trim(request("area"))
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"))
'usign2=Trim(request("usign2"))
'usign3=Trim(request("usign3"))
%>
<%
if nickname<>session("nickname") then '如改了用户名,就检查是否新的用户名已被注册过
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
end if%> 

<%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 where userid="&session("userid"),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_modi_write_ok.asp"
 end if 
%>
<table width="93%" border="0" align="center">
  <tr> 
    <td align="center">修改成功</td>
  </tr>
  <tr>
    <td align="center">&nbsp;</td>
  </tr>
</table>