日期:2014-05-16 浏览次数:20750 次
for k=0 to 7 '总共8个表。要是多了得修改此处
sql_kc1="select count(*) as num from " & dbf_arr(k,0)
Set rs = CreateObject("ADODB.RecordSet")
rs.Open sql_kc1,conn,1,1
response.Write rs("num")
rs.Close
Set rs = Nothing
next
dim k
dim dbf_arr(7,1)
' dbf_arr(7,1)中所有值都没问题,形如xyee
set rs=server.CreateObject("adodb.recordset")
for k=0 to 7 '总共8个表。要是多了得修改此处
sql_kc1="select count(*) as num from "&dbf_arr(k,0)
rs.Open sql_kc1,conn,1,1
response.Write rs("num")
rs.close
next
set rs=nothing