首页 >> 读书频道 >> 电脑 >> 在ASP文件中调用DLL
 
· 在ASP中用EasyMa
· 在ASP中用EasyMa
· 在ASP中用EasyMa
· 在ASP中用EasyMa
· 在ASP中用EasyMa
· 站内搜索脚本例子二(Ja
· 站内搜索脚本例子六(Ja
· 站内搜索脚本例子三(Ja
· 站内搜索脚本例子四(Ja
· 站内搜索脚本例子五(Ja
· 站内搜索脚本例子一(Ja
· 掌握ASP其实只需要6步
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

在ASP文件中调用DLL


查看有无更新版本

关键字:ASP 2006-9-16

 

动态联接库(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的环境下才能正确浏览。
  
  以上代码在WINDOWS NT4.0+SP3+IIS4.0+IE5.0+VB5.0上编译运行通过,但还有不少的缺陷,但我的本意是向大家介绍如何在ASP中调用DLL,所以我没有去完善它。

在ASP文件中调用DLL

[ 1 ]
在ASP文件中调用DLL num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑