网络编程
位置:首页>> 网络编程>> Asp编程>> asp清理站点缓存代码

asp清理站点缓存代码

  发布时间:2008-07-21 12:37:00 

标签:缓存,Application,asp

下面的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()

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com