这样就可以了。
<%
set rssql=Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=AIMIN;UID=sa;PWD=11111;DATABASE=myPratice"
set rssql=getrs("select * from myuser",1)%><%
function getrs(sql,i)     set recordset=server.CreateObject("adodb.recordset")          
    set  getrs=server.CreateObject("adodb.recordset")
    select case i          
            case 1                  
          recordset.LockType=3          
          recordset.CursorType=3          
        case 2          
        recordset.LockType=4          
        recordset.CursorLocation=3          
        recordset.CursorType=3          
        case 3          
        recordset.CursorType=3          
        case else          
end select                    
recordset.Open  sql,conn   
Response.Write recordset.recordcount
    getrs=recordset          
end function
%>
可能你的错误在于用一个变量把recordset对象传递了。这是无法完成的。它是一个记录集。