接上一篇文章：

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