VB6将ASP编译封装成DLL教程

大家如果对ASP熟悉的话,就知道ASP最大的缺陷就是不能保证代码的安全性，如果源代码一旦泄露，后果将不堪设想。在这里呢，向大家推荐一个办法，就是用VB6.0将asp封装dll文件.dll文件是比较安全的，而且运行速度比asp快那么一点。具体步骤如下：

1、新建DLL
打开VB6-->文件-->新建工程-->选择ActiveX DLL-->打开

2、将默认工程、类重命名
工程重命名：工程-->工程1 属性（此名称对应窗体内工程项目名称）-->在打开对话框中将“工程名称”重命名为yuzhiguo（当DLL组件在系统中注册后，在asp中默认的调用方法是“工程名.类名”）-->确定

类重命名在属性窗口中将名称重命名为demo

2个修改后如下图

3、增加到引用asp

点击工程——引用，然后选择其中的Microsoft Active Server Pages Object Library，还有引用Microsoft VBScript Regular Expressions 5.5（RegExp正则表达式对象）

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

5、保存工程文件

6、编译生成dll

如果没有错误提示的话说明编译成功，如果遇到访问注册表错误，是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结果会输出：

欢迎访问余志国网站设计工作室！

如果你电脑还没有安装vb6，可以点此下载。

发表评论

您的IP：3.235.60.197，来自：