用VB将ASP代码封装成DLL

一、引言

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中我们就这样引用,如下:
Set ObjReference = Server.CreateObject("ProjectName.ClassName")

为了在类中使用ASP的方法,你必须在此类中写上初始和终止这两个函数。输入如下代码：程序清单中
Class1.cls中的Private Sub Class_Initialize()和Private Sub Class_Terminate()

将ASP代码中的关键功能制作成动态链接库(.dll)，部分隐藏 ASP源代码。例如：程序清单中的Global.bas和Class1.cls中输入的代码（代码的主要功能是检索数据库中的记录并显示出来）。

在VB的下拉菜单中选择文件→生成article.dll→选择要保存的目录。找到article.dll将其复制到系统盘system32文件夹中，最后一步注册DLL文件。在开始菜单中选择运行输入regsvr32 c:\winnt\system32\article.dll。

三、程序清单

Global.bas中的代码：
Public objContext As ObjectContext

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

Class1.cls中的代码：
Private Sub Class_Initialize()

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

Public Sub AspClassInit()

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 "

 1<html>" &amp; vbCrLf   
 2Response.Write "<head>" &amp; vbCrLf   
 3Response.Write "<meta charset="utf-8" content="" content-type""="" html;="" http-equiv="" text=""/>" &amp; vbCrLf   
 4Response.Write "<title>文章管理系统-CSSTUDIO</title>" &amp; vbCrLf   
 5Response.Write "</head>" &amp; vbCrLf   
 6Response.Write "<body #ffffff""="" 0""="" bgcolor="" topmargin="">" &amp; vbCrLf   
 7Response.Write "<table 0""="" 100%""="" 2""="" border="" cellpadding="" cellspacing="" width="">" &amp; vbCrLf   
 8Response.Write " <tr>" &amp; vbCrLf   
 9Response.Write " <td 20""="" 742""="" height="" width="">文章标题</td>" &amp; vbCrLf   
10Response.Write " <td 90""="" width="">点击</td>" &amp; vbCrLf   
11Response.Write " <td 145""="" width="">添加日期</td>" &amp; vbCrLf   
12Response.Write " </tr>" &amp; vbCrLf   
13Response.Write "</table>" &amp; vbCrLf   
14While Not rs.EOF And Rows &lt; rs.PageSize   
15Response.Write "<table 0""="" 100%""="" border="" cellpadding="" cellspacing="" width="">" &amp; vbCrLf   
16Response.Write " <tr>" &amp; vbCrLf   
17Response.Write " <td 20""="" 747""="" height="" width="">☆<a """="" articleid")="" href="" response.write="" view.asp?id="   
18Response.Write rs(">" &amp; vbCrLf   
19Response.Write " "   
20Response.Write rs("标题")   
21Response.Write "</a></td>" &amp; vbCrLf   
22Response.Write " <td 94""="" width="">"   
23Response.Write rs("点击")   
24Response.Write "</td>" &amp; vbCrLf   
25Response.Write " <td 148""="" width="">"   
26Response.Write rs("添加日期")   
27Response.Write "</td>" &amp; vbCrLf   
28Response.Write " </tr>" &amp; vbCrLf   
29Response.Write "</table>" &amp; vbCrLf   
30rs.MoveNext   
31Wend   
32Response.Write "</body>" &amp; vbCrLf   
33Response.Write "</html>

" & vbCrLf

rs.Close

Set rs = Nothing

conn.Close

Set conn = Nothing

Exit Sub

Err:

If Err.Number = -13572468 Then Exit Sub

Resume Next

End Sub

使用article.dll后的index.asp中的代码：

1Dim AspTransBuilderObject 
2
3Set AspTransBuilderObject = Server.CreateObject("article.Class1") 
4
5AspTransBuilderObject.AspClassInit 
6
7Set AspTransBuilderObject = Nothing

使用article.dll前的index.asp中的代码：

1 Set conn=Server.CreateObject("ADODB.Connection") 
2
3strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
4
5"Data Source=" & Server.MapPath("Article.mdb") 
6
7conn.Open strcon

1 Set rs = Server.CreateObject ("ADODB.Recordset") 
2
3sql="select * from Article order by ArticleID desc" 
4
5rs.Open sql, Conn,1,1

 1<html>
 2<head>
 3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 4<title>文章管理系统-CSSTUDIO</title>
 5</head>
 6<body bgcolor="#FFFFFF" topmargin="0">
 7<table border="0" cellpadding="2" cellspacing="0" width="100%">
 8<tr>
 9<td height="20" width="742">文章标题</td>
10<td width="90">点击</td>
11<td width="145">添加日期</td>
12</tr>
13</table>

While Not Rs.Eof And Rows<rs.pagesize <table="" ```="" border="0" cellpadding="0" cellspacing="0" width="100%">

☆

 1 =rs("标题") 
 2```</a></td>
 3<td width="94">```
 4 = rs("点击") 
 5```</td>
 6<td width="148">```
 7 = rs("添加日期") 
 8```</td>
 9</tr>
10