📄 sk_cleancache.asp

📁 清风信息自动采集生成系统很好用的大家试试看
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/clsCache.asp"-->

<%
   Dim myCache
   Set myCache=new SK_clsCache
'================================================================================================
' 软件名称：清风信息自动采集生成系统
' 当前版本：CJ 1.0
' 更新日期：2008-7-18
' 程序版权：龙心数据
' 程序开发：龙心数据开发组
' 演示站点：http://cj.iising.com
' 官方网站：http://www.iising.com  QQ：24387481 电话：13719316070
' 郑重声明:
'    ①、没有版权,你爱抄抄,爱搬搬,偶看不见!
'    ②、不要用黑与白来衡量你我之间的距离,更不要让生活磨灭我们的个性！
'    ③、欢迎定做各种信息采集功能系统。
'================================================================================================

Call CleanCache
	  
	  Sub CleanCache()
		With Response
		  .Write "<html>"
		  .Write "<head>"
		  .Write "<title>缓存更新</title>"
		  .Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
		  .Write "<link href=""css/Admin_Style.css"" rel=""stylesheet"" type=""text/css"">"
		  .Write "</head>"
		  .Write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
		
					.Write "    <table width=""95%"" style=""MARGIN-TOP: 3px"" border=""0"" align=""center""cellspacing=""1"" cellpadding=""1"" class=""tableBorder"">"
					.Write "    <tr height=24 class='Title'><td width='550' align='center'><b>更新对象</b></td></tr>"
		.Write "    <tr height=24 class='Title'><td width='40' align=center>"	
		For Each Cacheobj in Application.Contents
			Response.Write(Cacheobj) &"</br >"
			DelCahe(Cacheobj)
		Next
		Application.Lock   
 		Application.Contents.RemoveAll   
  		Application.Unlock
		.Write "</td></tr>"  
		.Write "<script>function back(){alert('所有缓存更新完，按确定返回！');history.back();}setTimeout('back()',800);</script>"
		.Write "</body>"
		.Write "</html>"
    End With
    End Sub     
	'=================================================缓存相关函数=======================
	'不提示,批量清除缓存,参数 PreCacheName-前段匹配
	Public Sub DelCaches(PreCacheName)
	    Dim i
		Dim CacheList:CacheList=split(GetCacheList(PreCacheName),",")
		If UBound(CacheList)>1 Then
			For i=0 to UBound(CacheList)-1
				DelCahe CacheList(i)
			Next
		End IF
	End Sub
	'取得缓存列表 参数 PreCacheName-前段匹配
	Public Function GetCacheList(PreCacheName)
		Dim Cacheobj
		For Each Cacheobj in Application.Contents
		If CStr(Left(Cacheobj,Len(PreCacheName)))=CStr(PreCacheName) Then GetCacheList=GetCacheList&Cacheobj&","
		Next
	End Function
	'清除缓存,参数 MyCaheName-缓存名称
	Public Sub DelCahe(MyCaheName)
		Application.Lock
		Application.Contents.Remove(MyCaheName)
		Application.unLock
	End Sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -