功能受限的真正动态Include实现猜想

最新推荐文章于 2020-11-06 09:31:24 发布

mocom

最新推荐文章于 2020-11-06 09:31:24 发布

阅读量505

点赞数

分类专栏： vbs &amp; js 文章标签： include session asp dictionary class application

本文链接：https://blog.csdn.net/mocom/article/details/5882641

版权

vbs & js 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

如今动态include文件都是用ExecuteGlobal来实现，如果目标文件有太多ASP标签，那么速度会下降200%，这几天做了个测试，用ASP自带的，速度均衡为0.01563秒，而解析ASP文件，并用ExecuteGlobal输出，速度均衡为0.04688秒，这几毫秒的速度在测试时没什么问题，实际运用中，并发100个请求，#include的速度就是1秒，ExecuteGlobal就是4秒，当然这些都是理想速度，实际会更慢，因此就有实现真正动态include的猜想，猜想的依据就是Server.Execute和Server.Transfer，这两个方法调用目标ASP文件，是另启过程，与当过程无关，因此就有个传参的瓶颈，跨过程传参，最好的办法就是Session，Session比Application的限制要小的多，它可以存储自定义的类，而且猜想其不受Free Threaded的限制，因此建立一个统一的超级类，是实现动态Include的基础，“超级类”看起来挺唬人，其实只要封装Scripting.Dictionary字典就可以，WEB的常用变量声明为超级类的公共变量，变动的变量用字典存储，例如：

index.asp

<% Class SuperClass Public Module, Action Private hash Private Sub Class_Initialize() Set hash = Server.CreateObject("Scripting.Dictionary") End Sub Private Sub Class_Terminate() Set hash = Nothing End Sub '继承Dictionary的方法和属性 Public Default Property Get [Get](ByVal key) If Not hash.Exists(key) Then Exit Property If VarType(hash(key)) = vbObject Then Set [Get] = hash(key) Else [Get] = hash(key) End If End Property Public Property Let [Get](ByVal key, ByVal value) hash(key) = value End Property Public Property Set [Get](ByVal key, instance) Set hash(key) = instance End Property Public Property Get Count() Count = hash.Count End Property Public Property Get Keys() Keys = hash.Keys End Property Public Property Get Items() Items = hash.Items End Property Public Function Exists(ByVal key) Exists = hash.Exists(key) End Function Public Sub Remove(ByVal key) hash.Remove key End Sub Public Sub RemoveAll() hash.RemoveAll End Sub End Class '调用实例 Dim App Set App = New SuperClass '常用变量 App.Module = "ABC" App.Action = "Add" '不常用变量 App("title") = "Hello Application" Set App("Connection") = Server.CreateObject("ADODB.Connection") App("Connection").Open "Provider=..." '动态调用ASP文件 Set Session("App") = App Server.Execute "hello.asp" Set Session("App") = Nothing Session.Contents.Remove "App" Response.Write "在hello.asp中执行UPDATE操作影响的行数：" & App("db_exec_ok") & "<br/>" App("Connection").Close Set App = Nothing %>

hello.asp

<% Dim App, conn Set App = Session("App") %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"/> <meta http-equiv="Cache-Control" content="no-cache, max-age=0"/> <title><%=App("title")%></title> </head> <body> 当前模块：<%=App.Module%><br/> 当前动作：<%=App.Action%><br/> <% Dim count '引用Connection元素 Set conn = App("Connection") conn.Execute "UPDATE ...", count Set conn = Nothing '回调执行UPDATE更新影响的行数 App("db_exec_ok") = count %> </body> </html>

运行结果均衡在0.01563秒，与直接#include速度一致