asp清理網站緩衝

asp清理網站緩衝

 

 

<%Call RemoveAllCache() Sub RemoveAllCache()Dim cachelist,iCall InnerHtml("UpdateInfo","<b>開始執行清理當前網站緩衝</b>：")Cachelist=split(GetallCache(),",")If UBound(cachelist)>1 ThenFor i=0 to UBound(cachelist)-1DelCahe Cachelist(i)Call InnerHtml("UpdateInfo","更新 <b>"&cachelist(i)&"</b> 完成")NextCall InnerHtml("UpdateInfo","更新了"& UBound(cachelist)-1 &"個緩衝對象<br>")ElseCall InnerHtml("UpdateInfo","<b>當前網站全部緩衝清理完成。</b>。")End IfEnd Sub Function GetallCache()Dim CacheobjFor Each Cacheobj in Application.ContentsGetallCache = GetallCache & Cacheobj & ","NextEnd Function Sub DelCahe(MyCaheName)Application.LockApplication.Contents.Remove(MyCaheName)Application.unLockEnd Sub Sub InnerHtml(obj,msg)Response.Write  "<li>"&msg&"</li>"Response.FlushEnd Sub%>