sortcount1.asp

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

<%
Dim countrs,countsql
'求最小值
Set rssort= Server.CreateObject("ADODB.Recordset") 
sortsql="select Min(typeid) from Class_2" 
rssort.open sortsql,conn,1,1
Number=rssort(0)
rssort.close 
Set rssort=nothing
'求最大值
Set rssort1= Server.CreateObject("ADODB.Recordset") 
sortsql1="select Max(typeid) from Class_2" 
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 typeid From spzs Where typeid="&number
CountRS.open countsql,conn,1,1
Count(Number)=countrs.recordcount
Number=Number+1
Loop
Countrs.close 
Set countrs=nothing 
%>