<% Call RemoveAllCache() Sub RemoveAllCache() Dim cachelist,i Call InnerHtml("UpdateInfo","lang5.com提示：开始执行清理当前站点缓存：") 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","lang5.com提示：当前站点全部缓存清理完成。。") 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 "
  • "&msg&"
    • " Response.Flush End Sub %> 浪舞天涯社区
    浪舞天涯社区
    F 欢迎光临「浪舞中文网」旗下论坛 游客:  注册 ┊ 登录 ┊ 搜索 ┊ 帮助

    浪舞天涯社区 » 提示信息

    浪舞天涯社区 提示信息

    指定的主题不存在或已被删除或正在被审核，请返回。

    [ 点击这里返回上一页 ]



    现在时间： 2009-1-9 21:00 （GMT+8）
    湘ICP备08001965号

    Discuz!5.5.0    Powered by Lang5.Com © 2002-2007 All Rights Reserved.
    Processed in 0.079603 second(s), 7 queries , Gzip enabled
    TOP

    - 简捷版本 - 清除 Cookies - 联系我们 - 浪舞中文网 - WAP