组件的难题?

Question

用VB6生成ACTIVEX DLL后，在ASP里调用
"<%dim MyRec
Set ObjReference=Server.CreateObject("Example.GerRec")
set MyRec=Server.CreateObject("ADODB.Recordset")
Set MyRec=ObjReference.GetRecSqlOleDb("select * from comright")
Response.Write MyRec.fields(0)
%>
"出错!
提示为：
服务器对象 错误 'ASP 0177 : 800401f3'

Server.CreateObject 失败

/commerce/admin/test.asp，行2

无效的 ProgID。 若要获取关于此消息的更多的信息，请访问 Microsoft 联机支持站点: http://www.microsoft.com/contentredirect.asp 。

附代码：
Private MyScriptingContext As ScriptingContext

Private MyApplication As Application

Private MyRequest As Request

Private MyResponse As Response

Private MyServer As Server

Private 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 OnEndPage()

Set MyScriptingContext = Nothing

Set MyApplication = Nothing

Set MyRequest = Nothing

Set MyResponse = Nothing

Set MyServer = Nothing

Set MySession = Nothing

End Sub

Public Function GetRecSqlOleDb(strSql As String) As Recordset

'利用 OLEDB打开一个 SQL7.0数据库，返回数据记录

Dim myCnn As Connection

Dim mySet As Recordset

Dim strConnstring As String

Set myCnn = New ADODB.Connection

Set mySet = New ADODB.Recordset

strConnstring = "Driver={SQL Server};Server=netserver;UID=sa;PWD=;database=business"

myCnn.ConnectionString = strConnstring

myCnn.Open

mySet.ActiveConnection = myCnn

mySet.Open strSql

Set GetRecSqlOleDb = mySet

End Function

Answer 1

最大的可能是Example.GerRec未注册

Answer 2

在注册表中查找有没有Example.GerRec

Answer 3

你可以先在vb里面调试
然后在拿到asp里
这样比较保险
QQ：18696264

Answer 4

你是否引用了ado对象。
如果引用了ado对象。可以用vb写一个小的测试程序判断是否可以连接数据库
写组件是否引用MyScriptingContext对象
最后在asp页面中是否还会出错

Answer 5

在vb6中引用Example了吗？