userupdate.asp

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

 <!--#INCLUDE FILE="../../database/conn.asp"-->
<% 
 Response.Write "<form name=form1>"	
	Dim Method,oRs
Method = Request.QueryString("method")
 
sub useroper()    '防止非法用户
	 select case   session("admin_name")
		case "sa"
		exit sub
		case "admin" 
		exit sub
		case "qw" 
		exit sub
		case else
		 
				 %>
			  <script language="javascript">
				alert("你无权访问案例查询模块！")
				history.back();
		   </script>
	 <%
	 end select
end sub

Select case Method
		case "add"  
		Add(conn)    
		case "edit" 
		Edit(conn)   
		case "Delete"
		Delete(conn)
		case "Query"
		call	Query(conn,Method)
		case "check"
		check(conn)
		case "uncheck"
		uncheck(conn)
		case "xiugaiPwd"
		xiugaiPwd(conn)
		End Select

Sub Add(conn)	
		  dim admin,pw1,pw2,chaoji
		  dim errmsg  
		  admin=request.form("admin") '用户ID 
 		  pw1=Request.Form("password1")
		  pw2=Request.Form("password2")
		  chaoji=request.form("chaoji")      '以上为传递数据到变量。
			
			errmsg = "" 
 		  if chaoji="-selected" then chaoji=""
		  if admidn=" " then errmsg= "帐号不能为空 "
 		  if (pw1=" " or pw1<>pw2) then   errmsg=errmsg & "密码错误!"
		
		  if  errmsg<>""  then		
			Response.Write errmsg  %>
            
			<script language="javascript">
			alert("<%=errmsg%>")
			  history.back();
		   </script>	
              
	<% else	
	     set rs=server.CreateObject("adodb.recordset") 
		 sql="select * from admin where admin='" &admin&"'" '防止帐号重复          
	     rs.open sql,conn,3,3   
		if not Rs.eof then
		%>		
		<table width=600  height="171" align=left>          
		<tr> 
		<td colspan="2" height="38"><%="用户帐号重复,请返回！！"%> </td>
		  </tr>
		  <tr> 
			<td colspan="2" height="52">&nbsp; </td>
		  </tr>
		  <tr>  
			<td width="193" align=right> 
			  <input type=button value="返回" name=cmdback onclick="history.back()">
			</td>
		  </tr>
		</table>
		<%
		  exit sub	
		  CleanUp(oRs)
		  else 
			rs.AddNew 	 
			rs("admin")=LTrim(admin)
 			rs("chaoji")=Trim(chaoji)
 			rs("password")=LTrim(pw1)
 			rs.Update             
		 	rs.Close             
		 	conn.Close   
			set conn=nothing            
			set rs=nothing 
			Response.Redirect "register.asp"
		  end if
	   end if
End Sub

'////////////////////////////////////////////////////////////////////////////////////
%> 
<%
Sub Edit(conn)
			dim id, admin,chaoji 
			dim EditSql	 
  		id="'"& trim(Request.Form("id"))&"'"
		admin="'"& trim(Request.Form("admin"))&"'"
		chaoji="'"& trim(Request.Form("chaoji"))&"'"
 		conn.execute( "update admin set  admin="&admin&",chaoji="&chaoji&" where id="&id )
		
  		 if error>0  then 
		         response.Write("数据出错，或者没有填写完整")
			 
		   else  response.Write("数据编辑完毕请点击<A  href=../xiugaiPwd.asp>返回</A>")
		End if  
		conn.close
		Response.Redirect "register.asp"
		
 End Sub 
  '////////////////////////////////////////////////////////////////////////////////////
 Sub xiugaiPwd(conn) 
Dim id,password,password1,password2
	id= Request.Form("id")
	password=request.form("password") 
	password1=request.form("password1")
	password2=request.form("password2")

	if password1<>password2 then %>
	<table>
	<tr>
	<td>
		<script language="javascript">
			alert("密码和密码确认不一致，请返回！")
			history.back();
       </script>
	</td>
	</table>		
	<%
		exit sub
		end if 
		set rs=server.CreateObject("adodb.recordset")
	 sql="select password from admin where password= '"&password &"'"	 
 	sql =sql &" and id=" &id
	 rs.open sql,conn,3,3   
	if not Rs.eof then
		conn.execute "update admin set password='" &password1 &"' where id="& id 
	%>
	<table>
	<tr>
	<td>密码修改完毕，请点击<A  href=../xiugaiPwd.asp>返回</A></td>
	</table>
	<%else%>	
	<table>
	<tr>
	<td>
		<script language="javascript">
			alert("旧密码不正确，你不能更改密码，请返回！")
			history.back();
	    </script>
	</td>
	</table>

	<%end if
	rs.close
	conn.close 
End Sub
'////////////////////////////////////////////////////////////////////////////////////

Sub check(conn) 
Dim plusDevicplat,i,checksql
	for each id in Request.Form("mid")
 			checksql="update userlist set chaoji='1'  where id='" &id&"'"
			conn.execute(checksql)	
	next%>
	<table>
	<tr>
	<td>数据审批完毕，请点击<A  href=register.asp>返回</A></td>
	</table>
	<%
	conn.close 
 End Sub
'////////////////////////////////////////////////////////////////////////////////////

Sub uncheck(conn) 
Dim plusDevicplat,i,unchecksql
	for each id in Request.Form("mid")
		if Session("userID")="admin" and Session("Ifadmission")="1"     then 
			unchecksql="update userlist set ifadmission='0'  where id='" &id&"'"	
			conn.execute(unchecksql)	
	    end if
	next%>
	<table>
	<tr>
	<td>数据未批准完毕，请点击<A  href=register.asp>返回</A></td>
	</table>
	<%
		conn.close 
	
	End Sub
 '////////////////////////////////////////////////////////////////////////////////////
	Sub Delete(conn) 
		Dim plusDevicplat,i,delsql
		for each id in Request.Form("mid")   '循环删除每一个
			delsql="delete from admin where id='" &id&"'"	
			conn.execute(delsql)	
		next%> 
	<table>
	<tr>
	<td>数据删除成功，请点击<A  href=register.asp>返回</A></td>
	</table>
	<%
	conn.close 
End Sub%>
	  </form>