如果将记录集作为参数传递给函数

[zgmaike]

Function getRecordSetToPage(rs)
getRecordSetToPage = rs.Fields.Count
End Function

提示对象不支持此属性或方法，传入的参数是没错的。

[hy_lihuan]

sf

[wangwm]

Function getRecordSetToPage(rs)
dim objRS
Set objRS = Server.Create("Adodb.RecordSet")
Set objRS = rs
getRecordSetToPage = objRS.Fields.Count
End Function

[zgmaike]

Function getRecordSetToPage(rs)
dim objRS
Set objRS = Server.Create("Adodb.RecordSet")
Set objRS = rs
getRecordSetToPage = objRS.Fields.Count
End Function

这种方法试了，不行的。

[wangwm]

Function getRecordSetToPage(rs)
dim objRS
Set objRS = Server.CreateObject("Adodb.RecordSet")
Set objRS = rs
getRecordSetToPage = objRS.Fields.Count
End Function

[wangwm]

不好意思，少写了Object

[zgmaike]

我写了object还是不行呀，我刚才不是拷过去，是自己写的。

[wangwm]

<%
Function getRecordSetToPage(rs)
dim objRS
Set objRS = Server.CreateObject("Adodb.RecordSet")
Set objRS = rs
getRecordSetToPage = objRS.Fields.Count
End Function

set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="provider=sqloledb;data source=(local);initial catalog=newdb;user id=sa;password="
connGraph.Open

Set objRs = server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM img where id=1"
objRs.Open strSQL, connGraph, 3, 2
Response.Write getRecordSetToPage(objRs)
Response.end
%>

这是我的测试代码，没有问题

[zgmaike]

谢谢楼上的，我再试试。