ASP常用函数:GetRsRows()技巧

<%w7D中国设计秀
Function GetRsRows(oRs)w7D中国设计秀
    Dim aArrayw7D中国设计秀
    ReDim aArray(0, -1)w7D中国设计秀
    If TypeName(oRs) = "Recordset" Thenw7D中国设计秀
        If Not ors.BOF Then ors.MoveFirstw7D中国设计秀
        If Not ors.EOF Then aArray = ors.GetRows()w7D中国设计秀
    End Ifw7D中国设计秀
    GetRsRows = aArrayw7D中国设计秀
End Functionw7D中国设计秀
%>w7D中国设计秀