admin_reloadcache.asp

来自「后台管理系统」· ASP 代码 · 共 36 行

<!--#Include File="Inc/Inc.asp"-->
<%
Call ClsAdmin.CheckManager(0,8)
Function  GetallCache()
	Dim Cacheobj
	For Each Cacheobj in Application.Contents
		If Lcase(Split(Cacheobj,"_")(0)) = Lcase(CacheName) Then
			GetallCache = GetallCache & Cacheobj & ","
		End If
	Next
End Function
Sub DelAllCache()
	Dim cachelist,i
	Cachelist=split(GetallCache(),",")
	Response.Write "<span style=""font-size:9pt""><br>&nbsp;&nbsp;<b>开始更新缓存…</b><br><hr width=98% >"	
	If UBound(cachelist)>=1 Then
		For i=0 to UBound(cachelist)-1
			DelCahe Cachelist(i)
			Response.Write "&nbsp;&nbsp;更新 <b>"&Replace(cachelist(i),CacheName & "_","")&"</b> 完成<br>"		
		Next
		Response.Write "<hr width=98% ><br>&nbsp;&nbsp;<b>更新缓存结束。<br>"	
		Response.Write "&nbsp;&nbsp;更新了<font color=red>"
		Response.Write UBound(cachelist)-1
		Response.Write "</font>个缓存对象<br><br>"	
	Else
		Response.Write "<br>&nbsp;&nbsp;所有对象已经更新。<br></span>"
	End If
End Sub 

Sub DelCahe(MyCaheName)
	Application.Lock
	Application.Contents.Remove(MyCaheName)
	Application.unLock
End Sub
DelAllCache()
%>