高手请帮帮忙！

漫步彩云之端 2001-07-22 01:46:41

我用VB中调试一个组件，源代码如下：
Dim conn As ADODB.Connection
Dim rp As Response
Dim rq As Request
Dim ap As Application
Dim sr As Server
Dim sn As Session
Public Sub OnStartPage(mysc As ScriptingContext)
Set rp = mysc.Response
Set rq = mysc.Request
Set sr = mysc.Server
Set ap = mysc.Application
Set sn = mysc.Session
'rp.Write "<br>ActiveX DLL组件被成功创建！<br>"

'Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.Open "dsn=mytest;uid=sa;pwd=aaa;"
' rp.Write "aaa"
End Sub
Public Sub OnEndPage()
'rp.Write "<br>ActiveX DLL组件已经被销毁！<br>"
Set rp = Nothing
Set rq = Nothing
Set sr = Nothing
Set ap = Nothing
Set sn = Nothing
End Sub
Public Sub HelloWorld()
rp.Write "<H1>Hello,World!</H1>"
End Sub
Public Sub appenduser()
Set rs = sr.CreateObject("ADODB.recordset")
SQL = "select * from usmain"
rs.Open SQL, conn, 3, 2
rs.AddNew
rs("usermark") = "mytest"
rs("userpass") = "mytest"
rs.Close
Set rs = Nothing
rp.Write "成功添加一条记录！"
End Sub
Public Sub deleuser()
SQL = "delete from usmain where usermark='mytest'"
conn.Execute SQL
rp.Write "成功删除一条记录！"
End Sub
类名为test
生成文件为firsta.dll
注册成功后用asp调用
如下
set testme=server.CreateObject("firsta.test")
则出错，告知：
服务器对象错误 'ASP 0177 : 800401f3'

Server.CreateObject 失败

/mytest.asp，行9

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

有哪位给解答一下啊，谢谢了！

...全文