ASP常用函数:GetRsRows()
2009-06-30 04:22:00 来源:WEB开发网核心提示:<%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
<%
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
%>
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
%>
[]
更多精彩
赞助商链接