set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_COUNTER_CONNECTION_STRING
Recordset1.Source = "SELECT "+groupname+" FROM dbo.counter"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
'初试化所需变量
dim f(6)
i=6
do
f(i)=0
i=i-1
loop Until i=0
i=6
i_num=Recordset1(groupname)
i_num=i_num+1 '计数器加1
i_fin=i_num
if i_num<10 then
f(6)=i_num
else
do
f(i)=i_num mod 10
i_num=(i_num-f(i))/10
i=i-1
loop Until i_num<10
f(i)=i_num
END IF
if i_fin>999999 then
i_fin=0
end if