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文件保存目录

（编辑：银川站长网）

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