newregisteradd.asp

学校勤工助学管理网站 功能可管理 考勤计算工资并进行等级评估。

<link href="pub.css" rel="stylesheet" type="text/css">
<!--#INCLUDE FILE="../pub/hanshu.asp"-->
<%
  dim userid,username,usertype,tel,addr,email,zip,pw1,pw2,temp,other
  dim errmsg  
  userid=request.form("userID") '用户ID 
  username=Request.Form("username")
  usertype=LTrim(request.Form("usertype"))
  tel=Request.Form("tel")
  addr=Request.Form("addr")
  email=Request.Form("email")
  zip=Request.Form("zip")
  pw1=Request.Form("password1")
  pw2=Request.Form("password2")
  other=request.form("other")
  if usertype="-selected" then usertype=""
  errmsg = ""
  if username="" then errmsg="姓名不能为空 "
  if usertype="" then errmsg="请选择用户类型! "
  if tel="" then 	 errmsg=errmsg & "联系电话不能为空 "  
  if addr="" then   errmsg=errmsg & "联系地址不能为空 "   
  if email="" then  errmsg=errmsg & "e-mail不能为空! "
  if zip="" then     errmsg=errmsg & "邮编不能为空! "
  if (pw1="" or pw1<>pw2) then   errmsg=errmsg & "密码错误!"
  	
  if  errmsg<>""  then		
	Response.Write errmsg  %>
	<script language="javascript">
	  alert("<%=errmsg%>")
	  history.back();
   </script>
<%	
	else	 
     sql="select * from userlist "            
   rs.open sql,conn,3,3   
   if rs.EOF=true then rs.MoveLast  
	rs.AddNew 	 
	rs("userid")=LTrim(userid)
	rs("username")=LTrim(username) 
	rs("usertype")=LTrim(usertype)
	rs("tel")=LTrim(tel )
	rs("addr")=LTrim(addr) 
	rs("zip")=LTrim(zip )
	rs("email")=LTrim(email) 
	rs("password")=LTrim(pw1)
	rs("other")=LTrim(other)
	rs.Update             
	rs.Close             
	conn.Close   
	set conn=nothing            
	set rs=nothing         
   %>            
   <script language="javascript">            
    alert("已经成功添加，请等待系统管理员批准!谢谢!")           
   document.location="../default.asp"            
    </script> 
<%end if%>