再问，怎样分类显示？

Question

<% 
if Request.QueryString("PageNumber").count > 0 then 
' 指定页号的参数PageNumber.如果指定页号,则以指定页号为依据 
PageNumber = Request.QueryString("PageNumber")(1)
else
PageNumber = 1
' 如没指定页号,缺省为1
end ifRecordNumberPerPage = 10 
' 每页显示10条记录 set ARecordSet = Server.CreateObject("ADODB.RecordSet")
ARecordSet.open "select * from contact1",AConnection,1
' 执行查询,注意Open语句中指定的第三个参数ARecordSet.PageSize = RecordNumberPerPage
' 指定每页记录条数 
ARecordSet.AbsolutePage = PageNumber 
' 指定当前页号
Response.Write "<br>每页有"&ARecordSet.PageSize&"条记录"
Response.Write "<br>共有"&ARecordSet.PageCount&"页"
Response.Write "<br>这是第"&PageNumber&"页"Response.Write "<Table border=1>"
' 以表格形式显示查询结果Response.Write "<TR>"
For FieldNo = 0 to ARecordSet.Fields.count - 1 
Response.Write "<TD>"&ARecordSet( FieldNo ).Name&"</TD>"
Next
Response.Write "</TR>"
' 显示字段名RecordCounter = 0
Do while not ARecordSet.eof
RecordCounter = RecordCounter + 1
' 显示查询if RecordCounter > RecordNumberPerPage then
' 如果要显示的记录数大于每页记录数目，则停止显示
Exit do
end if Response.Write "<TR>"
For FieldNo = 0 to ARecordSet.Fields.count - 1 
Response.Write "<TD>"&ARecordSet( FieldNo )&"</TD>"
Next
Response.Write "</TR>"
' 显示一条记录 ARecordSet.MoveNext
Loop
' 转向下一条记录Response.Write "</Table>"if PageNumber > 1 then 
' 如果不是第一页,则提示上一页
Response.Write "<p><A href = chunfeng.asp?PageNumber="&(PageNumber-1)&">[上一页]</a>"
end ifif not ARecordSet.eof then 
' 如果还有记录没有显示,则提示下一页
Response.Write "<A href = chunfeng.asp?PageNumber="&(PageNumber+1)&">[下一页]</a>"
end ifARecordSet.close
AConnection.close
%>

Answer 1

楼上发错了么，怎么写asp，不过注释详细用SQL语句分别查询取数据$enName=Array(
             1=>"M",
             2=>"A",
             3=>"X"
              )
$sql="SELECT * FROM 数据表名 WHERE 英文分类的字段名=".$enName[i];