ASP中使用Set ors=oConn.Execute()时获取记录数的方法

<%
dim oconn, ors, arows
dim i,j
set oconn=server.createobject("adodb.connection")
oconn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("database/newasp.resx")
set ors=oconn.execute("select top 5 softid,softname from nc_softlist")
response.write "recordcount:" & ors.recordcount & "<br/>" '-1
arows=ors.getrows(-1) 'ors.eof=true,arows(col,row)
set ors=nothing
oconn.close()
set oconn=nothing

if isarray(arows) then
response.write "recordcount:" & ubound(arows,2)+1 & "<br/>"
for i=0 to ubound(arows,2)
for j=0 to ubound(arows,1)
response.write arows(j,i)
if j<> ubound(arows,1) then response.write ","
next
response.write "<br/>"
next
end if
%>