实例学习如何在ASP中调用DLL

本文通过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

赞 (0)

相关推荐

  • 实例学习如何在ASP中调用DLL

    本文通过VB5.0创建ActiveX DLL文件,这个文件模拟了一个掷色子的过程,向大家介绍如何在ASP中调用DLL的文章专题. 动态联接库(DLL)是加快应用程序关键部分的执行速度的重要方法,但有一点恐怕大部分人都不知道,那就是在ASP文件也能通过调用DLL来加快服务器的执行速度,下面我简单的介绍一下在ASP文件调用DLL的步骤.  首先,必须得有DLL文件,本例是通过VB5.0创建ActiveX DLL文件,这个文件模拟了一个掷色子的过程.  在VB5.0的环境下,新建一个工程,并双击新建工

  • 分享如何在VB中调用VC编写的DLL

    一般来说,VB和VC共同编程有3种方式:一种是VC生成DLL,在VB中调用DLL:一种是VC生成ActiveX控件(.ocx),在VB中插入:还有一种是在VC中生成ActiveX Automation服务器,在VB中调用.相对而言,第一种方法对VC编程者的要求最低,但要求你的伙伴进行配合,我推荐这种方法. 先说说VC++的编程.首先在VC++中生成Win32 DLL工程.在这个工程中添加几个函数供VB用户调用.一个DLL中的函数要想被VB调用,必须满足两个条件:一是调用方式为stdcall,另一

  • 如何在UpdatePanel中调用JS客户端脚本

    页面中加入了UpdatePanel后,Response.Write("<script>function dis (){alert('这是调用写在server的JS');}</script>")来调用客户端脚本,无任何提示的无反应.如何在UpdatePanel中调用JS客户端脚本呢? 方法:采用 ScriptManager.RegisterStartupScript(Control controlId,Type this.GetType(),String key,

  • 如何在C#中调用COM组件

    一.引言 COM(Component Object Modele,组件对象模型)是微软以前推崇的一个开发技术,所以现在微软的很多产品都用到了COM组件,如Office,IE 等.然而如果.NET 平台下的程序想访问COM组件的方式来实现某个功能怎么办呢? 正是由于开发人员有这个需求,所以微软在.NET FrameWork中为COM和托管代码之间进行互操作提供了支持,这种互操作性的技术就是COM Interop. 但是COM Interop(COm互操作)这项技术,不仅支持在托管代码中使用COM对

  • C#中调用DLL时未能加载文件或程序集错误的处理方法(详解)

    C#中调用DLL时未能加载文件或程序集错误的处理方法(详解)

    在加载DLL时,出现了如下的异常:未能加载文件或程序集"DMC3000, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null"或它的某一个依赖项. 试图加载格式不正确的程序. 经上网查询后,其原因是x64和x86不兼容的问题.即DLL是x64的,但是VS默认生成的目标平台是x86的,因此,两者的不一致导致异常的出现. 其解决办法如下: 项目->属性->生成->目标平台->x64(与dll平台一致) 以上这篇

  • Sql Server 数据库中调用dll文件的过程

    1.首先新建一个空的解决方案,并添加一个类库,代码如下,编译并生产dll using System; using System.Collections.Generic; using System.Data.SqlTypes; using System.Linq; using System.Text; namespace TEST { public class TestTrans { [Microsoft.SqlServer.Server.SqlFunction] public static Sq

  • Python如何在main中调用函数内的函数方式

    一般在Python中在函数中定义的函数是不能直接调用的,但是如果要用的话怎么办呢? 一般情况下: def a():#第一层函数 def b():#第二层函数 print('打开文件B') b()#第二层中的函数直接调用 结果显示: Traceback (most recent call last): File "C:/Users/rog/Desktop/wenzhang.py", line 4, in <module> b() NameError: name 'b' is

  • 如何在C++中调用Python

    Python的安装 为了使用Python.h这个扩展项,我们需要安装一个python*-dev而不是python*,这两者略有区别,下面的案例展示的是在Ubuntu20.04下安装python3.9-dev的方法: dechin@ubuntu2004:~/projects/gitlab/dechin/$ sudo apt install python3.9-dev 正在读取软件包列表... 完成 正在分析软件包的依赖关系树 正在读取状态信息... 完成 下列软件包是自动安装的并且现在不需要了:

  • 详解如何在Java中调用Python程序

    Java中调用Python程序 1.新建一个Maven工程,导入如下依赖 <dependency> <groupId>org.python</groupId> <artifactId>jython-standalone</artifactId> <version>2.7.0</version> </dependency> 2.在java中直接执行python代码片段 import org.python.util

  • 如何在Java中调用python文件执行详解

    目录 一.Java内置Jpython库(不推荐) 1.1 下载与使用 1.2 缺陷 二.使用Runtime.getRuntime()执行脚本⽂件 2.1 使用 2.2 缺陷 三.利用cmd调用python文件 3.1 使用 3.2 优化 总结 一.Java内置Jpython库(不推荐) 1.1 下载与使用 可以在官网下载jar包,官网:http://ftp.cuhk.edu.hk/pub/packages/apache.org/ 或者使用maven进行jar包下载 <dependency> &

随机推荐