📄
字号:
<%
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 Express 2.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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -