ASP常用函數:GetRsRows()

<%
Function GetRsRows(oRs)
    Dim aArray
    ReDim aArray(0, -1)
    If TypeName(oRs) = "Recordset" Then
        If Not ors.BOF Then ors.MoveFirst
        If Not ors.EOF Then aArray = ors.GetRows()
    End If
    GetRsRows = aArray
End Function