<% '======================================================= ' 欢迎使用《阿赛大型门户网站系统V2.0》，简称“AsaiMHV2” ' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172” ' 官方网站：http://77ya.com 程序负责人：阿赛 '======================================================= Call DelAllCache() Function GetallCache() Dim Cacheobj For Each Cacheobj in Application.Contents GetallCache=GetallCache&Cacheobj&"," Next End Function Sub DelAllCache() Dim Cachelist,i Cachelist=Split(GetallCache(),",") Response.Write vbcrlf&"

" If UBound(Cachelist)>1 Then Response.Write "
序号 | 更新对象 | 状态
" For i=0 to UBound(Cachelist)-1 DelCahe Cachelist(i) Response.Write "
" Response.Write i+1 & " | "&Cachelist(i)&" | 完成
" Next Response.Write "
共更新了 " Response.Write UBound(Cachelist) Response.Write " 个缓存对象
" Erase Cachelist Else Response.Write "
所有缓存对象已经更新完成
" End If Response.Write vbcrlf&"

" End Sub Sub DelCahe(MyCacheName) Application.Lock Application.Contents.Remove(MyCacheName) Application.UnLock End Sub Response.Write Cls.js_put("alert(""更新"&tit_fir&"缓存成功！"");",1) %>