在vbscript中创建其值保留的动态数组

Question

我想要的是一个存储来自数据库的所有ID值的数组。如何做同样的事情？

Answer 1

这是ADO GetRows方法

的任务

<%
Dim aRs, oConn, oRS, sSQL
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Provider = Application("Provider")
oConn.Open Application("Database"), Application("UserName"), Application("Password")
sSQL="SELECT ID FROM yourtable ORDER by ID"
Set oRS = oConn.Execute(sSQL)
if not oRS.eof then
        aRS=oRS.GetRows()
end if
oRS.close
oConn.close
%>