asp清理站点缓存代码
时间:2008-07-21 12:37:00
下面的asp函数实现了对站点的所有缓存Application的清理,释放!
Sub RemoveAllCache()
Dim cachelist,i
Call InnerHtml("UpdateInfo","<b>开始执行清理当前站点缓存</b>:")
Cachelist=split(GetallCache(),",")
If UBound(cachelist)>1 Then
For i=0 to UBound(cachelist)-1
DelCahe Cachelist(i)
Call InnerHtml("UpdateInfo","更新 <b>"&cachelist(i)&"</b> 完成")
Next
Call InnerHtml("UpdateInfo","更新了"& UBound(cachelist)-1 &"个缓存对象<br>")
Else
Call InnerHtml("UpdateInfo","<b>当前站点全部缓存清理完成。</b>。")
End If
End Sub
Function GetallCache()
Dim Cacheobj
For Each Cacheobj in Application.Contents
GetallCache = GetallCache & Cacheobj & ","
Next
End Function
Sub DelCahe(MyCaheName)
Application.Lock
Application.Contents.Remove(MyCaheName)
Application.unLock
End Sub
Sub InnerHtml(obj,msg)
Response.Write "<li>"&msg&"</li>"
Response.Flush
End Sub
使用方法:Call RemoveAllCache()
标签:缓存,Application,asp
0
投稿
猜你喜欢
Magic Photo Frame 神奇创意相框
2009-09-15 20:45:00
ASP中一个字符串处理类加强版
2008-11-25 18:07:00
Javascript命名禁区[110407.updated]
2011-04-28 09:48:00
经典分享MySQL的limit查询优化
2011-05-05 15:47:00
如何读取一个.ini文件?
2009-11-18 20:58:00
一个简单的ASP生成HTML分页程序
2009-07-05 18:32:00
[译]“我心中的ebay”
2008-06-04 12:09:00
asp如何创建一个PDF文件?
2009-11-14 20:53:00
link 和 style 元素在 HTML 文档中的位置
2008-06-02 13:56:00
MYSQL主从库不同步故障一例解决方法
2010-06-09 19:12:00
重构中的模块化设计:样式的作用域
2010-04-23 14:42:00
border:none;与border:0;的区别
2009-11-27 19:04:00
基于关系型数据库引擎的\\XML\\索引技术
2008-09-05 17:13:00
实例讲解启动mysql server失败的解决方法
2008-12-26 17:27:00
YUI Compressor快速使用指南
2011-06-27 20:07:30
Asp 日期格式化问题
2011-03-31 10:47:00
Oracle常用命令大全集
2010-07-21 13:18:00
ASP+JavaScript的完整的日历使用
2008-10-11 12:16:00
JavaScript中的私有成员 Javascript教程
2008-12-02 17:57:00
BigPipe:高性能的"流水线技术"网页
2010-11-02 12:47:00