用VB将ASP编程代码封装成DLL

ASP 21NN 2年前 (2018-05-24) 36次浏览 已收录 0个评论 扫描二维码

一、引言

  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:winntsystem32article.dll。

三、程序清单

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

Public Application As ASP编程TypeLibrary.Application

Public Server As ASP编程TypeLibrary.Server

Public Session As ASP编程TypeLibrary.Session

Public Response As ASP编程TypeLibrary.Response

Public Request As ASP编程TypeLibrary.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 ASP编程ClassInit()

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 “” & vbCrLf
Response.Write “” & vbCrLf
Response.Write “” & vbCrLf
Respo

123下一页


本文:用VB将ASP编程代码封装成DLL 本文链接:https://www.21nn.cn/biancheng/asp/4274.html 本站所以图片、文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如有侵权请邮件与我们联系处理。i@ki4.cn
喜欢 (0)
[1353713598@qq.com]
分享 (0)
发表我的评论
取消评论
表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址