像一些整站系统中,都有缓存功能,这样就可以增加页面打开的速度了。
这里介绍一下asp实现缓存功能的代码,与大家分享
< %
'功能:Asp缓存技术原理
'开发:www.aspprogram.cn
'作者:wangsdong
'注意:缓存文件夹中的文件必须是静态文件,动态文件实现不了动态的效果
'原创文章,转载请保留此信息,谢谢
path="cache" '缓存文件夹名,用来存储最后的缓存文件的
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
filename=server.mappath(path&"/test.html")
IF MyFileObject.FileExists(filename) then '判断文件是否存在,如果存在,直接从缓存中读取内容
Set MyTextFile=MyFileObject.OpenTextFile(filename)
str=MyTextFile.readall
MyTextFile.Close
response.write str
Else
Set MyTextFile=MyFileObject.CreateTextFile(filename)
str="欢迎光临asp编程网!"&vbnewline
str=str&"<% response.write ""aaa"" %"&">"&vbnewline '这里是生成asp代码,结果是不能运行的
MyTextFile.WriteLine(str)
'输出内容
response.write "aaa=<br>" '这里加上这个,用来区别从缓存中读取和直接输出两种情况
response.write str
MyTextFile.Close
END IF
% >