Question

asp 调用sub开库

我写了一个开库的类 如下
a.asp
<%
'文件用途：数据库函数类
Class Cl_DB
Private ConnStr
Private DBpath,DBLink,DBi

'函 数 名：DB_Conn
'作 用：数据库连接函数

Private Sub DB_Conn()
On Error Resume Next
Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&SysRootDir&""&SiteDataPath&"")
Conn.Open ConnStr
If Err Then
Call AspErr()
End If
End Sub

'函 数 名：DB_Open
'作 用：创建读取对象

Public Sub DB_Open()
Call DB_Conn()
Set Rs=Server.Createobject("Adodb.RecordSet")
End Sub

'函 数 名：DB_Close
'作 用：关闭读取对象

Public Sub DB_Close()
Set Rs=Nothing
If IsObject(Conn) Then Conn.Close
Set Conn = Nothing
End Sub
%>
我用b.asp进行实例化
<!--#include file="a.asp"-->
set db=new Cl_DB

然后我写了个程序调用
c.asp

<!--#incude file="b.asp"-->
<%
sql="select * from admin"
rs.open sql,conn,1,3
%>

这时候问题出现了
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'rs'
运行时找不到rs
但是我在c.asp里加上
Set Rs=Server.Createobject("Adodb.RecordSet")
它却报冲突这个错
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

拜托各位大侠帮我解决一下 谢谢

Answer 1

你只包含了类文件，实例化了类，但是没有用类方法DB_Open()