通过一次查询按类别输出数据的两种方法-CSDN博客

本文链接：https://blog.csdn.net/weixin_34163553/article/details/85136686

经常在论坛上碰到一些新学ASP开发的朋友咨询如何通过查询按类别输出数据，而通常用的方法是先查询出各类别，然后通过循环一个一个的再查询出该类别的数据输出。这个办法是最简单的，但是也是比较耗费资源和效率比较低的。下面我介绍两个方法，都是只查询一次就可以输出的，希望对大家有所帮助。

本例子所使用的数据库结构如下：

(一) 通过一个变量控制输出

代码如下：

<%@Language=VBScript CodePage=936%>
<%
Option Explicit
dim conn,rs,currentClassname
Set Conn=Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq= test.mdb;"
set rs=conn.execute("select id,classname,title from test order by classname,title")
currentClassname=""
do while not rs.eof
if currentClassname<>rs("classname") then
if currentClassname="" then
response.write "<table>" & vbcrlf
else
response.write "</table><br /><table>" & vbcrlf
end if
currentClassname=rs("classname")
response.write "<tr><td align='center' style='font-weight:bold;'>"&currentClassname&"</td></tr>"& vbcrlf
end if
response.write "<tr><td><a href='test.asp?id="&rs("id")&"'>"&rs("title")&"</a></td></tr>"& vbcrlf
rs.movenext
loop
response.write "</table>"& vbcrlf
%>
rs.close
set rs=nothing
conn.close
set conn=nothing

该方法要点有两个：

1、查询语句。

我们看看这个查询语句：select id,classname,title from test order by classname,title

红色字体部分就是要注意的，只有排序方式是先按类别排序的，我们才能得出我们需要的效果。

2、循环控制变量。

从代码中，我们可以看到currentClassname这个变量记录了当前的类别名称，当该名称发生该表的时候，也就意味着上一类别已经输出完成，需要更改我们的显示了。

(二) 通过ADO的Shape命令查询结果。

我们先看看Shape命令在ADO中的说明：

“数据构形 ”定义了成形 Recordset 的列、由列代表的条目之间的关系以及数据充填到 Recordset 的方式。

成形的 Recordset 可以由如下类型的列组成：

Shape 命令可以包含子句，指定针对基本数据提供者并将返回 Recordset 对象的查询命令。查询的语法取决于对基本数据提供者的要求。虽然 ADO 并不要求使用任何指定的查询语言，但通常是使用结构化查询语言 (SQL)。

您可以使用 SQL JOIN 子句关联两个表，但是，分级 Recordset 可以更有效地表达信息。由 JOIN 创建的 Recordset 的每行会多余地重复一个表中的信息。分级 Recordset 的多个子 Recordset 对象中，每个对象仅有一个父 Recordset。

Shape 命令可以仅由 Recordset 对象发出。

Shape 命令可以嵌套，即父命令或子命令本身可以是另一个 Shape 命令。

有关定位分级 Recordset 的详细信息，请参阅访问分级 Recordset 中的行。

有关语法正确的 Shape 命令的详细信息，请参阅形状语法格式。

合计函数、CALC 函数和 NEW 关键字

数据构形支持如下函数。 chapter-alias 是指定给包含了将被操作列的子集名称。

chapter-alias（子集 -别名）可以是完整的，由指向包含 column-name 的子集的每个子集列名称组成，全部用句号分隔。例如，如果父子集 chap1 包含拥有数量列 amt 的子子集，则完整名即是 chap1.chap2.amt。

然后我们可以写出如下代码：

<%@Language=VBScript CodePage=936%>
<%
Option Explicit
dim conn,rs,rschapClassname
Set Conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=MSDataShape;Data Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};Dbq=D:/projects/homepage/test/sample1/test.mdb;"
set rs=conn.execute( "SHAPE {select DISTINCT classname from test order by classname }" & vbcrlf & _
"APPEND ({select id,title,classname from test} " & vbcrlf & _
"RELATE classname TO classname) AS chapClassname")
do while not rs.eof
response.write "<table>" & vbcrlf & _
"<tr><td align='center' style='font-weight:bold;'>"&rs("classname")&"</td></tr>"& vbcrlf
set rschapClassname=rs("chapClassname").value
do while not rschapClassname.eof
response.write "<tr><td><a href='test.asp?id="&rschapClassname("id")&"'>"&rschapClassname("title")&"</a></td></tr>"& vbcrlf
rschapClassname.movenext
loop
response.write "</table>" & vbcrlf
rs.movenext
loop
rschapClassname.close
set rschapClassname=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing