来自「我做的第一个学生管理系统」· 代码 · 共 67 行

TXT
67
字号
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl(mkmc)
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "database=school;uid=sa;pwd=;dsn=school"
Set rs=conn.Execute( "graduate_grade" )
%>
<html>
<style>
<!--
a{color:bule;text-decoration:none}
a:hover{color:red;text-decoration:underline}
-->
</style>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">

<title>毕业生年级选择</title>
</head>

<body background="../../images/di2001.jpg">

<p><img src="../../images/byczq.jpg"><hr color="#0000ff"></p>

<br>
<br>
<br>
<br>
<table border="7" align="center" bgcolor="#C0C0C0" width="372">
      <tr>
        <td bgcolor="#C0C0C0" width="40">毕业年度</td>
        <td bgcolor="#C0C0C0" width="40">入学年度</td>        
      </tr>
<%
   While Not rs.EOF
%>
      <tr>
        <td bgcolor="#C0C0C0" width="40"><a
        href="毕业成绩查询.asp?CategoryID=<%=rs("入学年度")%>"><%=rs("毕业年度")%></a></td>
        <td bgcolor="#C0C0C0" width="40"><a
        href="毕业成绩查询.asp?CategoryID=<%=rs("入学年度")%>"><%=rs("入学年度")%></a></td>
        
      </tr>
<%
      rs.MoveNext    
   Wend 
%>
    </table>
<SCRIPT language=javascript>
function click() {
if (event.button==2) {
alert('对不起,禁止使用此功能^_^.')
}
}
document.onmousedown=click
</SCRIPT>
<br><br>
<p align="right"><a href="../毕业管理.htm"><img src="../../images/back.gif" border="0" alt="返回毕业管理"></a>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="../../images/xkrj.gif">
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?