 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
动态联接库(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 TYPE="typelib" FILE="Path/mydll.dll" --> \\\'装载 METADATA 标签中指定的类型库。 Path是mydll.dll在机器上存放的路径 <html> <head><title>在ASP文件使用DLL</title></head> <body> <% 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 ’掷色子 %> <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> </form> <% End If %> </body> 在浏览器中浏览http://localhoat/dice.asp，结果如附图。注重：只有在WINDOWS NT+IIS3.0以上或WINDOWS9X+PWB的环境下才能准确浏览。 返回类别: 教程 上一教程: 用ASP开发试题库与在线考试系统(3) 下一教程: 在ASP中使用事务控制 您可以阅读与"在ASP文件中调用DLL"相关的教程: · 如何在pb中创建COM组件，并在asp中调用并返回结果集？ · 如何在PB中创建COM组件，并在ASP中调用并返回结果集 · ASP开发中数据库文件调用的捷径 · 在ASP中调用EXCEL画数据图表 · 使用ASP中的VB ACTIVEX.DLL文件 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
