newcount.asp

来自「北京商务网」· ASP 代码 · 共 17 行

<%
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 spzs Where date()-idate<2 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 
%>