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

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

注意：系统需要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
<!--#include file="FileCatch-Inc.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文件保存目录