ÈçºÎÇåÀí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
%>