|
|
<p><font face="Verdana">使用VB将ASP代码封装生成DLL文件<br/>一、引言<br/> Server端的脚本运行环境，它简单易用，不需要编译和连接，脚本可以在 Server端直接运行，并且它支持多用户、多线程，在 Web开发中得到了广泛的应用。服务器端的组件有别于客户端的组件。客户端的组件是通过网络传输,依靠HTML来起作用，而且只能在IE上有用。但是服务器端的组件是运行在服务器端,它在服务器上执行各种操作。因此，所有的浏览器都能享用,它依靠的是服务器而不是浏览器。但是，因为 ASP脚本是纯文本格式，所以恶意者通过源代码可以很容易地看到原本不该看到的页面内容。因此，保护ASP源代码显得非常重要。将ASP代码封装成DLL,不仅加快了ASP代码的执行速度,而且也能保护原代码。当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到标签之间的代码,并且执行它(也可以是之间的代码)。如果这个ASP程序在先前被调用过,那么它就会用内存中的编译过的程序来向用户返回HTML代码,如果没有,那么它就重新编译。这样就大大节省了服务器的资源。<br/> 二、实现方法<br/> 启动你的VB,选择ActiveX图标。这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名(class1)。在动手之前请首先确认我们拥有Microsoft ActiveX Data Object 2.0 Library,它在我们的程序非常有用。从菜单中选择"工程",然后在其中选择"引用",就会出现"引用"窗口,从中选择Microsoft ActiveX Data Object 2.0 Library。<br/> 现在我们有了我们自己的工程(project1)和类名(class1)。以后我们就会在ASP代码中使用它们的名字来引用这个组件。在ASP中我们就这样引用,如下: <br/>Set ObjReference = Server.CreateObject("ProjectName.ClassName")<br/> 为了在类中使用ASP的方法,你必须在此类中写上初始和终止这两个函数。输入如下代码：程序清单中<br/>Class1.cls中的Private Sub Class_Initialize()和Private Sub Class_Terminate()<br/> 将ASP代码中的关键功能制作成动态链接库(.dll)，部分隐藏 ASP源代码。 例如：程序清单中的Global.bas和Class1.cls中输入的代码（代码的主要功能是检索数据库中的记录并显示出来）。<br/> 在VB的下拉菜单中选择文件→生成article.dll→选择要保存的目录。找到article.dll将其复制到系统盘system32文件夹中，最后一步注册DLL文件。在开始菜单中选择运行输入regsvr32 c:\winnt\system32\article.dll。<br/> 三、程序清单<br/> Global.bas中的代码：<br/>以下是引用片段：<br/>Public objContext As ObjectContext <br/>Public Application As ASPTypeLibrary.Application <br/>Public Server As ASPTypeLibrary.Server <br/>Public Session As ASPTypeLibrary.Session <br/>Public Response As ASPTypeLibrary.Response <br/>Public Request As ASPTypeLibrary.Request <br/> Class1.cls中的代码： <br/>Private Sub Class_Initialize() <br/>On Error Resume Next <br/>Set objContext = GetObjectContext <br/>Set Application = objContext.Item("Application") <br/>Set Server = objContext.Item("Server") <br/>Set Session = objContext.Item("Session") <br/>Set Request = objContext.Item("Request") <br/>Set Response = objContext.Item("Response") <br/>End Sub <br/>Private Sub Class_Terminate() <br/>On Error Resume Next <br/>Set Application = Nothing <br/>Set Server = Nothing <br/>Set Session = Nothing <br/>Set Request = Nothing <br/>Set Response = Nothing <br/>Set objContext = Nothing <br/>End Sub <br/>Public Sub AspClassInit() <br/>On Error GoTo Err <br/>Set conn = Server.CreateObject("ADODB.Connection") <br/>strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ <br/>"Data Source=" & Server.MapPath("Article.mdb") <br/>conn.Open strcon <br/>Set rs = Server.CreateObject("ADODB.Recordset") <br/>sql = "select * from Article order by ArticleID desc" <br/>rs.Open sql, conn, 1, 1 <br/>Response.Write "<html>" & vbCrLf <br/>Response.Write "<head>" & vbCrLf <br/>Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf <br/>Response.Write "<title>文章管理系统-CSSTUDIO</title>" & vbCrLf <br/>Response.Write "</head>" & vbCrLf <br/>Response.Write "<body bgcolor=""#FFFFFF"" topmargin=""0"">" & vbCrLf <br/>Response.Write "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""0"">" & vbCrLf <br/>Response.Write " <tr>" & vbCrLf <br/>Response.Write " <td width=""742"" height=""20"">文章标题</td>" & vbCrLf <br/>Response.Write " <td width=""90"">点击</td>" & vbCrLf <br/>Response.Write " <td width=""145"">添加日期</td>" & vbCrLf <br/>Response.Write " </tr>" & vbCrLf <br/>Response.Write "</table>" & vbCrLf <br/>While Not rs.EOF And Rows < rs.PageSize <br/>Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf <br/>Response.Write " <tr>" & vbCrLf <br/>Response.Write " <td width=""747"" height=""20"">☆<a href=""view.asp?id=" <br/>Response.Write rs("ArticleID") <br/>Response.Write """>" & vbCrLf <br/>Response.Write " " <br/>Response.Write rs("标题") <br/>Response.Write "</a></td>" & vbCrLf <br/>Response.Write " <td width=""94"">" <br/>Response.Write rs("点击") <br/>Response.Write "</td>" & vbCrLf <br/>Response.Write " <td width=""148"">" <br/>Response.Write rs("添加日期") <br/>Response.Write "</td>" & vbCrLf <br/>Response.Write " </tr>" & vbCrLf <br/>Response.Write "</table>" & vbCrLf <br/>rs.MoveNext <br/>Wend <br/>Response.Write "</body>" & vbCrLf <br/>Response.Write "</html>" & vbCrLf <br/>rs.Close <br/>Set rs = Nothing <br/>conn.Close <br/>Set conn = Nothing <br/>Exit Sub <br/>Err: <br/>If Err.Number = -13572468 Then Exit Sub <br/>Resume Next <br/>End Sub </font></p>
<p><font face="Verdana">使用article.dll后的index.asp中的代码： <br/>以下是引用片段：<br/><%Dim AspTransBuilderObject <br/>Set AspTransBuilderObject = Server.CreateObject("article.Class1") <br/>AspTransBuilderObject.AspClassInit <br/>Set AspTransBuilderObject = Nothing%> <br/> 使用article.dll前的index.asp中的代码：<br/>以下是引用片段：<br/><% Set conn=Server.CreateObject("ADODB.Connection") <br/>strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ <br/>"Data Source=" & Server.MapPath("Article.mdb") <br/>conn.Open strcon %> <br/><% Set rs = Server.CreateObject ("ADODB.Recordset") <br/>sql="select * from Article order by ArticleID desc" <br/>rs.Open sql, Conn,1,1 %> <br/><html> <br/><head> <br/><meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <br/><title>文章管理系统-CSSTUDIO</title> <br/></head> <br/><body bgcolor="#FFFFFF" topmargin="0"> <br/><table width="100%" border="0" cellpadding="2" <br/>cellspacing="0"> <br/><tr> <br/><td width="742" height="20">文章标题</td> <br/><td width="90">点击</td> <br/><td width="145">添加日期</td> <br/></tr> <br/></table> <br/><% While Not Rs.Eof And Rows<Rs.PageSize %> <br/><table width="100%" border="0" cellspacing="0" <br/>cellpadding="0"> <br/><tr> <br/><td width="747" height="20">☆<a href="view.asp?id=<% <br/>= rs("ArticleID") %>"> <br/><% =rs("标题") %></a></td> <br/><td width="94"><% = rs("点击") %></td> <br/><td width="148"><% = rs("添加日期") %></td> <br/></tr> <br/></table> <br/><% Rs.MoveNext <br/>Wend %> <br/></body> <br/></html> <br/><% rs.close <br/>set rs=nothing <br/>conn.close <br/>set conn=nothing %> </font></p> |
|
发表于 2008-5-11 09:41:40
发表于 2008-12-8 18:27:10