您的位置:首页精文荟萃软件资讯 → 在ASP文件中调用DLL

在ASP文件中调用DLL

时间:2004/10/7 19:15:00来源:本站整理作者:蓝点我要评论(0)


            
             
              
             
            

               
               

            



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

在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 ’掷色子
%>

当色子的面数为>时




结果为:<% = dice1.Result %>点

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

当色子的面数为>时




<%
End If
%>

  

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3

最新文章 微信3.6.0测试版更新了微信支付漏洞会造成哪 360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本