使用VB将ASP代码封装生成DLL文件

最新推荐文章于 2024-04-25 10:52:13 发布
最新推荐文章于 2024-04-25 10:52:13 发布
阅读量763 收藏 1
点赞数
分类专栏： 【 ASP 】 文章标签： asp vb dll microsoft 服务器 class
  使用VB将ASP代码封装生成DLL文件
2007-05-24 08:00 作者： 出处：天极Yesky 责任编辑：罗可龙

一、引言

　　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 "<html>" & vbCrLf 
Response.Write "<head>" & vbCrLf 
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf 
Response.Write "<title>文章管理系统-CSSTUDIO</title>" & vbCrLf 
Response.Write "</head>" & vbCrLf 
Response.Write "<body bgcolor=""#FFFFFF"" topmargin=""0"">" & vbCrLf 
Response.Write "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""0"">" & vbCrLf 
Response.Write " <tr>" & vbCrLf 
Response.Write " <td width=""742"" height=""20"">文章标题</td>" & vbCrLf 
Response.Write " <td width=""90"">点击</td>" & vbCrLf 
Response.Write " <td width=""145"">添加日期</td>" & vbCrLf 
Response.Write " </tr>" & vbCrLf 
Response.Write "</table>" & vbCrLf 
While Not rs.EOF And Rows < rs.PageSize 
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf 
Response.Write " <tr>" & vbCrLf 
Response.Write " <td width=""747"" height=""20"">☆<a href=""view.asp?id=" 
Response.Write rs("ArticleID") 
Response.Write """>" & vbCrLf 
Response.Write " " 
Response.Write rs("标题") 
Response.Write "</a></td>" & vbCrLf 
Response.Write " <td width=""94"">" 
Response.Write rs("点击") 
Response.Write "</td>" & vbCrLf 
Response.Write " <td width=""148"">" 
Response.Write rs("添加日期") 
Response.Write "</td>" & vbCrLf 
Response.Write " </tr>" & vbCrLf 
Response.Write "</table>" & vbCrLf 
rs.MoveNext 
Wend 
Response.Write "</body>" & vbCrLf 
Response.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中的代码：

以下是引用片段：
<%Dim AspTransBuilderObject 

Set AspTransBuilderObject = Server.CreateObject("article.Class1") 

AspTransBuilderObject.AspClassInit 

Set AspTransBuilderObject = Nothing%>


　　使用article.dll前的index.asp中的代码：
以下是引用片段：
<% 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 %> 


<html> 

<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>文章管理系统-CSSTUDIO</title> 
</head> 
<body bgcolor="#FFFFFF" topmargin="0"> 
<table width="100%" border="0" cellpadding="2"  
cellspacing="0"> 
<tr> 
<td width="742" height="20">文章标题</td> 
<td width="90">点击</td> 
<td width="145">添加日期</td> 
</tr> 
</table> 
<% While Not Rs.Eof And Rows<Rs.PageSize %> 
<table width="100%" border="0" cellspacing="0"  
cellpadding="0"> 
<tr> 
<td width="747" height="20">☆<a href="view.asp?id=<%  
= rs("ArticleID") %>"> 
<% =rs("标题") %></a></td> 
<td width="94"><% = rs("点击") %></td> 
<td width="148"><% = rs("添加日期") %></td> 
</tr> 
</table> 
<% Rs.MoveNext 
Wend %> 
</body> 
</html> 
<% rs.close 
set rs=nothing 
conn.close 
set conn=nothing %>



　　四、结论

　　因为这些代码是在服务器端运行的，所以客户端不需要安装任何东西。这仅仅是用ActiveX DLL所能实现的功能的小小的例子。
郑某人
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
使用VB将ASP代码封装到DLL文件
01-02
很久以前的文档，整理出来，回味一下 使用VB封装ASP，建立SayHello测试程序 1、打开VB6，新建ActiveX DLL 2、在工程引用中加入Microsoft Active Server Pages Object Library选择 3、填加代码如下： ‘Code ...
用VB生成DLL封装ASP连接数据库的代码
10-31
用VB生成DLL封装ASP连接数据库的代码
asp代码封装技术
a3676212的专栏
03-21 1341
大家都知道ASP是解释运行的，这样如果使用的不是自己的服务器很容易将源代码泄露出去，那么怎么才能保证其安全呢。最好的办法就是将ASP代码封装起来。以DLL文件存放在服务器上。这样就没办法进行查看了但是封装代码不能是全部代码，您只能封装ASP部分代码，建议您封装其核心代码。我们建议您使用VC来封装它。因为如果使用VB来封装的话则服务器上必须具有VB的运行库才可以。这里只是演示，所以我们采用VB（1）
用VB将ASP代码封装成DLL
weixin_30823683的博客
03-13 132
一、引言 　　Server端的脚本运行环境，它简单易用，不需要编译和连接，脚本可以在 Server端直接运行，并且它支持多用户、多线程，在 Web开发中得到了广泛的应用。服务器端的组件有别于客户端的组件。客户端的组件是通过网络传输,依靠HTML来起作用，而且只能在IE上有用。但是服务器端的组件是运行在服务器端,它在服务器上执行各种操作。因此，所有的浏览器都能享用,它依靠的是服务器而不是浏...
使用VB将ASP代码封装到DLL文件完整实例
思科网络
10-20 3387
用VB封装ASP，建立SayHello测试程序1、打开VB6，新建ActiveX DLL 2、在工程引用中加入Microsoft Active Server Pages Object Library选择 3、填加代码如下：
用VB将ASP代码封装成DLL的方法
韩保红的代码库博客——记录我的学习历程
06-23 196
将ASP代码封装在DLL中的好处是：可以保护我们的代码，可以提高运行速度，缺点是要先在服务器上注册这个DLL组件。     将ASP代码编译成dll组件的步骤： 1、打开您的Microsoft Visual Basic，新建工程ActiveX DLL   2、修改工程名(如hbwl)和类模块的名称(如class) 3、增加到引用asp：点击工程--引用,然后选择其中的Microsof...
VB封装DLL文件讲解---3
yiyiyicz的专栏
12-04 4793
VB中的模块,类,ActiveX与API的使用 一、模块 (Module) 　　在VB中，模块会优先执行，其实说白了，模块就象是全局的过程和函数调用。这是初步的提高代码可复用性的途径。有经验的ASP(VBSCRIPT，以后都只用VBScript来写Asp程序)程序员都用过这条语句吧，这对提高代码的可复用性是比较方便的，在VB里模块就完成了这个功能。值得注意的是在模块中可以定义Sub
用VB生成DLL封装ASP代码_连接数据库
06-20
用VB生成DLL封装ASP代码_连接数据库,调用站点外部的数据
通过VB6将ASP编译封装成DLL组件最简教程 附全部工程源文件
01-02
1、新建DLL打开VB6–>文件–>新建工程–>选择ActiveX DLL–>确定2、将默认工程、类重命名工程重命名：工程–>工程1 属性（此名称对应窗体内工程项目名称）–>在打开对话框中将“工程名称”重命名为ASP2DLL（当DLL...
用VB.NET(Visual Basic 2010)封装EXCEL VBA为DLL_COM组件(一)
chinaherolts2008的博客
06-02 2699
为了保护自己辛辛苦苦编写的Excel VBA代码不被盗用，我们需要对Excel VBA代码进行加密。通常的做法是利用给工程设置密码的方法实现加密，对于这类加密方法，由于存在安全度低、易破解等问题，因此往往起不到应有的效果。通过将Excel VBA代码封装成DLL动态链接库，可有效防止代码被非法查看。在百度里搜索“封装EXCEL VBA”关键字，有很多封装VBA的教程，但99%是利用VB6（Microsoft Visual Basic 6.0）来封装，主要原因是VB6的操作界面及语法与Excel的VBA具有极
asp加密工具封装自己的asp代码
03-18
本软件可以把asp代码加密，封装自己的asp代码。
ASP 调用dll及封装dll实例
01-02
打开VB6，新建ActiveX DLL 2、在工程引用中加入Microsoft Active Server Pages Object Library选择 3、填加代码如下： 代码如下: ‘Code Start ‘声明部分 Private MyScriptingContext As ScriptingContext Private MyApplication As Application Private MyRequest As Request Private MyResponse As Response Private MyServer As Server Private MySession
ASP封装成DLL
10-24
本文档告诉读者怎样将ASP封装成DLL，需要使用word2007打开文档。
Windows API Type Library Of VB6
08-31
Windows API类型库(函数,常数,结构) 1.注册Tlb文件 2.在VB6工程中引用 3.可以不用声明,直接使用WinAPI了(函数,常数,结构) #注意,此库中的函数并不十分完整
【微软押注ARM架构，“Wintel”联盟摇摇欲坠？】
weixin_44237705的博客
04-19 351
英伟达、AMD和联发科都计划为Windows平台推出基于ARM架构的芯片，另外三星则有可能会有对应的Exynos芯⽚，加上⾼通带来的骁⻰ X Elite，“百花齐放”的盛况将帮助Windows on ARM设备进⼊新阶段。不过从⽬前掌握的情况来看，⾼通的骁⻰ X Elite或许仍然是最强的竞争者，其引⼊了基于NUVIA技术的定制Oryon内核，放弃了以往基于ARM公版的设计，采⽤了台积电4nm⼯艺制造， 初步的测试结果显示有着不错的性能表现。2024年，对于PC产业而言也许将会是转折性的一年。
AI Agent新对决：LangGraph与AutoGen的技术角力
最新发布
2401_82452722的博客
04-25 856
个人认为这个“Graph”框架使其在构建更复杂和更有见地的工作流程时更具直观性和更好的开发体验，通过对“Graph”的定义，可以对一个 LLM 应用的处理过程进行非常细节的编排设计，从而满足大量复杂场景的 AI Agent 产业应用落地。当然，这一特征也是可选的，如果你不需要要时，就可以选择完全自动的模式。对于简单的问答系统，LCEL都能够提供快速且准确的服务，然而当面对一些更为复杂的任务时，就显得力不从心，因此需要一个具备更精细控制能力的框架来支持更复杂场景的LLM应用，它就是LangGraph。
设计模式- 中介者模式（Mediator）
m0_51176516的博客
04-23 1355
中介者模式（Mediator Pattern）是一种行为型设计模式，用于减少对象之间的直接相互依赖，使得对象间的交互通过一个中介者对象来进行协调。在中介者模式中，对象之间不再直接相互调用，而是通过中介者对象来传递消息和协调行为。 中介者模式的主要目的是简化对象之间的复杂交互关系，降低对象之间的耦合度，使得系统更加易于维护和扩展。通过将交互逻辑集中在一个中介者对象中，可以避免对象之间直接相互依赖和通信的混乱。 中介者模式适用于对象之间存在复杂网状结构关系，且这些关系导致依赖关系混乱和难以复用的场景。
【项目亮点】大厂中分布式事务的最佳实践 问题产生-＞难点与权衡(偏爱Saga)-＞解决方案
正直 的博客
04-19 515
不断有同学问我大厂中实践分布式事务的问题,这里从**分布式事务的产生**,到**强弱一致性与性能的权衡**,再到最终**落地的解决方案**,再到**实际的代码实现**,再到我工作中实际**使用SAGA模式的应用案例**,一篇文章讲清楚.
vb封装vba代码成exe文件
06-26
在某些情况下，需要将VBA代码封装成可独立运行的可执行文件，这时可以使用第三方工具将VBA代码转换成VB代码，再编译生成.exe文件。 要将VBA代码封装成可执行文件，首先需要将代码转换成VB代码，这可以通过一些转换...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值