ASP封状DLL的方法
大家如果对ASP熟悉的话,就知道ASP最大的缺陷就是不能保证代码的安全性,如果源代码一旦泄露,后果将不堪设想.再这里呢,向大家推荐一个办法,就是用VB6.0将asp封装dll文件.dll文件是比较安全的,而且运行速度比asp快那么一点.具体步骤如下:
步骤/方法
- 01
打开VB6.0新建一个Active DLL工程,这里将工程命名为first,类名为test
- 02
然后将Micorsoft Active Server Page Library引用到该工程中
- 03
定义asp中常用的对象 Dim Response as Response Dim Request as Request Dim Session as Session Dim Server as Server Dim Application as Applicaton
- 04
创建事件 Public Sub OnStartPage(ScrCo as ScriptContent) '----创建事件 Set Response = ScrCo.Response Set Request = ScrCo.Request Set Session = ScrCo.Session Set Server = ScrCo.Server Set Application = ScrCo.Application End Sub Public Sub OnEndPage() Set Response= nothing Set Request= nothing Set Session = nothing Set Server = nothing Set Application = nothing End Sub '-------------以上两个事件都是千篇一律的
- 05
创建自己的方法,这里以一个简单的Hello World为例 Public Sub HelloWorld() Response.Write("Hello World") End Sub
- 06
创建完了之后,选择文件生成first.dll即可 然后用记事本创建asp程序 <% Set testme = Server.CreateObject("first.test") '----first是工程名,test是类名 testme.HelloWorld() '----------调用Hello World 方法 Set testme = nothing %>
- 07
运行,就可以看到运行结果了