来自「我的图书管理系统」· 代码 · 共 55 行

TXT
55
字号
<%


Set conn = Server.CreateObject("ADODB.Connection")
conn.open "database=school;uid=sa;pwd=;dsn=school"
Set rs=conn.Execute( "recordsort_set" )
%>
<html>

<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="b01.jpg">

<hr>

<h2>档案类别选择区:</h2>

<ul>
  <li><table border="1" align="center">
      <tr>
        <td bgcolor="#00FFFF">序号</td>
        <td bgcolor="#00FFFF">档案名称</td>
        <td bgcolor="#00FFFF">档案文件</td>
        <td bgcolor="#00FFFF">建立日期</td>
        <td bgcolor="#00FFFF">主管</td>
      </tr>
<%
   While Not rs.EOF
%>
      <tr>
        <td bgcolor="#00FF00"><a
        href="学生基本档案资料录入.asp?CategoryID=<%=rs("档案文件")%>"><%=rs("序号")%></a></td>
        <td bgcolor="#00FF00"><a
        href="学生基本档案资料录入.asp?CategoryID=<%=rs("档案文件")%>"><%=rs("档案名称")%></a></td>
        <td bgcolor="#00FF00"><a
        href="学生基本档案资料录入.asp?CategoryID=<%=rs("档案文件")%>"><%=rs("档案文件")%></a></td>
        <td bgcolor="#00FF00"><a
        href="学生基本档案资料录入.asp?CategoryID=<%=rs("档案文件")%>"><%=rs("建立日期")%></a></td>
        <td bgcolor="#00FF00"><a
        href="学生基本档案资料录入.asp?CategoryID=<%=rs("档案文件")%>"><%=rs("主管")%></a></td>
      </tr>
<%
      rs.MoveNext    
   Wend 
%>
    </table>
  </li>
</ul>
</body>
</html>

⌨️ 快捷键说明

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