| 最简单用VB把asp封装成dll的入门程序 |
| 当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到<%%>标签之间的代码,并且执行它(也可以是<scri ptrunat=server></script....>之间的代码).如果这个ASP程序在先前被调用过,那么它就会用内存中的编译过的程序来向用户返回HTML代码,如果没有,那么它就重新编译.这里ASP就比CGI多一点速度优势,因为CGI 是每一个请求都使用一个线程.这样就大大消耗了服务器的资源.
启动你的VB,选择ActiveX图标.这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名( class1).我们会将这两个名字都改掉.在改名之前,请首先确认我们拥有MicrosoftActiveServerPag esObjectLibrary,它在我们的程序非常有用.从菜单中选择"工程",然后在其中选择"引用",就会出现"引用"窗口从中选择MicrosoftActiveServerPagesObjectLibrary.
给工程和类命名 现在我们来根据自己的爱好来为project1和class1来命名吧!给它们命名也是很重要的,我们以后会用这个工程名和类名来创建这个组件的实例!后面详细介绍. 如何改名,我就不想多说了! 我们的工程名改为Exmaple,类名为Helloword 怎样使用工程和类 现在我们有了我们自己的工程(Example1)和类名(HelloWorld).以后我们就会在ASP代码中使用它们的名字来引用这个组件.在ASP中我们就这样引用,如下: SetObjReference=Server.CreateObject("ProjectName.ClassName") 对于我们工程的引用就是: SetObjReference=Server.CreateObject("Example1.HelloWorld") 现在我们就能用ObjReference来调用我们在组件中所创建的函数,子程序.下面我们会来写一个SayHello的子程序,我们执行它的代码如下: 〈% SetObjReference=Server.CreateObject("Example1.HelloWorld") ObjReference.SayHello %>
helloworld.cls
--------------------------------------------------------------------------------------------------------------------------------------
Private Wenscript....ingContext As script....ingContext
Private WenApplication As Application
Private WenRequest As Request
Private WenResponse As Response
Private WenServer As Server
Private WenSession As Session
Public Sub OnStartPage(Passedscript....ingContext As script....ingContext)
Set Wenscript....ingContext = Passedscript....ingContext
Set WenApplication = Wenscript....ingContext.Application
Set WenRequest = Wenscript....ingContext.Request
Set WenResponse = Wenscript....ingContext.Response
Set WenServer = Wenscript....ingContext.Server
Set WenSession = Wenscript....ingContext.Session
End Sub
Public Sub OnEndPage()
Set Wenscript....ingContext = Nothing
Set WenApplication = Nothing
Set WenRequest = Nothing
Set WenResponse = Nothing
Set WenServer = Nothing
Set WenSession = Nothing
End Sub
Public function..hello()
WenResponse.Write ("HelloWorld") End Function
----------------------------------------------------
asp页面
<%Dim aa Set aa = Server.CreateObject("p1.c1") aa.hello()Set aa = Nothing%>
|
