在ASP文件中调用DLL的方法-C#.Net教程-PHP中文网

在ASP文件中调用DLL的方法

怪我咯

发布： 2017-03-30 13:30:07

原创

1808人浏览过

动态联接库(dll)是加快应用程序关键部分的执行速度的重要方法，但有一点恐怕大部分人都不知道，那就是在asp文件也能通过调用dll来加快服务器的执行速度，下面我简单的介绍一下在asp文件调用dll的步骤。
　　首先，必须得有dll文件，本例是通过vb5.0创建activex dll文件，这个文件模拟了一个掷色子的过程。
在vb5.0的环境下，新建一个工程，并双击新建工程窗口中activex dll图标，vb将自动为项目添加一个类模块，并将该项目类型设置为activex dll。在属性窗口将类模块的名称属性改为clsdice。从工程菜单中，选择工程属性，将工程名称改为mydll。从文件菜单中，选择保存clsdice，将类模块保存为mydice.cls。添加以下代码：

option explicit

private max, point as integer

public property get result() as integer

result = point

end property

public property get maxpoint() as integer

maxpoint = max

end property

public property let maxpoint(num as integer)

max = num

end property

public sub throw()

randomize

point = int(rnd * max) + 1

end sub

private sub class_initialize()

max = 6

end sub

　　这个类模块定义了clsdice对象的两个属性和一个方法，这些属性和方法模拟了掷色子的过程。其中maxpoint属性表示色子的面数，加入property let语句将使客户能修改色子的面数；result属性表示最后掷出色子的点数；throw方法代表掷色子的动作；private sub class_initialize语句将色子的面数缺省的设置为6面。

　　从文件菜单中，选择生成mydll.dll并将它保存到适当的地方。至此，我们就创建了一个自己的dll文件。

　　第二步要做的就是要在asp文件中引用类clsdice。

　　asp(活动服务器页面active server pages)的所有代码都是在服务器上运行的，客户只能查看以html形式传回的结果。它使用“”标记来标识脚本代码，并不传回客户端，在代码外部，使用html标记来标识内容。在下面dice.asp的代码中使用了createobject 函数创建了一个clsdice对象实例，该对象来自于上面创建的activex.dll--mydll.dll文件，下面的例子使用了vbscript脚本语言。

'装载 metadata 标签中指定的类型库。 path是mydll.dll在机器上存放的路径

在asp文件使用dll

on error resume next ‘当程序出现意外错误时能继续执行

if request.form("t1")="" then

session("point") = 6

else

session("point")=request.form("t1")

end if

'用session("point")来存放色子的面数

set dice1=server.createobject("mydll.clsdice")

'使用set语句创建dice1对象，其中mydll是上面创建dll文件时的工程名称（注意：不是文件的名称），clsdice为类模块的名称。至此我们就可以用maxpoint,result和throw属性（方法）来对dice1对象进行操作。

if request.servervariables("request_method")="post" then

dice1.maxpoint = session("point") ‘设定色子的面数

dice1.throw ’掷色子

%>

结果为：点

云网OA

采用JSP开发的办公自动化产品、基于B/S结构，运行环境：JDK v1.5、Tomcat v5.5、MySQL v4.1，三者均为以上版本其他相关内容：可视化流程设计：流程支持串签、会签和分支流程，可以设置流程节点的修改、删除权限，并可指定流程中各个用户在表单中可以填写的域。智能表单所见即所得设计：智能设计，自动在数据库中生成表格，方便优化程序公共交流：集论坛、博客、聊天室于一体文件柜：C

查看详情

‘返回结果

Else

dice1.Maxpoint = Session("point")

%>

End If

%>

　　以上代码在WINDOWS NT4.0+SP3+IIS4.0+IE5.0+VB5.0上编译运行通过，但还有不少的缺陷，但我的本意是向大家介绍如何在ASP中调用DLL，所以我没有去完善它。

以上就是在ASP文件中调用DLL的方法的详细内容，更多请关注php中文网其它相关文章！