asp调用DLL或com组件的简述及网上摘例

isiqi

浏览: 16354463 次
性别:
来自: 济南

最近访客更多访客>>

nison

hellohank

wangyy

devcang

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

2012-07 ( 335)
2012-06 ( 252)
2012-05 ( 362)
更多存档...

ASP ASP.net VB.NET .net VB

动态联接库(DLL)是加快应用程序关键部分的执行速度的重要方法 asp调用DLL或com组件的方法:

步骤一:

''装载 METADATA 标签中指定的类型库。 Path是mydll.dll在机器上存放的路径

或者

(1)传统的ActiveX DLL

要想让COM能够“看到”你的组件，必须先将组件注册到注册表中：
regsvr32 XX.dll

(2)
在ASP中调用基于.Net开发的 DLL
关于组件注册，一种方法是自动注册，在vs.net2003或2005的IDE环境中可以实现COM组件的自动注册，设置如下：项目名称->右键"属性"->配置属性->生成->选中"为Com　Interop注册"，编译即可。
另一种方法是手动注册：
regasm mydll.dll /tlb:mydll.tlb /CodeBase
注意CodeBase的使用，如果你要注册的.NET程序集没有强名称的话，那么在使用regasm注册的时候就要加上/CodeBase。

步骤二:

创建相应对象:

...

Set dice1=Server.Createobject("XXX")

...

网上摘例:

例一:

首先，必须得有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在机器上存放的路径
<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的环境下才能正确浏览。

摘例二:

net的dll已经不是严格意义上的动态连接库了，而是一个类或者类库。它是不能直接在ASP、VB等其它的应用
环境中使用的。我们可以通过COM包装器（COM callable wrapper （CCW））来将.net的dll再次包装，通过这个中间介质来实现相应的功能。

以下是一个小例子，供大家参考。
1. 在.net Visual Studio 中新建一个Class项目。
2. 在项目中新添加一个类，代码如下：

using System;

namespace ClassLibrary1
{

//定义接口，这点很重要（此接口中的方法与COM组件中的方法一致）
public interface iClass1
{

string test() ;

}

public class Class1 : iClass1
{

private string t = "";
//实现接口中的方法
public string test()
{

return "ok";
}
}
}

3.在.NET命令行窗口中,创建密钥对。
可以用.net 自带的工具：sn.exe 来创建密钥对。
如：SN –k testDll.Keys
4. 创建强命名程序集(Strong Name Assembly)
在AssemblyInfo.cs文件中，添加[assembly: AssemblyKeyFile(@"c:\test.keys")]属性

5. 编译整个项目,生成ClassLibrary1.dll (此DLL可在 \bin\Debug 路径下找到。)
6. 在.NET命令行窗口中,生成类型库
tlbexp ClassLibrary1.dll /out:ClassLibrary1.tlb

7. 在.NET命令行窗口中,注册装配件
regasm /tlb:ClassLibrary1.tlb ClassLibrary1.dll

8. 在.NET命令行窗口中,将.NET装配件安装到全局装配件缓存(GAC)中
gacutil /i ClassLibrary1.dll

9. 在asp中测试
<%
SET s = CreateObject("ClassLibrary1.Class1")
Response.Write(s.test())
%>
-----------------------------------------------

动态联接库(DLL)可以加快应用程序关键部分的执行速度，同时通过统一的COM接口调用，对DLL的使用也可以最大限度地发挥组件的重用性。用户不必关心DLL采用什么语言编写，只需关注其提供了哪些功能及接口参数，便可以为我所用。
目前，基于.Net技术编写的DLL组件越来越多，而传统的ASP中如果也可以应用这些组件提供的功能，可以避免很多程序员无谓的劳动。最近本人在工作中需要在ASP中调用.Net环境下生成的DLL，做过一些研究，特将自己的经验共享出来。其实都是很简单的东西，高手尽管嘲笑，呵呵～

1、在ASP中调用传统的ActiveX DLL
要想让COM能够“看到”你的组件，必须先将组件注册到注册表中：
regsvr32 mydll.dll
然后在ASP中创建对象：
set mydll= server.createobject("mydll.method")
mydll.method
这样就可以使用组件中的属性和方法了。

２、在ASP中调用基于.Net开发的 DLL
关于组件注册，一种方法是自动注册，在vs.net2003或2005的IDE环境中可以实现COM组件的自动注册，设置如下：项目名称->右键"属性"->配置属性->生成->选中"为Com　Interop注册"，编译即可。
另一种方法是手动注册：
regasm mydll.dll /tlb:mydll.tlb /CodeBase
注意CodeBase的使用，如果你要注册的.NET程序集没有强名称的话，那么在使用regasm注册的时候就要加上/CodeBase。
注册完毕，创建对象及使用方法与上面相同：
set mydll= server.createobject("mydll.method")
mydll.method

其实，不只是ASP，其他的COM程序（包括VBA、扩展存储过程等等）调用DLL的方法都是一样的。