让ASP更完美系列——编译封装成DLL教程

系列前言：

有人认为ASP门槛低，是低级语言，但笔者要更正的是，这恰恰是一款好的通用语言所要具备的特征，但正因为入门门槛低，也出现了不少不具备编程素养的初学者写出了许多不忍直视的程序;

有人认为PHP速度快，但真正入门者都知道ASP+MSSQL速度其实一点都不输PHP，原因在于ASP+MSSQL支持过程存储（请关注该系列的文章），

有人认为......跳出细节，横观ASP与PHP两种语言，都属于同一类别同一级别的语言，只是运行平台不一样，因此，只要是ASP做不到的，PHP也肯定做不了的。

对于同等级间的对比，两者没有好坏高低之分，只有素养驾驭能力之别。

但ASP与PHP却没有和.NET有可比性，前者是优秀的通用解释型语言，能帮你处理90%应用。后者则是框架类专业编译型语言，打个可能不是很恰当的比方，美军四代战机F22与F35的搭配，而F35虽没有F22高级，却是大批量装备。

因此，对于不同等级间的对比，是没有好坏却有高低之分，此时工程适用性才是最大考量因素。

笔者认为适用性广恰是ASP最大优点之所在，因此相信在诸多领域将得到广泛应用，经过时间沉淀，做为猿一族，更应客观公正的看待这门语言，对于不足，ASP高手并没有回避，而是加以创新改进，小编将通过整理，以系列的形式来与大家分享，时光不老，ASP还在，让ASP更完美！

对ASP熟悉的话,优点大家都明白，但缺陷却是我们要去完善的，比如今天要讲的代码开源问题，只要开源就不能保证代码的安全性，如果源代码一旦泄露，后果将不堪设想。更重要的是影响了其商业化进程，在这里呢，向大家推荐一个办法，就是用VB6.0将asp封装dll文件.dll文件是比较安全的，而且运行速度比asp快那么一点。具体步骤如下：

1、新建DLL

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

2、将默认工程、类重命名

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

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

2个修改后如下图

3、增加到引用asp

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

4、编写代码

01Option Explicit

02Private Context As ScriptingContext

03Private Application As Application

04Private Response As Response

05Private Request As Request

06Private Session As Session

07Private Server As Server

08Public Sub OnStartPage(PassedscriptContext As ScriptingContext)

09Set Context = PassedscriptContext

10Set Application = Context.Application

11Set Request = Context.Request

12Set Response = Context.Response

13Set Server = Context.Server

14Set Session = Context.Session

15End Sub

16

17Public Sub hello()

18Response.Write "让ASP更完美系列！"

19End Sub

20

21Public Sub OnEndPage()

22Set Application = Nothing

23Set Request = Nothing

24Set Response = Nothing

25Set Server = Nothing

26Set Session = Nothing

27Set Context = Nothing

28End Sub

5、保存工程文件

6、编译生成dll

如果没有错误提示的话说明编译成功，如果遇到访问注册表错误，是vb6没有管理员权限运行，右键使用管理员权限运行vb6就可以了。

7、注册dll

在IsOK.dll组件所在目录创建“注册.bat”批处理文件，输入：

1iisreset/stop

2regsvr32/s IsOK.dll

3iisreset/start

“卸载.bat”批处理文件，输入：

1iisreset/stop

2regsvr32 /u /s IsOK.dll

3iisreset/start

双击运行注册.bat，成功注册会提示：“IsOK.dll 中的 Dll Register Server 成功。”

8、asp中调用dll

新建test.asp文件，输入代码:

<%

Dim IsOK

Set IsOK=Server.CreateObject("IsOK.demo")

IsOK.hello()

%>

访问test.asp结果会输出：

让ASP更完美系列！