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

%>