set data=Conn.Execute("Select count(tbl_id) from tbl")
Response.Write data(0)
或者:
set data=Conn.Execute("Select count(tbl_id) as cnt from tbl")
Response.Write data("cnt")
举个例子:
Dim A(100,50)
则有:UBound(A,1)=99; UBound(A,2)=49
好了,下面借着说Execute的问题。其实用Execute执行SQL,RS当中还是有记录的,使用GetRows方法。
sql="SELECT * FROM [TABLE]"
Set rs=conn.Execute(sql)
Var1=rs.GetRows
记录行数=UBound(Var1,2)+1
表的字段数=UBound(Var1,1)+1