这个怎么就不行.老是提示用户类型示定义.快疯了!!!

Question

''对象的声明    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 ScriptingContent)
     ''进行对象的实例化
     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>"
    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 OnStartPage(mysc As ScriptingContent)
这行用户类型示定义在线等.一佰分相送!

Answer 1

引用“Microsoft Active Server Pages Object”对象库。 
参考
http://blog.csdn.net/online/archive/2004/08/19/78624.aspx

Answer 2

低级错误：
将ScriptingContent改为ScriptingContext就可以了

Answer 3

楼上的都谢谢了!
现在又出现另一个错.
'发布虚拟站点
'参数：
'    strWebSite                    虚拟站点名称
'    strFriendlyName        程序名称
'    strWebPath                    网页文件路径
'    strDefaultDoc            默认网站首页
Public Function WebVirtualDir(ByVal strWebSite As String, ByVal strFriendlyName As String, ByVal strWebPath As String, ByVal strDefaultDoc As String) As Boolean
       Dim objADSI      As Object
       Dim objWebVDir  As Object
       Dim strError   As ErrObject
       On Error GoTo Lib_Err
         
       Set objADSI = GetObject("IIS://LocalHost/W3SVC/1/Root")
       Set objWebVDir = objADSI.Create("IIsWebVirtualDir", strWebSite)
       objWebVDir.SetInfo
         
       Set objWebVDir = objADSI.GetObject("IIsWebVirtualDir", strWebSite)
       objWebVDir.AppCreate True
       objWebVDir.Put "AppFriendlyName", strFriendlyName
       objWebVDir.Put "AppRoot", "/LM/W3SVC/1/Root/" & strWebSite
       objWebVDir.Put "Path", strWebPath
       objWebVDir.Put "AppIsolated", 0
       objWebVDir.Put "DefaultDoc", strDefaultDoc
       objWebVDir.Put "AccessFlags", 535
       objWebVDir.SetInfo
         
       WebVirtualDir = True
         
Lib_End:
       Set objWebVDir = Nothing
       Set objADSI = Nothing
       Exit Function
         
Lib_Err:
       WebVirtualDir = False
       strError = Err.Description
       Err.Clear
       Resume Lib_End
         
End Function
测试TEST.ASP文件如下:Dim ASPObj,cvalue  Set ASPObj = Server.CreateObject("nuofei.iisctrl")
cvalue=ASPObj.WebVirtualDir("test", "aa", "E:\", "Default.asp")
set ASPObj = Nothing运行后提示:
nuofei 错误 '800a005b' 未设置对象变量或 With block 变量 

Answer 4

ASP可以直接用ADSI接口，不需要封装了