本人这样来干。。。成功了。。。。谢谢各位朋友关心。。。。拿出来供更多的人借鉴。。。
——————————————————————————————————————————————
<%
dim ppname()
set rs=server.CreateObject("adodb.recordset")
rs.open "select pinpai_name,count(pinpai_name) from pinpai group by pinpai_name order by pinpai_name",conn,1,1
iCount = rs.RecordCount
redim ppname(iCount-1)
for k=0 to iCount-1
ppname(k)=rs("pinpai_name")
rs.movenext
next
rs.close
%>
——————————————————————————————————————————————