天枫庄资源网 Design By www.wosibo.com
本文通过VB5.0创建ActiveX 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 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,所以我没有去完善它。如果哪位高手有更好的方法或者不同的见解,请千万mail我,我的信箱:jimi_chen@yeah.net
标签:
实例学习如何在ASP中调用DLL

天枫庄资源网 Design By www.wosibo.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
天枫庄资源网 Design By www.wosibo.com

评论“实例学习如何在ASP中调用DLL”

暂无实例学习如何在ASP中调用DLL的评论...

稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!

昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?