📄 indexfb1.asp

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

💻 ASP

字号:



<%@ language=vbscript %>
<!--#include file="conn.asp"-->
<%


key = request.form("key")
if key="" then
 key=request("key")
end if

if  key="" then
sql="SELECT * from zybjmc Order by s" 
end if

sql="SELECT * from zybjmc where s like '%"&key&"%' or zybj like '%"&key&"%' Order by s" 

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
total=rs.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"><font color=red size="6" face="隶书">请选择班级</font></div>    
    <center>
<form name="form2" method="post" action="indexfb1.asp">
         请输入系或班级的名称<br>
                   <input type="text" name="key" size="30"><p>
          <input type="submit" name="Submit2" value="搜索或刷新">
       
</form>
</center>









  

        <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>

  



<%
do while not rs.eof
i=i+1
s=rs("s")
zybj=rs("zybj")
bjbh=rs("bjbh")
bjbh="b"+cstr(bjbh)



%>

  
  
  
<% 
 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><%=s%>　</td>
    <td align=center><%=zybj%>　</td>
    
    <td align=center><a href=index0f.asp?bjbh=<%=bjbh%>><font color="green">选中此班</font></a></td>
    </tr>
   

    
    
    
 <%
rs.movenext
loop

Response.Write("</table>") 
Response.Write("</center>")

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -