BVB Source Codes

Jie Yang v0.6.3 article system Show admin_cache.asp Source code

Return Download Jie Yang v0.6.3 article system: download admin_cache.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="../../conn/conn.asp" -->
  3. <!--#include file="../admin_check.asp" -->
  4. <%
  5. If Not JYAdminLevel(801) Then
  6.         Call ErrorMsg()
  7. End If
  8. %>
  9. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  10. <html xmlns="http://www.w3.org/1999/xhtml">
  11. <head>
  12. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  13. <title>清除系统缓存--<%=sitename%></title>
  14. <link href="../style/style.css" rel="stylesheet" type="text/css" />
  15. </head>
  16. <body>
  17. <table width="98%" align="center" border="0" cellpadding="2" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  18.   <tr>
  19.     <td class="td28">清除系统缓存</td>
  20.   </tr>
  21.   <tr>
  22.     <td bgcolor="#FFFFFF"><%Call RemoveAllCache()%></td>
  23.   </tr>
  24. </table>
  25. <%
  26. Sub RemoveAllCache()
  27.     Dim cachelist,i
  28.     Call InnerHtml("UpdateInfo","<b>开始执行清理当前站点缓存</b>:")
  29.     Cachelist=split(GetallCache(),",")
  30.     If UBound(cachelist)>1 Then
  31.         For i=0 to UBound(cachelist)-1
  32.             DelCahe Cachelist(i)
  33.             Call InnerHtml("UpdateInfo","更新 <b>"&cachelist(i)&"</b> 完成")
  34.         Next
  35.         Call InnerHtml("UpdateInfo","更新了"& UBound(cachelist)-1 &"个缓存对象<br>")
  36.     Else
  37.         Call InnerHtml("UpdateInfo","<b>当前站点全部缓存清理完成。</b>")
  38.     End If
  39. End Sub
  40.  
  41. Function  GetallCache()
  42.     Dim Cacheobj
  43.     For Each Cacheobj in Application.Contents
  44.         GetallCache = GetallCache & Cacheobj & ","
  45.     Next
  46. End Function
  47.  
  48. Sub DelCahe(MyCaheName)
  49.     Application.Lock
  50.     Application.Contents.Remove(MyCaheName)
  51.     Application.unLock
  52. End Sub
  53.  
  54. Sub InnerHtml(obj,msg)
  55.     Response.Write "<li style=line-height:22px>"&msg&"</li>"
  56.     Response.Flush
  57. End Sub
  58. %>
  59. <br />
  60. </body>
  61. </html>
  62. <%call CloseConn()%>
downloadadmin_cache.asp Source code - Download Jie Yang v0.6.3 article system Source code
Related Source Codes/Software:
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
- electronic enterprise website management system In a fully functional version - Super suitable for enterprise agents build a corpo... 2016-09-21
Rio mesh network hard disk system v3.0 - System functions: 1, increase the progress of Asp... 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top