www.gusucode.com > 25175 学生成绩管理查询系统码程序 > ADMIN/admin_user.asp

    <!-- #include file="inc.asp" -->
<!-- #include file="../config.asp" -->
<!-- #include file="../conn.asp"-->


<%
'====================================================================
'25175成绩查询管理系统
'powered by 25175
'=-------------------------------------------------------------------
'= 文件名称：admin_user.asp
'= 摘    要：学号管理文件
cj_webtit="后台管理首页 - 学号管理"
cj_webmap="<a href=admin.asp class=Class>后台管理首页</a> - 学号管理"

'= 最后日期：2006-3.1
'====================================================================
Call admin_log
Call admin_yz(1)
%>
<!-- #include file="admin_top.asp"-->		
<!-- #include file="../images/jav2.inc" -->
<!-- #include file="../inc/Cls_ShowoPage.asp"-->
<% Call admin_xh_top("学号列表")%>
<table width="742" border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
	<form method="POST" id=form1 name=form1>
	<tr class='title' align="center">
		<td width="30"><b>选框</td>
		<td width="65"><b>年级</td>
		<td width="90"><b>班级</td>
		<td width="130"><b>学号</td>
		<td width="77"><b>姓名</td>
		<td width="30"><b>性别</td>
		<td width="150"><b>注册时间</td>
		<td width="30"><b>操作</td>
	</tr>
<%
Dim ors,lines
Set ors=new Cls_ShowoPage	'创建对象
With ors
	.Conn=conn			'得到数据库连接对象
	.DbType="AC"
	'数据库类型,AC为access,MSSQL为sqlserver2000,MSSQL_SP为存储过程版,MYSQL为mysql,PGSQL为PostGreSql
	.RecType=0
	'取记录总数方法(0执行count,1自写sql语句取,2固定值)
	.RecSql=0
	'如果RecType＝1则=取记录sql语句，如果是2=数值，等于0=""
	.RecTerm=1
	'取从记录条件是否有变化(0无变化,1有变化,2不设置cookies也就是及时统计，适用于搜索时候)
	.CookieName="recac"	'如果RecTerm＝2,cookiesname="",否则写cookiesname
	.Order=1			'排序(0顺序1降序),注意要和下面sql里面主键ID的排序对应
	.PageSize=11		'每页记录条数
	.JsUrl="../inc/"			'showo_page.js的路径
	liness="user.id,lj,bj,xh,xm,mm,sex,data"
	tabless="user,bjb,ljb"
	condss="ljb_id=ljb.id and ljbj_id=bjb.id"
	orderss="data"
	mostss="user.id"

	If Checkstr(request.querystring("kind"))="lj" Then 
		lj=Checkstr(request.querystring("lj"))
		condss=condss&" and lj='"&lj&"'"
	ElseIf Checkstr(request.querystring("kind"))="xh" Then 
		xh=Checkstr(request("xh"))
		condss=condss&" and xh like '%"&xh&"%'"
	ElseIf Checkstr(request.querystring("kind"))="xm" Then 
		xm=Checkstr(request("xm"))
		condss=condss&" and xm like '%"&xm&"%'"
	End if
	.Sql=liness&"$"&tabless&"$"&condss&"$"&orderss&"$"&mostss '字段,表,条件(不需要where),排序(不需要需要ORDER BY),主键ID
End With
iRecCount=ors.RecCount()'记录总数
iRs=ors.ResultSet()		'返回ResultSet
If  iRecCount<1 Then%>
	<tr>
		<td colspan=7 align="center">
	    <table border="0" cellpadding="0" cellspacing="0" >
		  <tr><td height="25" >对不起，还没有记录！</td></tr>
	    </table>
	</td>
	</tr>
<%
Else
	For i=0 To Ubound(iRs,2)
		bgColor="#FFFFFF"
		if i mod 2=0 then bgColor="#f0f0f0"
			%>
	<tr align="center" bgColor="<%=bgColor%>">
		<td><input type="checkbox" name="answer" value="<%=iRs(0,i)%>" id="Checkbox1"></td>
		<td><%=iRs(1,i)%></td>
		<td><%=iRs(2,i)%></td>
		<td><%=iRs(3,i)%></td>
		<td><%=iRs(4,i)%></td>
		<td><%=iRs(6,i)%></td>
		<td><%=iRs(7,i)%></td>
		<td><a href="updata.asp?kind=user&id=<%=iRs(0,i)%>&lj=<%=iRs(1,i)%>&bj=<%=iRs(2,i)%>">修改</a></td>
	</tr>
	<%
	Next	
End If
%>

    <tr>
	<td height="20" colspan="12">&nbsp;&nbsp;<input type="checkbox" name="chkall" value="on" onClick="checkall(this)" id="Checkbox2">
	  选中所有的显示学生&nbsp;&nbsp;<input type="button" name="btnDelete" value="删除" style='font-family: 宋体; font-size: 9pt;' onClick="del()" id="Button1">&nbsp;<input type="reset" name="b" value="重置" style='font-family: 宋体; font-size: 9pt;' id="Button1">
	</td>
    </tr>
    </form>
</table>
 <table width="750" border="0" cellspacing="2" cellpadding="2" align="center">
    <tr><td><%ors.ShowPage()%></td></tr>  
</table>



<!-- #include file="../inc/copyright.asp"-->