ASP中调用DLL实例介绍

　　你知道如何在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。添加以下代码：?

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在机器上存放的路径?

?

?
?

?
<%?
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?'掷色子?
%>?
?

当色子的面数为>时

?

?

?
?

结果为：<%?=?dice1.Result?%>点?

?‘返回结果?
<%?
Else?
dice1.Maxpoint?=?Session("point")?
%>?
?

当色子的面数为>时

?

?

?
?
<%?
End?If?
%>?

?
　　在浏览器中浏览http://localhoat/dice.asp，结果如附图。注意：只有在WINDOWS?NT+IIS3.0以上或WINDOWS9X+PWB的环境下才能正确浏览。?
　　?
　　以上代码在WINDOWS?NT4.0+SP3+IIS4.0+IE5.0+VB5.0上编译运行通过，但还有不少的缺陷，但我的本意是向大家介绍如何在ASP中调用DLL，所以我没有去完善它。

　　本文分享了ASP中调用DLL实例介绍，我们可以通过VB5.0创建ActiveX?DLL文件模拟一个掷色子的过程,向大家介绍如何在ASP中调用DLL。

原文链接:https://js.aizhan.com/develop/asp/8611.html
如有疑问请与原作者联系

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有