user_modi1.asp

树型ASP论坛下载

<% response.Buffer=0 %>
<!--#include file="check.asp" -->
<!--#include file="opendb.asp" -->
<%
nickname=Trim(request("uid"))
pwd=Trim(request("pwd"))
pwd2=Trim(request("pwd2"))
truename=Trim(request("truename"))
sex=request("sex")
birthday=Trim(request("birthday"))
marriage=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("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"))
level=cint(request("level"))
%>
<%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 not isdate(birthday) then%>
  <script language="javascript"> 
  alert("出生日期不正确！");
  //document.location.href="index.asp"
  history.go(-1);
  </script> 
<%end if%>
<%

 '事务处理和卷回处理
 conn.BeginTrans
set rs1=server.createobject("adodb.recordset")
     rs1.open "select * from users where userid="&Request("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
	 'rs1("hear_from")=cint(hear_from)
	' rs1("email_flag")=cint(email_flag)
	 'rs1("msg_mode_txt")=cint(msg_mode_txt)
	 rs1("usign")=usign
	 'rs1("usign2")=usign2
	 'rs1("usign3")=usign3
	 rs1("level")=level
	 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.asp?page_code="&request("page_code")&"&right="&request("right")&""
%>