register.asp

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

<!--#INCLUDE FILE="../../database/conn.asp"-->
<!--#INCLUDE FILE="registerhead.asp"-->
<% 
	Dim id,admin,password, chaoji 

	admin="'%"& trim(Request.Form("admin"))&"'"
  	chaoji=CInt(Request.form("chaoji"))
	
     if admin="" then 
		admin="'%'"
	 end if		
	 SQL="select * from admin "	
	 if admin<> "'%'" then
		 SQL=SQL +" where "
		if  admin<>"'%'"  then SQL=SQL&" admin like "& admin&" and "	
 		
		SQL=left(SQL,len(SQL)-4)  '函数去掉最后的 and 
	end if 
	
  		Set Rs = Server.CreateObject("ADODB.RECORDSET")
		Rs.Open Sql,Conn,1,3         '获取的记录集 
	 '公共翻页模块开始%>
	 <!--#include file=../../Pub/TurnPage.asp-->
	 
	 <%
	Dim RowCount,lRowCount
		RowCount = 6             '每页显示的记录条数		
		lRowCount=0
	Call TurnPage(Rs,RowCount)   '输入参数 rs 与RowCount 即记录集与每页记录数
	'公共翻页模块结束%>
	<form name=del method=post >
	<table width=600  bgcolor=#999999 border=0 cellpadding=1 cellspacing=1 >
	<tr>
	<td align=center width=35>选中</td>	
	<td align=center  width=133>用户帐号</td>
  	<td align=center  width=218>审查状态</td> 
    <td width="201"> 操作</td>
	</tr>
	<%
	if not Rs.eof then 
		 Do while Not Rs.EOF and RowCount>0
		lRowCount=lRowCount+1
	 lRowCount=lRowCount+1
	 yushu=lRowCount mod 2 
		    if yushu  then
			 response.write "<tr bgcolor='#99CC99'>"
			else
			response.write "<tr bgcolor='#CCFFCC'>"
			end if %>
     <td align=center width=35 bgcolor=#FFFFFF>
    <INPUT type="checkbox" name=mid value='<%=trim(Rs.fields("id"))%>'></td>
      <td align="center"><a href="registerxiugai.asp?id=<%=Rs.fields("id")&""%>")"><%=Rs.fields("admin")&""%></a></td>
 	 <td align="center"  width=218 bgcolor=#FFFFFF>
	<%
		if  Rs.fields("chaoji")="1" then 	response.Write("批准")
		if  Rs.fields("chaoji")<>"1" then 	response.Write("未批准")	
	%>
	   </td>
       <td align="right"> <a href="userdel.asp?id=<%=Rs.fields("id")&""%>")"> 删除</a>|
        <a href="pizhun.asp?id=<%=Rs.fields("id")&""%>")""> 批准</a>|
        <a href="quxiao.asp?id=<%=Rs.fields("id")&""%>")""> 撤消批准</a></td> 
	</tr>
	<% 
		RowCount = RowCount - 1
 		Rs.MoveNext
 	 Loop
	 %>
<tr> <td colspan="3"> 共有 <FONT COLOR="#0000FF"><%=Rs.recordcount%></FONT> 条纪录</td></tr>
 </table>

<table  width="600">
<tr><input type=hidden name=id_pass>
<td width=40 height=20 bgcolor=dcdcdc align=center>编辑</td>

<td width=570><input type="checkbox" name=all value=1 onclick=selectall(<%=lRowCount%>)> 全选　

|<A HREF="javascript:Delete('userupdate.asp')" >永久删除</A>|   <A HREF= "javascript:check('userupdate.asp')" >批准</A>|   <A HREF="javascript:uncheck('userupdate.asp')" >未批准操作</A></td>
</tr></table>
<%else%>
<table>
<tr>
<td></td>
<td></td>
<td></td>
<td></td> 
<td colspan=4 align=right>查询结果为0</td></tr>
</table> 
<% end if %>
</form>
</body>
</html>