【 tulaoshi.com - ASP 】
接上一篇文章：
ORDER BY
ORDER BY子句，可以设定排序的字段。
在一个SQL表达式之中，ORDER BY子句通常放置于最后。
若要以递减顺序来进行排序（Z~A，9 ~0），须于您要递减排序的每一字段的尾部加DESC字。譬如：
SELECT 姓名
FROM 员工
ORDER BY 工资 DESC, 年龄
表示[工资] 字段以递减顺序来进行排序，[年龄] 字段以递增顺序来进行排序。
ORDER BY子句中排序的字段，不可以包含MEMO字段类型或OLE对象类型，否则会发生错误。
在ORDER BY子句之中包含多个的字段时，首先以ORDER BY之后的第一个字段来进行排序。然后，若在此字段之中有相同的资料记录，才会以列第二字段来进行排序，依此类推。
GROUP BY
GROUP BY将查询的结果做统计，语法如下：
SELECT fieldlist
FROM table
WHERE criteria
[GROUP BY groupfieldlist]
使用WHERE子句，可以设定不想要做统计的资料，而使用HAVING子句可以筛选已经统计之后的字段。
不可以对MEMO字段类型或OLE对象类型的字段做统计，否则会发生错误。
譬如ASP程式rs22.asp如下，[SELECT 种类, Avg(价格) As 平均 From 产品 Group By 种类] 使用GROUP BY将查询的结果做 [种类] 统计，统计各个种类统计来平均价格Avg(价格)：
<%
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DBQ=" & Server.MapPath("ntopsamp.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Set rs2 = Server.CreateObject("ADODB.Recordset")
SqlStr = "SELECT 种类, Avg(价格) As 平均 From 产品 Group By 种类"
Response.Write "<pAvg(价格)"
rs2.Open SqlStr,conn1,1,1
Do while not rs2.EOF
Response.Write "<BR" & rs2("种类") & ": " & rs2("平均")
rs2.MoveNext
Loop
rs2.Close %
以上的 ASP程式rs22.asp，用户端使用浏览器，浏览执行的结果，显示依据 [种类] 统计来统计平均价格。
让我们多看个例子，譬如ASP程式rs22.asp如下，[SELECT 种类, Sum(数量*价格) As 总计 From 产品 Group By 种类] 使用GROUP BY将查询的结果做 [种类] 统计，统计各个种类的数量与价格相乘的总价Sum(数量*价格)：
<%
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DBQ=" & Server.MapPath("ntopsamp.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Set rs2 = Server.CreateObject("ADODB.Recordset")
SqlStr = "SELECT 种类, Sum(数量*价格) As 总计 From 产品 Group By 种类"
rs2.Open SqlStr,conn1,1,1
Response.Write "<pSum(数量*价格)"
Do while not rs2.EOF
Response.Write "<BR" & rs2("种类") & ": " & rs2("总计")
rs2.MoveNext
Loop
rs2.Close %
以上的 ASP程式rs22.asp，在用户端使用浏览器，浏览执行的结果，显示依据 [种类] 来统计总价。
Groupfieldlist为用以统计的字段名称，最多为10个字段。
在groupfieldlist中字段名称的顺序，将决定统计层次，由最高至最低的层次来分组。
最后，譬如ASP程式rs22.asp如下，[SELECT 姓名,科目,Avg(分数) As 平均 From 考试 Group By 姓名,科目] 使用GROUP BY将查询的结果做依据 [姓名] 和 [科目] 统计，统计各个统计的 [平均] 分数Avg(分数)：
<%
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DBQ=" & Server.MapPath("ntopsamp.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Set rs2 = Server.CreateObject("ADODB.Recordset")
SqlStr = "SELECT 姓名,科目,Avg(分数) As 平均 From 考试 Group By 姓名,科目"
rs2.Open SqlStr,conn1,1,1
Response.Write "<pGroup By 姓名,科目"
Do while not rs2.EOF
Response.Write "<BR" & rs
