急急急急急急急急急急急,菜鸟求教，ASP调用VB的DLL，代码总出错,急急急急急急急急

Question

工程名:TestProject
类名:TestClsDLL代码:
Option ExplicitPrivate MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As SessionPublic 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 SubPublic Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End SubPublic Sub mydll()
    MsgBox "ASP调用DLL"
End Sub
ASP代码:
<%
dim Test
set Test = Server.CreateObject("TestProject.TestCls")
call Test.mydll()
%>
DLL代码在VB测试通过,ASP的错误提示错误类型：
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串 
/Web/a.asp, 第 3 行小弟求教,急

Answer 1

dll 文件注册了吗? regsvr32