从文件读数据，要比直接从数据库快，测试读出6000条新闻，读数据库用了23579毫秒，读文件只用了123毫秒，下例为使用文件缓存的代码
使用方法，在需要使用文件缓存的页面加入下列代码，
<>
<%
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文件保存目录
CFile=Server.URLEncode(ScriptPath)&".txt" ’将脚本路径转化为文件路径
CatchData=""
end Sub
Private Function GetCFolder
dim FSO,CFolder
Set FSO=CreateObject("Scripting.FileSystemObject") ’设置FSO对象
CFolder=Server.MapPath("/")&"/FileCatch/"
if not FSO.FolderExists(CFolder) then
fso.CreateFolder(CFolder)
end if
if Month(Now())<10 then
CFolder=CFolder&"/0"&Month(Now())
else
CFolder=CFolder&Month(Now())
end if
if Day(Now())<10 then
CFolder=CFolder&"0"&Day(Now())
【asp从缓存读数据实例】相关文章：