sortcount1.asp

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

<%
Dim countrs,countsql
'求最小值
Set rssort= Server.CreateObject("ADODB.Recordset") 
sortsql="select Min(typeid) from qy_Class_2" 
rssort.open sortsql,conn,1,1
Number=rssort(0)
Number=CheckInput(Number,"i","1")
rssort.close 
Set rssort=nothing
'求最大值
Set rssort1= Server.CreateObject("ADODB.Recordset") 
sortsql1="select Max(typeid) from qy_Class_2" 
rssort1.open sortsql1,conn,1,1
Max=rssort1(0)
rssort1.close 
Set rssort1=nothing 
Dim count()
ReDim count(Max)
Do While Number<=Max
Set CountRS= Server.CreateObject("ADODB.Recordset") 
CountSQL="Select typeid From qyml Where typeid="&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 
%>