|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。
下手写个小组件(组件进门)
主题
这篇文章次要是为想将本人的ASP程度进步的人写的!把ASP代码酿成组件,开辟者不但是加速了ASP的速率,并且也能回护本人的代码.这篇文章写出来,也是为了给想开辟组件网友上一堂进门课!
上面,我们会来编写一个十分复杂的组件,重点是晓得如何开辟DLL组件,而不是其庞大的代码!这些都要靠你们本人今后的勉力了.
服务器端组件
起首,服务器真个组件要有别于客户真个组件.客户真个组件是经由过程收集传输,依托HTML来起感化.并且只能在IE上有效.可是服务器真个组件是运转在服务器端,它在服务器上实行各类操纵.因而,一切的扫瞄器都能享用,它依托的是服务器而不是扫瞄器.
当IIS被哀求实行一个ASP程序,它起首会在ASP文件中找到〈%%>标签之间的代码,而且实行它(也能够是〈scriptrunat=server>〈/script>之间的代码).假如这个ASP程序在先前被挪用过,那末它就会用内存中的编译过的程序来向用户前往HTML代码,假如没有,那末它就从头编译.这里ASP就比CGI多一点速率上风,由于CGI是每个哀求都利用一个线程.如许就年夜年夜损耗了服务器的资本.
想不想你写的程序本人就可以在IIS运转!?!如今你就好了!利用VB5(固然如今是VB6了),你就可以创建DynamicLinkedLibraries(DLL文件),它能在IIS上间接运转(假如有asp文件来哀求的话).
体系和软件的请求
你必要一个32位的操纵体系来运转ASP.固然你也得安装IIS或PWS.我们上面的程序是在windows95+PWS+VB5的情况下开辟的.
我们入手下手吧
启动你的VB,选择ActiveX图标.这个图标能够在新建工程找到!VB会供应一个默许的工程名(project1)和类名(class1).我们会将这两个名字都改失落.在更名之前,请起首确认我们具有MicrosoftActiveServerPagesObjectLibrary,它在我们的程序十分有效.从菜单当选择"工程",然后在个中选择"援用",就会呈现"援用"窗口
从当选择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
%>
为了在Helloword类中利用ASP的办法,你必需在此类中写一个OnStartPage
子函数.以下:
PublicSubOnStartPage(PassedScriptingContextAsScriptingContext)
SetMyScriptingContext=PassedScriptingContext
EndSub
如今,不管甚么时分用户会见一个带有本组件的ASP文件,IIS就会把ScriptingContext传送给我们的工具请我们利用.这个ScriptingContext包含了全体的ASP办法和属性.完成上,这使得我们有才能会见一切ASP的工具.看上面的代码:
PublicSubOnStartPage(PassedScriptingContextAsScriptingContext)
SetMyScriptingContext=PassedScriptingContext
SetMyApplication=MyScriptingContext.Application
SetMyRequest=MyScriptingContext.Request
SetMyResponse=MyScriptingContext.Response
SetMyServer=MyScriptingContext.Server
SetMySession=MyScriptingContext.Session
EndSub
今后我们就可以用在VB顶用MyApplication来取代ASP中的Application,同理能够取代Request,Server.....,不外我们来是要在OnStartPage之前来声名这些变量:
PrivateMyScriptingContextAsScriptingContext
PrivateMyApplicationAsApplication
PrivateMyRequestAsRequest
PrivateMyResponseAsResponse
PrivateMyServerAsServer
PrivateMySessionAsSession
利用ASP的工具
我们的变量如今就可以像尺度的ASP工具来利用了!好比,我们常常在ASP顶用Request.form()来搜集提交表单的数据.如今我们在我们的VB中完成这个功效,代码以下:
用ASP中完成:
〈%
MyTempVariable=Request.Form("userName")
Response.Write("youentered"&MyTempVariable&"asyourusername")
%>
在VB中完成:
MyTempVariable=MyRequest.Form("userName")
MyResponse.Write("youentered"&MyTempVariable&"asyourusername")
经由过程利用MyResponse来取代Response,我们可以利用一切Response的办法,固然,MyResponse这个名字能够任意来取,你乃至能够就取Response.
另外一件我们得注重的是,我们得在我们的创建的类中,写上OnEndPage子函数,这个OnStartPage是相反的!OnStartPage是创立工具,OnEndPage是消毁工具.
PublicSubOnEndPage()
SetMyScriptingContext=Nothing
SetMyApplication=Nothing
SetMyRequest=Nothing
SetMyResponse=Nothing
SetMyServer=Nothing
SetMySession=Nothing
EndSub
SayHello办法
我们来创建一个子函数,用于显现"HolleWorld".这个SayHello办法只是HelloWorld这个类中一个子函数,我们今后会在ASP顶用以下的显现这个办法
〈%
SetObjReference=Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>
SayHello的程序,很复杂的!
PublicSubSayHello()
MyResponse.Write("HelloWorld")
EndSub
如今一个小型的组件编写完成,剩下的事情就是编译这个组件,在"工程"菜单中保留它,取甚么名字都能够,我们用Exmaple1.vbp吧!然后就用在菜单当选择"makeexmaple1.dll",将其编译成DLL文件.一个组件就真正完成了!
注重,编译了此组件那末你就得先把你的PWS关失落,然后再编译此组件.不然VB就会告知你些组件在利用中.
在ASP中利用我们的本人的组件.
当你改正了在编译中的毛病,乐成地编译了example1这个工程,如今你就得拿出你最喜好的HTML编纂器来写下上面的语句,保留为ASP文件.
〈HTML>
〈HEAD>
〈TITLE&g</p>ASP脚本是采用明文(plaintext)方式来编写的。 |
|