推荐设备MORE

昌吉企业官网建设—网站设计

昌吉企业官网建设—网站设计

公司新闻

VB6将ASP编译程序封裝成DLL实例教程(文图)

日期:2021-03-17
我要分享

大伙儿假如对ASP了解得话,就了解ASP较大的缺点便是不可以确保编码的安全性性,假如源码一旦泄漏,不良影响将不堪入目构想。在这里里呢,向大伙儿强烈推荐一个方法,便是用VB6.0将asp封裝dll文档.dll文档是较为安全性的,并且运作速率比asp快那麼一点。实际流程以下:

 

1、在建DLL
开启VB6-- 文档-- 在建工程项目-- 挑选ActiveX DLL-- 开启
asp编译dll
2、将默认设置工程项目、类重新命名

工程项目重新命名:工程项目-- 工程项目1 特性(此名字相匹配文本框内工程项目新项目名字)-- 在开启会话框里将 工程项目名字 重新命名为yuzhiguo(当DLL部件在系统软件中申请注册后,在asp中默认设置的启用方式是 工程项目名.类名 )-- 明确
asp编译dll文件2
类重新命名在特性对话框里将名字重新命名为demo
asp编译dll文件3
两个改动后以下图
asp编译dll文件4
3、提升到引入asp

点一下工程项目 引入,随后挑选在其中的Microsoft Active Server Pages Object Library,也有引入Microsoft VBScript Regular Expressions 5.5(RegExp正则表达式表述式目标)
asp编译dll文件5
asp编译dll文件6
4、撰写编码

Option Explicit
Private Context As ScriptingContext
Private Application As Application
Private Response As Response
Private Request As Request
Private Session As Session
Private Server As Server
Public Sub OnStartPage(PassedscriptContext As ScriptingContext)
Set Context = PassedscriptContext
Set Application = Context.Application
Set Request = Context.Request
Set Response = Context.Response
Set Server = Context.Server
Set Session = Context.Session
End Sub
Public Sub hello()
Response.Write  热烈欢迎浏览金猫数据信息互联网比较有限企业! 
End Sub
Public Sub OnEndPage()
Set Application = Nothing
Set Request = Nothing
Set Response = Nothing
Set Server = Nothing
Set Session = Nothing
Set Context = Nothing
End Sub
asp编译dll文件7
5、储存工程项目文档
asp编译dll文件8
6、编译程序转化成dll
asp编译dll文件9
假如沒有不正确提醒得话表明编译程序取得成功,假如碰到浏览申请注册表不正确,是vb6沒有管理方法员管理权限运作,鼠标右键应用管理方法员管理权限运作vb6便可以了。

 

7、申请注册dll

在yuzhiguo.dll部件所属文件目录建立 申请注册.bat 批处理命令文档,键入: 

iisreset/stop 
regsvr32/s yuzhiguo.dll 
iisreset/start


卸载掉.bat 批处理命令文档,键入: 

iisreset/stop 
regsvr32 /u /s yuzhiguo.dll 
iisreset/start


双击鼠标运作申请注册.bat,取得成功申请注册会提醒: yuzhiguo.dll 中的 Dll Register Server 取得成功。  
 

8、asp中启用dll

在建test.asp文档,键入编码:

%
Dim yuzhiguo
Set yuzhiguo=Server.CreateObject( yuzhiguo.demo )
yuzhiguo.hello()
%

浏览test.asp結果会輸出:

热烈欢迎浏览金猫数据信息互联网比较有限企业!