ASP调用dll
在ASP中调用dll
动态联接库(DLL)是加快应用程序关键部分的执行速度的重要方法，但有一点恐怕大部分人都不知道，那就是在ASP文件也能通过调用DLL来加快服务器的执行速度，下面我简单的介绍一下在ASP文件调用DLL的步骤。
首先，必须得有DLL文件，本例是通过VB5.0创建ActiveX DLL文件，这个文件模拟了一个掷色子的过程。
在VB5.0的环境下，新建一个工程，并双击新建工程窗口中ActiveX DLL图标，VB将自动为项目添加一个类模块，并将该项目类型设置为ActiveX DLL。在属性窗口将类模块的名称属性改为clsDice。从工程菜单中，选择工程属性，将工程名称改为MyDLL。从文件菜单中，选择保存clsDice，将类模块保存为myDice.cls。添加以下代码：
字串5
Option Explicit 字串2
Private Max, Point As Integer 字串9
Public Property Get Result() As Integer
Result = Point
End Property 字串5
Public Property Get Maxpoint() As Integer
Maxpoint = Max
End Property 字串2
Public Property Let Maxpoint(num As Integer)
Max = num
End Property 字串2
Public Sub Throw()
Randomize
Point = Int(Rnd * Max) + 1
End Sub 字串1
Private Sub Class_Initialize()
Max = 6
End Sub 字串3
这个类模块定义了clsDice对象的两个属性和一个方法，这些属性和方法模拟了掷色子的过程。其中Maxpoint属性表示色子的面数，加入Property Let语句将使客户能修改色子的面数；Result属性表示最后掷出色子的点数；Throw方法代表掷色子的动作；Private Sub Class_Initialize语句将色子的面数缺省的设置为6面。 字串4
从文件菜单中，选择生成MYDLL.DLL并将它保存到适当的地方。至此，我们就创建了一个自己的DLL文件。 字串8
第二步要做的就是要在ASP文件中引用类clsDice。
字串1
ASP(活动服务器页面Active Server Pages)的所有代码都是在服务器上运行的，客户只能查看以HTML形式传回的结果。它使用“<%”和“%>”标记来标识脚本代码，并不传回客户端，在代码外部，使用HTML标记来标识内容。在下面Dice.asp的代码中使用了CreateObject函数创建了一个clsDice对象实例，该对象来自于上面创建的ActiveX.DLL--MYDLL.DLL文件，下面的例子使用了VBScript脚本语言。 字串3
<!--METADATA TYPE="typelib" FILE="Path/mydll.dll" -->
'装载 METADATA 标签中指定的类型库。 Path是mydll.dll在机器上存放的路径
<html>
<head><title>在ASP文件使用DLL</title></head>
<body>
<%
On Error Resume Next ‘当程序出现意外错误时能继续执行 字串2
If Request.Form("T1")="" then
Session("point") = 6
Else
Session("point")=Request.Form("T1")
End If
'用Session("point")来存放色子的面数 字串6
Set dice1=Server.Createobject("MyDLL.clsDice")
'使用set语句创建dice1对象，其中MyDLL是上面创建dll文件时的工程名称（注意：不是文件的名称），clsDice为类模块的名称。至此我们就可以用Maxpoint,Result和Throw属性（方法）来对dice1对象进行操作。 字串3
If Request.ServerVariables("Request_Method")="POST" then
dice1.Maxpoint = Session("point") ‘设定色子的面数
dice1.Throw ’掷色子
%>
<form method="POST" action="dice.asp">
<p>当色子的面数为<input type="text" name="T1" size="5" value=<% = session("point") %>>时</p>
<p><input type="submit" value="掷色子" name="B1"></p>
</form>
<p>结果为：<% = dice1.Result %>点 </p> ‘返回结果
<%
Else
dice1.Maxpoint = Session("point")
%>
<form method="POST" action="dice.asp">
<p>当色子的面数为<input type="text" name="T1" size="5" value=<% = session("point") %>>时</p>
<p><input type="submit" value="掷色子" name="B1"></p> 字串4
</form>
<%
End If
%>
</body> 字串3
如何把ASP编写成DLL
这篇文章主要是把ASP代码变成组件,开发者不仅是加快了ASP的速度,而且也能保护自己的代码.
下面,我们会来编写一个非常简单的组件,重点是知道怎样开发DLL组件,而不是其复杂的代码!这些都要靠你们自己以后的努力了.
字串4
服务器端组件 字串1
首先,服务器端的组件要有别于客户端的组件.客户端的组件是通过网络传输,依靠HTML来起作用.而且只能在IE上有用.但是服务器端的组件是运行在服务器端,它在服务器上执行各种操作.因此,所有的浏览器都能享用,它依靠的是服务器而不是浏览器.
字串8
当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到 〈% %>标签之间的代码,并且执行它(也可以是〈script runat=server>〈/script>之间的代码).如果这个ASP程序在先前被调用过,那么它就会用内存中的编译过的程序来向用户返回HTML代码,如果没有,那么它就重新编译.这里ASP就比CGI多一点速度优势,因为CGI是每一个请求都使用一个线程.这样就大大消耗了服务器的资源. 字串5
想不想你写的程序自己就能在IIS运行!?!现在你就行了!使用VB5(当然现在是VB6了),你就能建立Dynamic Linked Libraries (DLL 文件),它能在IIS上直接运行(如果有asp文件来请求的话).
字串9
系统和软件的要求 字串5
你需要一个32位的操作系统来运行ASP.当然你也得安装IIS或PWS.我们下面的程序是在windows95+PWS+VB5的环境下开发的. 字串9
我们开始吧 字串8
启动你的VB,选择ActiveX图标.这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名(class1).我们会将这两个名字都改掉.在改名之前,请首先确认我们拥有Microsoft Active Server Pages Object Library,它在我们的程序非常有用.从菜单中选择"工程",然后在其中选择"引用",就会出现"引用"窗口
从中选择Microsoft Active Server Pages Object Library. 字串4
给工程和类命名 字串6
现在我们来根据自己的爱好来为project1和class1来命名吧!给它们命名也是很重要的,我们以后会用这个工程名和类名来创建这个组件的实例!后面详细介绍. 字串7
如何改名,我就不想多说了!
我们的工程名改为Exmaple,类名为Helloword 字串7
怎样使用工程和类 字串4
现在我们有了我们自己的工程(Example1)和类名(HelloWorld).以后我们就会在ASP代码中使用它们的名字来引用这个组件.在ASP中我们就这样引用,如下: 字串5
Set ObjReference = Server.CreateObject("ProjectName.ClassName") 字串9
对于我们工程的引用就是:
Set ObjReference = Server.CreateObject("Example1.HelloWorld")
现在我们就能用ObjReference来调用我们在组件中所创建的函数,子程序.下面我们会来写一个SayHello的子程序, 我们执行它的代码如下: 字串2
〈%
Set ObjReference = Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%> 字串4
为了在Helloword类中使用ASP的方法,你必须在此类中写一个OnStartPage
子函数.如下: 字串7
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
End Sub 字串7
字串7
现在,无论什么时候用户访问一个带有本组件的ASP文件,IIS就会把
ScriptingContext传送给我们的对象请我们使用.这个ScriptingContext包括了全部的ASP方法和属性.实现上,这使得我们有能力访问所有ASP的对象.看下面的代码:
字串4
Public 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 Sub 字串4
以后我们就能用在VB中用MyApplication 来代替ASP中的Application,同理可以代替Request,Server.....,不过我们来是要在 OnStartPage之前来申明这些变量: 字串9
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session 字串2
字串5
使用ASP的对象
我们的变量现在就能像标准的ASP对象来使用了!比如,我们经常在ASP中用
Request.form()来收集提交表单的数据.现在我们在我们的VB中实现这个功能,代码如下: 字串7
用ASP中实现:
〈%
MyTempVariable = Request.Form("userName")
Response.Write ("you entered "& MyTempVariable & "as your user name")
%>
字串9
在VB中实现: 字串1
MyTempVariable = MyRequest.Form("userName")
MyResponse.Write ("you entered "& MyTempVariable & "as your user
name") 字串8
字串6
通过使用MyResponse来代替Response,我们能够使用所有Response的方法,当
然,MyResponse这个名字可以随便来取,你甚至可以就取Response.
另一件我们得注意的是,我们得在我们的建立的类中,写上OnEndPage子函数,这个
OnStartPage是相反的!OnStartPage是创建对象,OnEndPage是消毁对象. 字串9
字串6
Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub 字串1
字串9
SayHello方法
我们来建立一个子函数,用于显示"Holle World".这个SayHello方法只是
HelloWorld这个类中一个子函数,我们以后会在ASP中用以下的显示这个方法
字串8
〈%
Set ObjReference = Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%> 字串4
字串1
SayHello的程序,很简单的!
字串7
Public Sub SayHello()
MyResponse.Write ("Hello World")
End Sub 字串7
字串4
现在一个小型的组件编写完成,剩下的工作就是编译这个组件,在"工程"菜单中保存它,取什么名字都可以,我们用Exmaple1.vbp吧! 然后就用在菜单中选择"make
exmaple1.dll",将其编译成DLL文件.一个组件就真正完成了! 字串8
注意,编译了此组件那么你就得先把你的PWS关掉,然后再编译此组件.否则VB就会告诉你些组件在使用中. 字串8
在ASP中使用我们的自己的组件. 字串2
当你更正了在编译中的错误,成功地编译了example1这个工程,现在你就得拿出你最喜欢的HTML编辑器来写下下面的语句,保存为ASP文件. 字串2
〈HTML>
〈HEAD>
〈TITLE>Example 1〈/TITLE>
〈/HEAD>
字串7
〈BODY> 字串6
〈%
Set ObjReference = Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%> 字串9
〈/BODY>
〈/HTML> 字串3
运行后即可看到结果: 字串2
Hello World
字串2
注册组件
字串4
如果你想和你的朋友,邻居分享你的组件,那么你就得在你的系统上注册你的组件.我们一般使用Regsvr32.exe来注册组件.注册后你的组件会出现在Win95/Win98的
windows/system目录中.下面是一个注册的例子: 字串3
Regsvr32.exe C:/wwwroot/Example1/Example1.dll 字串6
在你的系统中,VB会自动给你注册,所以你很少用到Regsvr32.exe 字串2
我们这里只是写了一个非常小的组件,你们可以写好自己的更大的组件,而且还可以用VB中的很多控件. 字串7
