组件问题

[fangq]

这是本人在VB6.0中写的一个小组件，但asp执行时提法“需要对象”希望各位能帮我看看

Public MyScriptingContext As ScriptingContext
Public MyApplication As Application
Public MyRequest As Request
Public MyResponse As Response
Public MyServer As Server
Public MySession As Session
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub
Public Sub OpenDB()
Set Conn = Server.CreateObject("ADODB.CONNECTION")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=yyigefcciou;DBQ=" & MyServer.MapPath("database/base.mdb")
RecordSetCD.Open "SELECT * FROM page", Conn
End Sub
所有的注册都非常正确，看看出错原因在哪？

[fangq]

自己顶

[fangq]

继续顶

[asp120]

全文呢?

[fangq]

就这么些，asp调用没贴了，肯定没错

[jzywh]

Public Sub OpenDB()
Set Conn = New ADODB.Connection
Set RecordSetCD = New ADODB.Recordset
Conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=yyigefcciou;DBQ=" & MyServer.MapPath("database/base.mdb")
RecordSetCD.Open "SELECT * FROM page", Conn
End Sub

[jzywh]

Conn和RecordSetCD两个对象都没有创建怎么用 要先

Set Conn = New ADODB.Connection
Set RecordSetCD = New ADODB.Recordset

[asp120]

Public Sub OpenDB()

Set Conn = Server.CreateObject("ADODB.CONNECTION")
set RecordSetCD=server.CreateObject("ADODB.RecordSet")

Conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=yyigefcciou;DBQ=" & MyServer.MapPath("database/base.mdb")
RecordSetCD.Open "SELECT * FROM page", Conn
End Sub

[jzywh]

而且 Public Sub OpenDB()什么功能都没有实现

RecordSetCD又不能在asp中引用 建议

Public Sub OpenDB() As ADODB.Recordset
Set Conn = New ADODB.Connection
Set RecordSetCD = New ADODB.Recordset
Conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=yyigefcciou;DBQ=" & MyServer.MapPath("database/base.mdb")
RecordSetCD.Open "SELECT * FROM page", Conn
OpenDB = RecordSetCD
End Sub

然后再asp中的使用方法是

set MyCom = server.createobject(*.*)

rs = MyCom.OpenDB()

[fangq]

OK,原来是链接语句写错了，谢谢各位！