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

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

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

'= 最后日期：2006-3.1
'====================================================================
cj_select="yes"
%>
<!-- #include file="admin_top.asp"-->

<%
url=request.ServerVariables("QUERY_STRING")
if Request.Querystring("type")="del" Then
Call del("id="&Request.Querystring("idid"),"cj_"&Request.Querystring("ljlj"))
urls=Replace(url,"&ljlj="&Request.Querystring("ljlj"),"")
urls=Replace(urls,"&idid="&Request.Querystring("idid"),"")
urls=Replace(urls,"&type=del","")
urls="student_adminlook.asp?"&urls
Response.Redirect urls
End If 



call cj_top_info("成绩管理－搜索结果","y","manage_results.asp",4)
Call search(0,"98%")
R1=request("R1")
lj=request("lj")
if request("xhxm")="" Or lj="" Then
	response.write "<script language=JavaScript>" & chr(13) &"window.location.href = '"&cj_SystemFolder&"error.asp?error=请输入查询条件!&pages=2&url="&http&"'"&" </script>"
    Response.End
End if

set rs=server.createobject("adodb.recordset")
If R1="V1" Then
	xh=request("xhxm")
	sql="select * from cj_"&lj&" where xh like '%"&xh&"%' order by cj desc"
elseIf R1="V2" Then 
	user=request("xhxm")
	sql="select * from cj_"&lj&" where user like '%"&user&"%' order by cj desc"
End If 
response.write sql
'response.end
rs.open sql,conn,1,1
if rs.EOF and rs.BOF Then
	response.write "<center>没有找到相关信息，请重新搜索！"
	Response.End 
Else


%>
 <table width="98%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
					<tr class="title" align="center"> 
		<td width="5%" >名次</td>
		<td width="13%">学号</td>
							<td width="13%">姓名</td>
							<td width="18%">课程</td>
							<td width="13%">成绩</td>
							<td width="13%">学期</td>
							<td width="13%">班级</td>
							<td width="13%">操作</td>
					</tr>
					<%
					page = CLng(request("page")) 
					rs.MoveFirst
					rs.PageSize = 20  '每页显示的条数  
					If page < 1 Then page = 1 
					If page > rs.PageCount Then page = rs.PageCount  
					rs.AbsolutePage = page
					For i = 1 To rs.PageSize
					set rs1=server.createobject("adodb.recordset")
					sql="select bj,kc,xq from bjb,kcb,xqb where ljbj_id=bjb.id and xq_id=xqb.id and kcb.id="&rs("kcb_id")
					rs1.open sql,conn,1,1
					%>


				<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
                    <td align="center"><%=rs("mc")%></td>
                    <td align="center"><%=rs("xh")%></td>
                    <td align="center"><%=rs("user")%></td>
                    <td align="center"><%=rs1("kc")%></td>
					<td align="center"><%
					If rs("cj")<>-1 Then
						response.write rs("cj")
					End If 
					If rs("lx")<>"" Then
						response.write "("
						response.write rs("lx")
						response.write ")"
					End If 
					%></td>
					<td align="center"><%=rs1("xq")%></td>
					<td align="center"><%=request("lj")%>级<%=rs1("bj")%>班</td>
					<td align="center">
					<a href="updata.asp?kind=date&lj=<%=request("lj")%>&id=<%=rs("id")%>"  class="blue" >修改</a>&nbsp; 
                    <a href="student_adminlook.asp?<%=url%>&type=del&ljlj=<%=request("lj")%>&idid=<%=rs("id")%>" class="blue" onclick="return confirm('确定要删除这条成绩信息吗？');">删除</a>
					</td>
                </tr>
					<%
					rs.movenext
					If rs.EOF Then Exit For 
					Next 
					end if
					%>
           </table>
		   <table border="0" align="center" cellpadding="0" cellspacing="0" width="742">
				<tr align="center">
					<td height="25">
					共有：<%=rs.recordCount%>名学生
					  <%
						If page = 1 Then 
						   Response.Write "<font class='white'>首页　上一页</font>" 
						End If
						If page <> 1 Then
						   Response.Write "<a href='"&Replace("student_adminlook.asp?"&url,"page="&page&"","page=1")&"' class='yellow' class='yellow'>首页</a>" 
						   Response.Write "　<a href='"&Replace("student_adminlook.asp?"&url,"page="&page&"","page=" & (page -1) & "")&"' class='yellow' class='yellow'>上一页</a>" 
						End If
						If page <> RS.PageCount Then 
						   Response.Write "　<a href='"&Replace("student_adminlook.asp?"&url,"page="&page&"","page=" & (page +1) & "")&"' class='yellow' class='yellow'>下一页</a>" 
						   Response.Write "　<a href='"&Replace("student_adminlook.asp?"&url,"page="&page&"","page=" & RS.PageCount & "")&"' class='yellow' class='yellow'>尾页</a>" 
						End If 
						If page = RS.PageCount Then 
						   Response.Write "　<font class='white'>下一页　尾页</font>" 
						End If
					  %>	
					  			  页次:<strong><font color=red><%=page%></font>/<%=rs.PageCount%></strong>  跳转：<select onchange="location=this.options[this.selectedIndex].value">
			  <% For pags=1 To rs.PageCount
				%>
				<option value=<%
				response.write Replace("student_adminlook.asp?"&url,"page="&page,"page=" & pags)
				If pags=page Then response.write " selected" 
				%>><%=pags%></option>
				<%
				Next 
				%>
				</select>
					</td>
					
				</tr>
		   </table> 	
<!--#include file="../inc/copyright.asp"-->