📄 08_05.asp

📁 ASPTest 网络基础网页设计

💻 ASP

字号:

<html>
<head>
<title>过滤应用实例</title>
</head>
<body>

<% 
Dim cn,rs1,rs2 '变量i用来表示当前记录所在位置

Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Driver={SQL Server};Server=yangwu;Database=ASPTest;" & _
          "UID=sa;PWD=admin"

Set rs1 = Server.CreateObject("ADODB.RecordSet")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
'取得出版社信息
rs1.Open "SELECT DISTINCT 出版社 FROM Chapter8",cn 
'取出所有记录
rs2.Open "SELECT * FROM Chapter8",cn
%>

<p align="center">按出版社分类图书信息</p>
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" width="616" align="center">
  <tr>
    <td width="45" align="center">编号</td>
    <td width="124" align="center">名称</td>
    <td width="57" align="center">作者</td>
    <td width="66" align="center">类别</td>
    <td width="94" align="center">出版日期</td>
    <td width="42" align="center">价格</td>
    <td width="42" align="center">页数</td>
  </tr>
<%
Do While Not rs1.Eof
%>
  <tr>
    <td width="598" colspan="7"><%=rs1(0)%></td>
  </tr>
<%
  rs2.Filter = "出版社 = '"& rs1("出版社") & "'"
  Do While Not rs2.Eof
%>
  <tr>
    <td width="45" align="center"><%=rs2(0)%></td>
    <td width="124" align="center"><%=rs2(1)%></td>
    <td width="57" align="center"><%=rs2(2)%></td>
    <td width="66" align="center"><%=rs2(3)%></td>
    <td width="94" align="center"><%=rs2(5)%></td>
    <td width="42" align="center"><%=rs2(6)%></td>
    <td width="42" align="center"><%=rs2(7)%></td>
  </tr>
<%  rs2.MoveNext
  Loop 
  rs1.MoveNext
Loop
%>  
</table>
<%
rs1.Close
Set rs1 = Nothing
rs2.Close
Set rs2 = Nothing
cn.Close
Set cn = Nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -