sortcount.asp

北京商务网

<%
Dim countrs
Dim countsql
Number=1
Dim count(27)
Max=27
Do While Number<=27
Set CountRS= Server.CreateObject("ADODB.Recordset") 
CountSQL="Select sortid From qyml Where sortid="&number
CountRS.open countsql,conn,1,1
Count(Number)=countrs.recordcount
Number=Number+1
If Number>Max Then EXIT do 
Loop
Countrs.close 
Set countrs=nothing 
%>