📄
字号:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "database=school;uid=sa;pwd=;dsn=school"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select 用户序号,用户名,描述 FROM USERSET"
RS.Open SQL,CONN,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<style>
<!--
A:link {text-decoration: none;}
A:hover {color:red;}
A.bb {text-decoration: underline;}
A.bbr {text-decoration: underline;color:#ff0000}
-->
</style>
<title>档案类别</title>
</head>
<body background="b01.jpg">
<p><font color="#ff0000" size="6">借书类别选择区：</font><br>
<img src="../images/Stripe1.gif" width="600" height="1" alt="Stripe1.gif (4224 字节)">
<ul>
<li><table border="4" align="center" width="387" height="85">
<tr>
<td bgcolor="#C0C0C0" width="102" height="37"> 类别编号</td>
<td bgcolor="#C0C0C0" width="273" height="37"> 类
别 名 称</td>
</tr>
<%
While Not rs.EOF
%>
<tr>
<td bgcolor="#C0C0C0" width="102" height="36"><a
href="tlbbh.asp?lbbh=<%=rs("类别编号")%>&lbmc=<%=rs("类别名称")%>"><%=rs("类别编号")%></a></td>
<td bgcolor="#C0C0C0" width="273" height="36"><a
href="tlbbh.asp?lbbh=<%=rs("类别编号")%>&lbmc=<%=rs("类别名称")%>"><%=rs("类别名称")%></a></td>
</tr>
<%
rs.MoveNext
Wend
%>
</table>
</li>
</ul>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -