sortcount.asp

来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 29 行

<%
Dim countrs,countsql
'求最小值
Set rssort= Server.CreateObject("ADODB.Recordset") 
sortsql="select Min(sortid) from Class_1" 
rssort.open sortsql,conn,1,1
Number=rssort(0)
rssort.close 
Set rssort=nothing
'求最大值
Set rssort1= Server.CreateObject("ADODB.Recordset") 
sortsql1="select Max(sortid) from Class_1" 
rssort1.open sortsql1,conn,1,1
Max=rssort1(0)
rssort1.close 
Set rssor1t=nothing 
Dim count()
ReDim count(Max)
Do While Number<=Max
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
Loop
Countrs.close 
Set countrs=nothing 
%>