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
投稿
猜你喜欢
Sql Server 无日志文件附加
2010-05-30 11:23:00
超半数中文网页一年内将“消失”
2008-03-08 12:49:00
python实现简单的购物程序代码实例
2022-09-03 05:29:13
python判断列表的连续数字范围并分块的方法
2021-01-18 12:04:19
Mysql中的事务是什么如何使用
2024-01-21 18:42:26
thinkphp3查询mssql数据库乱码解决方法分享
2023-11-15 00:52:22
一篇文章带你学习Python3的高级特性(1)
2021-09-24 04:39:01
pytorch中的inference使用实例
2023-07-24 16:22:56
Python3正则匹配re.split,re.finditer及re.findall函数用法详解
2023-06-27 10:13:48
MyBatis 如何写配置文件和简单使用
2024-01-26 08:01:18
python实现蒙特卡罗方法教程
2023-01-29 16:36:02
VS2019+python3.7+opencv4.1+tensorflow1.13配置详解
2023-06-19 04:56:38
停止密码输入掩饰?[译]
2009-07-22 18:44:00
Python中使用PyQt把网页转换成PDF操作代码实例
2021-12-04 11:31:19
face_recognition库在python的安装
2021-06-16 02:29:27
Python3爬虫关于识别检验滑动验证码的实例
2021-08-25 02:17:37
SQLServer 附加数据库后出现只读或失败的解决方法
2024-01-18 11:29:23
YOLOv5车牌识别实战教程(六)性能优化与部署
2022-04-26 12:40:54
10个顶级Python实用库推荐
2023-08-27 17:41:46
一个轻量级的XHTML右键菜单[支持IE和firefox]
2024-04-19 10:58:32