<%
Call RemoveAllCache()
Sub DelCahe(MyCaheName)
Application.Lock
Application.Contents.Remove(MyCaheName)
Application.unLock
End Sub
Function GetallCache()
Dim Cacheobj
For Each Cacheobj in Application.Contents
GetallCache = GetallCache & Cacheobj & ","
Next
End Function
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
Sub InnerHtml(obj,msg)
Response.Write "<li>"&msg&"</li>"
Response.Flush
End Sub
%>
- 怎么判断一个网站设计的好与不好呢？
- 中小型企业网站解决方案
- 网上电子商城网站建设方案
- 大型上市企业应用门户网站建设方案
- 展会网站建设解决方案
- 幼儿园网站建设方案
- 物流管理网站建设方案
- 汽车行业网站建设方案
- 网络媒体网站设计方案
- B2B电子商务平台网站设计方案
- 人才招聘行业网站解决方案
- 房地产行业网站制作解决方案
- 中小型企业无纸化办公自动系统解决方案
- 企业信息网站解决方案
- 教育培训类门户网站解决方案
- 旅游类行业网站解决方案
- 校园门户网站解决方案
- 书画艺术网站解决方案
- 图书采购平台解决方案
- 医院门户网站解决方案
- 行业商务门户解决方案
- 电子商务门户解决方案
- 集团企业门户解决方案
- 政府信息门户网站解决方案