sortcount.asp

中国库存信息网 完整版 [已通过安全检测]Symantec AntiVirus 企业版 10.0.0.0.359 ║ ║ [病毒定义文件版本] 2006-5-5 rev.24 ║ ║ [已通

<%
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 Info 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 
%>