发一个ASP的ADODB类代码

sCounts = 0:rsPage = 1:nowPage = 1
end function
''**********释放类************
Private Sub Class_Terminate()
readCounts = 0:rsCounts = 0:rsPage = 0
if not isempty(conn) and not isnull(conn) then
if conn.state = 1 then
conn.close
end if
Set conn = nothing
end if

if not isempty(rs) then
if not isnull(rs) then
if rs.state=1 then
rs.close
end if
set rs=nothing
end if
end if
End Sub
End Class
%>