用VB将ASP代码封装成DLL |
|
本文标签：ASP封装 一、引言 Server端的脚本运行环境，它不需要编译和连接，脚本可以在 Server端直接运行，并且它支持多用户、多线程，在 Web开发中得到了广泛的应用 。服务器端的组件有别于客户端的组件 。客户端的组件是通过网络传输,依靠HTML来起作用，而且只能在IE上有用 。但是服务器端的组件是运行在服务器端,它在服务器上执行各种操作 。因此，所有的浏览器都能享用,它依靠的是服务器而不是浏览器 。 但是，因为 ASP脚本是纯文本格式，所以恶意者通过源代码可以很容易地看到原本不该看到的页面内容 。因此，保护ASP源代码显得非常重要 。将ASP代码封装成DLL,不仅加快了ASP代码的执行速度,而且也能保护原代码 。当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到标签之间的代码,并且执行它(也可以是之间的代码) 。如果这个ASP程序在先前被调用过,那么它就会用内存中的编译过的程序来向用户返回HTML代码,如果没有,那么它就重新编译 。这样就大大节省了服务器的资源 。 启动你的VB,选择ActiveX图标 。这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名(class1) 。在动手之前请首先确认我们拥有Microsoft ActiveX Data Object 2.0 Library,它在我们的程序非常有用 。从菜单中选择"工程",然后在其中选择"引用",就会出现"引用"窗口,从中选择Microsoft ActiveX Data Object 2.0 Library 。 现在我们有了我们自己的工程(project1)和类名(class1) 。以后我们就会在ASP代码中使用它们的名字来引用这个组件 。在ASP中我们就这样引用,如下: 为了在类中使用ASP的方法,你必须在此类中写上初始和终止这两个函数 。输入如下代码：程序清单中 将ASP代码中的关键功能制作成动态链接库(.dll)，部分隐藏 ASP源代码 。 例如：程序清单中的Global.bas和Class1.cls中输入的代码（代码的主要功能是检索数据库中的记录并显示出来） 。 在VB的下拉菜单中选择文件→生成article.dll→选择要保存的目录 。找到article.dll将其复制到系统盘system32文件夹中，最后一步注册DLL文件 。在开始菜单中选择运行输入regsvr32 c:\winnt\system32\article.dll 。 Global.bas中的代码： Public Application As ASPTypeLibrary.Application Public Server As ASPTypeLibrary.Server Public Session As ASPTypeLibrary.Session Public Response As ASPTypeLibrary.Response Public Request As ASPTypeLibrary.Request On Error Resume Next Set objContext = GetObjectContext Set Application = objContext.Item("Application") Set Server = objContext.Item("Server") Set Session = objContext.Item("Session") Set Request = objContext.Item("Request") Set Response = objContext.Item("Response") End Sub Private Sub Class_Terminate() On Error Resume Next Set Application = Nothing Set Server = Nothing Set Session = Nothing Set Request = Nothing Set Response = Nothing Set objContext = Nothing End Sub On Error GoTo Err Set conn = Server.CreateObject("ADODB.Connection") strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("Article.mdb") conn.Open strcon Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from Article order by ArticleID desc" rs.Open sql, conn, 1, 1 Response.Write "<html>" & vbCrLf rs.Close Set rs = Nothing conn.Close Set conn = Nothing Exit Sub If Err.Number = -13572468 Then Exit Sub Resume Next End Sub
使用article.dll后的index.asp中的代码： Set AspTransBuilderObject = Server.CreateObject("article.Class1") AspTransBuilderObject.AspClassInit Set AspTransBuilderObject = Nothing%> 使用article.dll前的index.asp中的代码： strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("Article.mdb") conn.Open strcon %> <% Set rs = Server.CreateObject ("ADODB.Recordset") sql="select * from Article order by ArticleID desc" rs.Open sql, Conn,1,1 %> <head> 因为这些代码是在服务器端运行的，所以客户端不需要安装任何东西 。这仅仅是用ActiveX DLL所能实现的功能的小小的例子 。 |
