asp磁盘缓存技术采用的代码

发布时间：2023-09-15 15:05:07 所属栏目：Asp教程来源：

导读：这一种方法适合，访问相对集中在同样内容页面的网站，会自动生成缓存文件(相当于读取静态页面，但会增大文件)。如果访问不集中会造成服务器同时读取文件当机。

注意：系统需要FSO权限、XMLHTTP权限

系统包括

这一种方法适合，访问相对集中在同样内容页面的网站，会自动生成缓存文件(相当于读取静态页面，但会增大文件)。如果访问不集中会造成服务器同时读取文件当机。

注意：系统需要FSO权限、XMLHTTP权限

系统包括两个文件，其实可以合并为一个。之所以分为两个是因为部分杀毒软件会因为里边含有FSO、XMLHTTP操作而被认为是脚本木马。

调用时，需要在ASP页面的最上边包含主文件，然后在下边写下以下代码

<% Set MyCatch=new CatchFile MyCatch.Overdue=60*5    '修改过期时间设置为5个小时 if MyCatch.CatchNow(Rev) then     response.write MyCatch.CatchData     response.end end if set MyCatch=nothing %>

复制代码代码如下:

主包含文件：FileCatch.asp



<%

'---- 本文件用于签入原始文件，实现对页面的文件Catch

'---- 1、如果文件请求为POST方式，则取消此功能

'---- 2、文件的请求不能包含系统的识别关键字

'---- 3、作者何直群 (www.wozhai.com)

Class CatchFile

        Public Overdue,Mark,CFolder,CFile '定义系统参数

        Private ScriptName,ScriptPath,ServerHost '定义服务器/页面参数变量

        Public CatchData        '输出的数据

        Private Sub Class_Initialize        '初始化函数

                '获得服务器及脚本数据

                ScriptName=Request.Servervariables("Script_Name") '识别出当前脚本的虚拟地址

                ScriptPath=GetScriptPath(false)        '识别出脚本的完整GET地址

                ServerHost=Request.Servervariables("Server_Name") '识别出当前服务器的地址

                '初始化系统参数

                Overdue=30        '默认30分钟过期

                Mark="NoCatch"        '无Catch请求参数为 NoCatch

                CFolder=GetCFolder        '定义默认的Catch文件保存目录

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!