useradd.asp

管理登录system 管理员：admin 密码：admin888 数据库链接文件： conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy

<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="MD5.asp"-->

<%
Sex="男"
   addyes=trim(request.QueryString("add"))
   addyes2=trim(request.QueryString("add2"))
   idd=trim(request.QueryString("idd"))   
   if  addyes="addRe" and addyes2="" then

      '如果编辑的内容很多，上传速度太慢，请设置以下的时间，单位秒
      Server.ScriptTimeout = 1000
      '==============
      Uname=trim(request.Form("Uname")) 
      Uname1=trim(request.Form("Uname1")) 
	  Sex=trim(request.Form("Sex"))
      Upass=trim(request.Form("Upass")) 
      Upass1=trim(request.Form("Upass1"))
      UpassS1=trim(request.Form("UpassS1"))
      UpassS2=trim(request.Form("UpassS2"))
      Ucom=trim(request.Form("Ucom")) 
      Uadd=trim(request.Form("Uadd"))
      Utel=trim(request.Form("Utel")) 
      Umtel=trim(request.Form("Umtel")) 
      Ufax=trim(request.Form("Ufax"))
      Ucode=trim(request.Form("Ucode")) 
      Uemail=trim(request.Form("Uemail"))
      Utemp=trim(request.Form("Utemp"))
	  GroupID=trim(request.Form("GroupID")) 
      '===================================
      if len(Uname)<4 or isempty(Uname) or len(Uname)>10  then
         response.write "<script language=javascript> alert('用户名必填，且字符数为4-10位！');history.back(-1);</script>"
         response.end
      end if 
      if len(Upass)<6 or isempty(Upass)  then
         response.write "<script language=javascript> alert('密码长度必须大于或等于6位的！');history.back(-1);</script>"
         response.end
      end if 
	  if Upass<>Upass1  then
        response.write "<script language=javascript> alert('两次输入密码不一样！');history.back(-1);</script>"
        response.end
      end if 
	  tempsql = "Select * From UserInfo Where Uname = '"&Uname&"'"
      set rsU = conn.Execute(tempsql)
      If Not rsU.EOF Then
         response.write "<script language=JavaScript>" & chr(13) & "alert('此用户名已经有人使用了！');" & "history.back()" & "</script>"
         Response.End
      End If
	  rsU.close
      set rsU=nothing

      sql="select * from UserInfo where (id is null)" 
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,1,3	
      rs.addnew
	  rs("Uname")=Uname
	  rs("Uname1")=Uname1
	  rs("Sex")=Sex
	  rs("Upass")=MD5(Upass)
	  rs("UpassS1")=UpassS1
	  rs("UpassS2")=MD5(UpassS2)
	  rs("Ucom")=Ucom
	  rs("Uadd")=Uadd
	  rs("Utel")=Utel
	  rs("Umtel")=Umtel
      rs("Ufax")=Ufax
	  rs("Ucode")=Ucode
      rs("Uemail")=Uemail
	  rs("Utemp")=Utemp
	  rs("GroupID")=GroupID
	  
      rs.update
	  response.Redirect "UserAll.asp" 
	  rs.close
      set rs=nothing
	end if

      '===================================
	 
if addyes2="yestoupdate" and addyes="UpdateRe" then  
    sql = "select * from UserInfo where id="&idd&"" 
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
	Uname=trim(rs("Uname")) 
	Uname1=trim(rs("Uname1"))
	Sex=trim(rs("Sex"))
    UpassS1=trim(rs("UpassS1")) 
	Ucom=trim(rs("Ucom")) 
    Uadd=trim(rs("Uadd"))
    Utel=trim(rs("Utel")) 
    Umtel=trim(rs("Umtel")) 
    Ufax=trim(rs("Ufax"))
    Ucode=trim(rs("Ucode")) 
    Uemail=trim(rs("Uemail"))
    Utemp=trim(rs("Utemp")) 
    GroupID=trim(rs("GroupID")) 
	rs.close
    set rs=nothing
end if
'===================================	 
'取得修改数据
'===================================	 

if addyes2="yestoupdate" and addyes="addRe" then  
	  tempsql = "Select * From UserInfo Where Uname = '"&Uname&"'"
      set rsU = conn.Execute(tempsql)
      If Not rsU.EOF Then
         response.write "<script language=JavaScript>" & chr(13) & "alert('此用户名已经有人使用了！');" & "history.back()" & "</script>"
         Response.End
      End If
	  rsU.close
      set rsU=nothing
   sql = "select * from UserInfo where id="&idd&"" 
   set rs=server.createobject("adodb.recordset")
   rs.open sql,conn,1,3
   rs("Uname")=trim(request.Form("Uname"))
   rs("Uname1")=trim(request.Form("Uname1"))
   rs("Sex")=trim(request.Form("Sex"))
   if len(trim(request.Form("Upass")))<>0 or len(trim(request.Form("Upass1")))<>0 then
	   if len(trim(request.Form("Upass")))<6 or isempty(trim(request.Form("Upass")))  then
          response.write "<script language=javascript> alert('密码长度必须大于或等于6位的！');history.back(-1);</script>"
          response.end
       end if 
	   if trim(request.Form("Upass"))<>trim(request.Form("Upass1"))  then
          response.write "<script language=javascript> alert('两次输入密码不一样！');history.back(-1);</script>"
          response.end
       else
		  rs("Upass")=MD5(trim(request.Form("Upass")))
	   end if
	end if
    rs("UpassS1")=trim(request.Form("UpassS1"))
    if len(trim(request.Form("Upasss1")))<>0 then
	   rs("UpassS2")=MD5(trim(request.Form("UpassS2")))
	end if
	rs("Ucom")=trim(request.Form("Ucom"))
    rs("Uadd")=trim(request.Form("Uadd"))
	rs("Utel")=trim(request.Form("Utel"))
	rs("Umtel")=trim(request.Form("Umtel"))
    rs("Ufax")=trim(request.Form("Ufax"))
	rs("Ucode")=trim(request.Form("Ucode"))
    rs("Uemail")=trim(request.Form("Uemail"))
    rs("Utemp")=trim(request.Form("Utemp"))
    rs("GroupID")=trim(request.Form("GroupID"))
    rs.update
	response.Redirect "UserAll.asp" 
	
	rs.close
    set rs=nothing 

end if
'===================================	 
'提交修改后的数据
'===================================	 

 
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="text.css" rel="stylesheet" type="text/css">
</head>
<body  topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="top/Ltop08.asp" -->
<table width="99%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<table width="99%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#EFEBEF">
<form name="UPform" method="post" action="UserAdd.asp?add=addRe&add2=<%=addyes2%>&idd=<%=idd%>">
  <tr>
    <td width="24%" align="right" bgcolor="#DEDFDE">登录名：</td>
    <td width="76%" bgcolor="#EBEBEB">
      <input name="Uname" type="text" class="myput" id="Rname" value="<%=Uname%>" size="30">
      <span class="BLUE"> *</span></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#DEDFDE">姓　名：</td>
    <td bgcolor="#EBEBEB"><input name="Uname1" type="text" class="myput" id="Rname" value="<%=Uname1%>" size="30">    </td>
  </tr>
  <tr>
    <td align="right" bgcolor="#DEDFDE">性　别：</td>
    <td bgcolor="#EBEBEB"><input type="radio" name="Sex" value="男" <%if Sex="男" then response.write "checked" %>>
      男
      <input type="radio" name="Sex" value="女" <%if NOT(Sex="男") then response.write "checked" %>> 
      女
</td>
  </tr>
  <tr>
    <td align="right" bgcolor="#DEDFDE">所属会员组别：</td>
    <td bgcolor="#EBEBEB">
<select name="GroupID" class="myput" id="GroupID">
<% 
set rs = server.createobject("adodb.recordset")
	rs.source = "select * from Nweb_UGroup order by GroupLevel "
    rs.open rs.source,conn,1,1
    if rs.recordcount=0 then
       response.write("没有栏目")
    end if
    while not rs.eof
%>
       <option value="<%=rs("GroupID")%>" style="background-color:#cccccc;" <%if GroupID=rs("GroupID") then response.write " selected" %>  >┠&nbsp;<%=rs("GroupName")%></option>
<%
        rs.movenext
    wend
    rs.close
set rs=nothing
%>
      </select></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#DEDFDE">密　码：</td>
    <td bgcolor="#EBEBEB"><input name="Upass" type="password" class="myput"  id="Upass" size="20">
      <span class="BLUE">*</span>（空表示不修改）</td>
  </tr>
  <tr>
    <td align="right" bgcolor="#DEDFDE">验证密码：</td>
    <td bgcolor="#EBEBEB"><input name="Upass1" type="password" class="myput"  id="Upass1" size="20">
      <span class="BLUE">*</span>（空表示不修改）</td>
  </tr>
  <tr>
    <td align="right" bgcolor="#DEDFDE">密码保护提示问题：</td>
    <td bgcolor="#EBEBEB"><input name="UpassS1" type="text" id="UpassS1" class="myput"  value="<%=UpassS1%>" size="20">    </td>
  </tr>
  <tr>
    <td align="right" bgcolor="#DEDFDE">密码提示答案：</td>
    <td bgcolor="#EBEBEB"><input name="UpassS2" type="text" class="myput"  id="UpassS2" size="20">
      <span class="BLUE">*</span>（空表示不修改）</td>
  </tr>
  <tr>
    <td width="24%" align="right" bgcolor="#DEDFDE">发布日期：</td>
    <td bgcolor="#EBEBEB"><%=date()%></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#DEDFDE">单位名称：</td>
    <td bgcolor="#EBEBEB"><input name="Ucom" type="text" class="myput" id="Ucom" value="<%=Ucom%>" size="40"></td>
  </tr>
    <tr>
    <td width="24%" align="right" bgcolor="#DEDFDE">地　址：</td>
    <td bgcolor="#EBEBEB"><input name="Uadd" type="text" class="myput" id="Uadd" value="<%=Uadd%>" size="40"></td>
  </tr>
    <tr>
      <td align="right" bgcolor="#DEDFDE">电　话：</td>
      <td bgcolor="#EBEBEB"><input name="Utel" type="text" class="myput" id="Utel" value="<%=Utel%>" size="20"></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#DEDFDE">手　机：</td>
      <td bgcolor="#EBEBEB"><input name="Umtel" type="text" class="myput" id="Umtel" value="<%=Umtel%>" size="20"></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#DEDFDE">传　真：</td>
      <td bgcolor="#EBEBEB"><input name="Ufax" type="text" class="myput" id="Ufax" value="<%=Ufax%>" size="20"></td>
    </tr>
      <tr>
    <td width="24%" align="right" bgcolor="#DEDFDE">邮　编：</td>
    <td bgcolor="#EBEBEB"><input name="Ucode" type="text" class="myput" id="Ucode" value="<%=Ucode%>" size="20"></td>
  </tr>
        <tr>
    <td width="24%" align="right" bgcolor="#DEDFDE">电子邮件：</td>
    <td bgcolor="#EBEBEB"><input name="Uemail" type="text" class="myput" id="Uemail" value="<%=Uemail%>" size="20">
      <span class="BLUE">*</span></td>
  </tr>
    <tr>
    <td align="right" bgcolor="#DEDFDE">通过验证：</td>
    <td bgcolor="#EBEBEB"><input name="Utemp" type="radio" value="1" checked>是
        <input type="radio" name="Utemp" value="0">否</td>
    </tr>
    <tr bgcolor="#DEDFDE">
      <td height="50" style='BORDER-BOTTOM: #333333 1px solid'>&nbsp;</td>
      <td style='BORDER-BOTTOM: #333333 1px solid'><input type="submit" name="Submit" value=" 添 加 ">
        <input type="reset" name="Submit2" value=" 重 置 "></td>
    </tr>
  </form>
</table>