📄 cleancache.asp
字号:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%Option Explicit
Response.Buffer = True
%>
<!--#include file="../Conn.asp"-->
<!--#include file="../SysCls/KS_CommonCls.asp"-->
<!--#include file="Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New CleanCache
KSCls.Execute()
Set KSCls = Nothing
Class CleanCache
Private KSCMS
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Sub Execute()
With Response
.Write "<html>"
.Write "<head>"
.Write "<title>缓存更新</title>"
.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
.Write "<link href=""inc/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=""0"" bgcolor=""#CCCCCC"" class=""Border"">"
.Write " <tr height=24 bgcolor=""F4F4EA""><td width='40' align=center><b>序号</b></td><td width='550' align='center'><b>更新对象</b></td><td align=""center""><b>状态</b></td></tr>"
delallcache()
.Write "</body>"
.Write "</html>"
End With
End Sub
Sub delallcache()
Dim CacheList,i
CacheList=split(KSCMS.GetCacheList(KSCMS.SiteSN),",")
With Response
If UBound(CacheList)>1 Then
For i=0 to UBound(CacheList)-1
KSCMS.DelCahe CacheList(i)
.Write "<tr height=""25"" bgcolor=""#ffffff"" onMouseOver=""this.style.background='#EEF8FE'"" onMouseOut=""this.style.background='#FFFFFF'""><td align=""center"">"
.Write i+1 & "</td><td><font color='#FF6600'>"&Replace(CacheList(i),KSCMS.SiteSN & "","")&"</font></td><td align=""center"">完成</td></tr>"
Next
.Write "<tr height=""25"" bgcolor=""#ffffff"" onMouseOver=""this.style.background='#EEF8FE'"" onMouseOut=""this.style.background='#FFFFFF'"" align='center'><td colspan='3' align='center'>共更新了 <font color='#FF6600'>"
.Write UBound(CacheList)
.Write "</font> 个缓存对象</td></tr>"
Else
.Write "<tr height=""25"" bgcolor=""#ffffff"" onMouseOver=""this.style.background='#EEF8FE'"" onMouseOut=""this.style.background='#FFFFFF'""><td colspan='3' align='center'>所有缓存对象已经更新。</td></tr>"
End If
End With
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -