【ASP】开始执行清理当前站点缓存.(舒克)

程序猿 ASP ... (shuke.2013-03-09 01:19)

【ASP】开始执行清理当前站点缓存.(舒克)

<%
Call RemoveAllCache()
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
%>
 

进度：100% 返回程序猿

解决织梦图集中上传图片时跳出302错误

【ASP】UploadClass上传文件-无效的过程调用或参数: InStr.(天月)

图片新热点

导航

• 模块
• 服务器应用
• 软件应用
• 设计师
• 程序猿
• 推广课程
• 制作
• 分享
• 原创
• 黑板报
• 运营与帮助
• 微平台
• 生活小百科