asp代码封装技术 — 编程爱好者论坛http://bbs.pfan.cn

大家都知道ASP是解释运行的，这样如果使用的不是自己的服务器很容易将源代码泄露出去，那么怎么才能保证其安全呢。

最好的办法就是将ASP代码封装起来。以DLL文件存放在服务器上。这样就没办法进行查看了

但是封装代码不能是全部代码，您只能封装ASP部分代码，建议您封装其核心代码。

我们建议您使用VC来封装它。因为如果使用VB来封装的话则服务器上必须具有VB的运行库才可以。

这里只是演示，所以我们采用VB

（1）启动你的VB,选择ActiveX图标.这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名( class1).我们会将这两个名字都改掉。在改名之前,请首先确认我们拥有Microsoft Active Server Pages Object Library,它在我们的程序非常有用.从菜单中选择"工程",然后在其中选择"引用",就会出现"引用"窗口从中选择Microsoft Active Server Pages ObjectLibrary。

      （2）给工程和类命名，现在我们来根据自己的爱好来为project1和class1来命名吧!给它们命名也是很重要的,我们以后会用这个工程名和类名来创建这个组件的实例!后面详细介绍。如何改名,我就不想多说了!我们的工程名改为test,类名为helloworld。
      （3）在类中输入以下代码：
Option Explicit
Dim rp As Response
Dim rq As Request
Dim ap As Application
Dim sr As Server
Dim sn As Session
Public Event OnStartPage()
Public Event OnEndPage()

Public Sub OnStartPage(mysc As ScriptingContext)
     ''进行对象的实例化
     Set rp = mysc.Response
     Set rq = mysc.Request
     Set sr = mysc.Server
     Set ap = mysc.Application
     Set sn = mysc.Session
     rp.Write "<br>ActiveX DLL组件已经被创建了！<br>"
End Sub

Public Sub OnEndPage()
     rp.Write "<br>ActiveX DLL组件已经被销毁！<br>"
     ''销毁对象
     Set rp = Nothing
     Set rq = Nothing
     Set sr = Nothing
     Set ap = Nothing
     Set sn = Nothing
    End Sub

Public Sub helloworld()
     rp.Write "<H1>Hello,World!</H1>"
End Sub
       现在一个小型的组件编写完成,剩下的工作就是编译这个组件,在"工程"菜单中保存它,取什么名字都可以,我们用test.vbp吧!然后就用在“文件”菜单中选择“生成 test.dll”,将其编译成DLL文件.一个组件就真正完成了!
      （4）生成好组件，下面需要注册组件。注册组件可以从“开始－运行”里面，输入“Regsvr32 E:\test\test.dll”路径当让是用自己的路径啦。
      （5）编写asp页面，新建一个test.asp页面，输入以下代码：
<HTML>
<HEAD>
<TITLE>test</TITLE>
</HEAD>
<BODY>
<%
Set ObjReference=Server.CreateObject("test.helloworld")
ObjReference.helloworld
%>
</BODY>
</HTML>
     （6）发布到IIS下面，访问一下就可以看到效果啦。

怎么样新动了吧，去试一下哦

老兄别忘了给我加分哦！！！！！！！！！！！
天降大任于斯人也，必先苦其心志，劳其筋骨，饿其体肤，空乏其身，行指乱其所为，所以动心忍性，曾益其所不能。

我要推荐

首页 \| 通行证 \| 论坛 \| BLOG \| 书评 \| 开发文章 \| 人才招聘 \| 资讯 \| 工具下载 \| 源码下载 \| 项目交易 \| 兴趣小组 \| 网友作品 \| C语言试题测试 \| 资源共享 \| ACM题库
注册新会员