📄 gsly3.asp

📁 学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁

💻 ASP

字号:

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

<%
 xh=request("xh")
 zybj=request("zybj")
 bjbh=request("bjbh")
fnb=request("fnb")
  if Session.Contents("xh")=xh or Session.Contents("dm")=xh or Session.Contents("gws")=true then


  dim rs
 dim sql
 
  set rs1=server.createobject("adodb.recordset")
 sql1="SELECT * from xxld Order by bh" 

  rs1.open sql1,conn,1,1

 if rs1.eof then	
		response.write"<script language='javascript'>" 
		 response.write"alert('没有校级管理员！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
	
total=rs1.recordcount


%>

 
 
 <html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="config.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
          <div align="center"><b><font face="华文行楷" size="5" color="red">
            校级留言对象确认</font></b></div>      

      
        <div align="center"><b><font color="#0066FF">共找到<font color=red><%=total%></font>位校级管理员 
        </font></b></div>
    </td>
  </tr>
</table>



<center>

	<table border=1 cellpadding=1 cellspacing=1>
    <tr bgcolor=black style='color:white'>
    
    <td align=center>编号</td>
   <td align=center>管理级别</td>
<td align=center>姓名</td>
<td align=center>性别</td>
<td align=center>部门</td>
<td align=center>职务</td>
<td align=center>留言确认</td>

 


<%
do while not rs1.eof
i=i+1
xm=rs1("xm")
xb=rs1("xb")
bm=rs1("bm")
zw=rs1("zw")
bh=rs1("bh")



%>

  
  
  
<% 
 If sColor = "silver" Then
		sColor = "#cccccc"
	Else
		sColor = "silver"
	End If
   
	Response.Write("<tr bgcolor='" & sColor & "'>")	 
%> 
	 

  
  
  
  
  
  
  
    
    <td align=center><font color="red"><%=i%></font>　</td>
        <td align=center>校级　</td>
    <td align=center><%=xm%>　</td>
        <td align=center><%=xb%>　</td>
    <td align=center><%=bm%>　</td>
    <td align=center><%=zw%>　</td>
   <td align=center><a href=lrgg911.asp?sxh=<%=bh%>&xh=<%=xh%>&zw=<%=zw%>&xm=<%=xm%>&bjbh=<%=bjbh%>&fnb=<%=fnb%>&snb=校级管理员><font color="blue">写留言</font></a></td>

    </tr>
   

    
    
    
 <%
rs1.movenext
loop
Response.Write("</table>") 
Response.Write("</center>")


 %>

 
 
   <!--#include file="nnx.asp"-->

 
 <%

rs1.close
set rs1=nothing
conn.close
set conn=nothing
 
 
 
%>
     
   </body>
</html>


<%
else
  %>
  <body background="bg01.gif">
<p align="center">请重新登录!
<%
     
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -