newcount.asp

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

<%
Dim newrs
Dim newsql
Record=1
Dim count1(27)
MaxRecord=27
Do While record<=27
Set NewRS= Server.CreateObject("ADODB.Recordset") 
NewSQL="Select sortid From Info Where date()-dateandtime<1 and sortid="&record
NewRS.open newsql,conn,1,1
count1(record)=newrs.recordcount
record=record+1
If Record>Maxrecord Then EXIT do 
Loop
newrs.close 
Set newrs=nothing 
%>