从文件读数据，要比直接从数据库快，测试读出6000条新闻，读数据库用了23579毫秒，读文件只用了123毫秒，下例为使用文件缓存的代码 使用方法，在需要使用文件缓存的页面加入下列代码， <!--#include file="FileCatch.asp" --> <% Set MyCatch=new CatchFile MyCatch.Overdue=10 ’修改过期时间设置为10分钟 if MyCatch.CatchNow(Rev) then response.write MyCatch.CatchData response.end end if set MyCatch=nothing
%> FileCatch.asp 复制内容到剪贴板代码: <% ’ 本文件用于签入原始文件，实现对页面的文件Catch ’ 1、如果文件请求为POST方式，则取消此功能 ’ 2、文件的请求不能包含系统的识别关键字 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文件保存目录
