时间:2021-05-18
本文通过VB5.0创建ActiveXDLL文件,这个文件模拟了一个掷色子的过程,向大家介绍如何在ASP中调用DLL的文章专题。
动态联接库(DLL)是加快应用程序关键部分的执行速度的重要方法,但有一点恐怕大部分人都不知道,那就是在ASP文件也能通过调用DLL来加快服务器的执行速度,下面我简单的介绍一下在ASP文件调用DLL的步骤。
首先,必须得有DLL文件,本例是通过VB5.0创建ActiveXDLL文件,这个文件模拟了一个掷色子的过程。
在VB5.0的环境下,新建一个工程,并双击新建工程窗口中ActiveXDLL图标,VB将自动为项目添加一个类模块,并将该项目类型设置为ActiveXDLL。在属性窗口将类模块的名称属性改为clsDice。从工程菜单中,选择工程属性,将工程名称改为MyDLL。从文件菜单中,选择保存clsDice,将类模块保存为myDice.cls。添加以下代码:
OptionExplicit
PrivateMax,PointAsInteger
PublicPropertyGetResult()AsInteger
Result=Point
EndProperty
PublicPropertyGetMaxpoint()AsInteger
Maxpoint=Max
EndProperty
PublicPropertyLetMaxpoint(numAsInteger)
Max=num
EndProperty
PublicSubThrow()
Randomize
Point=Int(Rnd*Max)+1
EndSub
PrivateSubClass_Initialize()
Max=6
EndSub
这个类模块定义了clsDice对象的两个属性和一个方法,这些属性和方法模拟了掷色子的过程。其中Maxpoint属性表示色子的面数,加入PropertyLet语句将使客户能修改色子的面数;Result属性表示最后掷出色子的点数;Throw方法代表掷色子的动作;PrivateSubClass_Initialize语句将色子的面数缺省的设置为6面。
从文件菜单中,选择生成MYDLL.DLL并将它保存到适当的地方。至此,我们就创建了一个自己的DLL文件。
第二步要做的就是要在ASP文件中引用类clsDice。
ASP(活动服务器页面ActiveServerPages)的所有代码都是在服务器上运行的,客户只能查看以HTML形式传回的结果。它使用“<%”和“%>”标记来标识脚本代码,并不传回客户端,在代码外部,使用HTML标记来标识内容。在下面Dice.asp的代码中使用了CreateObject函数创建了一个clsDice对象实例,该对象来自于上面创建的ActiveX.DLL--MYDLL.DLL文件,下面的例子使用了VBScript脚本语言。
<!--METADATATYPE="typelib"FILE="Path/mydll.dll"-->
'装载METADATA标签中指定的类型库。Path是mydll.dll在机器上存放的路径
<html>
<head><title>在ASP文件使用DLL</title></head>
<body>
<%
OnErrorResumeNext‘当程序出现意外错误时能继续执行
IfRequest.Form("T1")=""then
Session("point")=6
Else
Session("point")=Request.Form("T1")
EndIf
'用Session("point")来存放色子的面数
Setdice1=Server.Createobject("MyDLL.clsDice")
'使用set语句创建dice1对象,其中MyDLL是上面创建dll文件时的工程名称(注意:不是文件的名称),clsDice为类模块的名称。至此我们就可以用Maxpoint,Result和Throw属性(方法)来对dice1对象进行操作。
IfRequest.ServerVariables("Request_Method")="POST"then
dice1.Maxpoint=Session("point")‘设定色子的面数
dice1.Throw'掷色子
%>
<formmethod="POST"action="dice.asp">
<p>当色子的面数为<inputtype="text"name="T1"size="5"value=<%=session("point")%>>时</p>
<p><inputtype="submit"value="掷色子"name="B1"></p>
</form>
<p>结果为:<%=dice1.Result%>点</p>‘返回结果
<%
Else
dice1.Maxpoint=Session("point")
%>
<formmethod="POST"action="dice.asp">
<p>当色子的面数为<inputtype="text"name="T1"size="5"value=<%=session("point")%>>时</p>
<p><inputtype="submit"value="掷色子"name="B1"></p>
</form>
<%
EndIf
%>
</body>
在浏览器中浏览http://localhoat/dice.asp,结果如附图。注意:只有在WINDOWSNT+IIS3.0以上或WINDOWS9X+PWB的环境下才能正确浏览。
以上代码在WINDOWSNT4.0+SP3+IIS4.0+IE5.0+VB5.0上编译运行通过,但还有不少的缺陷,但我的本意是向大家介绍如何在ASP中调用DLL,所以我没有去完善它。如果哪位高手有更好的方法或者不同的见解,请千万mail我,我的信箱:jimi_chen@yeah.net
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
C#编程中,调用封装dll中的函数是高频使用的。那么,如何在程序中加载dll并调用其中的函数呢?更进一步的,如何在主程序中对自己封装的dll中的函数进行调试呢?
ASP.NET中前台javascript与后台代码调用1如何在JavaScript访问C#函数?2.如何在JavaScript访问C#变量?3.如何在C#中访问
在上一篇文章中,我们已经学习了如何在ASP.NETCore中使用HttpClient从WebAPI获取数据。此外,我们还学习了如何使用GetAsync方法和Ht
在Asp.net里调用非托管的.dll文件时,出现“Anattemptwasmadetoloadaprogramwithanincorrectformat.(E
本文实例讲述了python引用DLL文件的方法。分享给大家供大家参考。具体分析如下:在python中调用dll文件中的接口比较简单,如我们有一个test.dll