减小字体
增大字体- ·上一篇文章：asp利用OWC控件实现的各种统计图代码
- ·下一篇文章：asp读取数据库中数据生成统计折线图
Asp缓存技术原理
像一些整站系统中，都有缓存功能，这样就可以增加页面打开的速度了。
这里介绍一下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
% >
这里介绍一下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
% >
Asp缓存技术原理
