如何清理asp站点缓存的代码

最新推荐文章于 2019-01-10 12:21:07 发布

转载最新推荐文章于 2019-01-10 12:21:07 发布 · 1.8k 阅读

文章标签：

#asp #each

特效代码专栏收录该内容

109 篇文章

订阅专栏

本文介绍了一种使用VBScript实现的网站缓存清理方法。通过定义多个子程序和函数，包括获取所有缓存项、删除指定缓存项等操作，实现了对网站缓存的有效管理。该脚本适用于需要周期性清理缓存的应用场景。

<%
Call RemoveAllCache()
Sub RemoveAllCache()
Dim cachelist,i
Call InnerHtml("UpdateInfo","开始执行清理当前站点缓存：")
Cachelist=split(GetallCache(),",")
If UBound(cachelist)>1 Then
For i=0 to UBound(cachelist)-1
DelCahe Cachelist(i)
Call InnerHtml("UpdateInfo","更新 "&cachelist(i)&" 完成")
Next
Call InnerHtml("UpdateInfo","更新了"& UBound(cachelist)-1 &"个缓存对象 ")
Else
Call InnerHtml("UpdateInfo","当前站点全部缓存清理完成。。")
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
%>