wm.sys_cache.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<%
Call WM_Content
Sub WM_Content()
  Content = "<link href=""img/Style.css"" rel=""stylesheet"" type=""text/css"">"
  Content = Content & "<style>body{margin:5;FONT-SIZE: 9pt;line-height:150%}</style>"
  Content = Content & "&nbsp;<strong>系统缓存更新中...</strong><br>" & vbCrLf
       Dim Key, Keys, KeyLength, KeyIndex, PREFIX_LENGTH, PREFIX
       For Each Key In Application.Contents
         If (Left(Key, PREFIX_LENGTH) = PREFIX) Then
           Keys = Keys & vbNewLine & Key
         End If
       Next
       Keys = Split(Keys, vbNewLine)
       KeyLength = UBound(Keys)
       Application.Lock
	   If KeyLength > 0 Then Content = Content & "<br>"
       For KeyIndex = 1 To KeyLength
         Application.Contents.Remove (Keys(KeyIndex))
         Content = Content & "&nbsp;·更新 <b>" & Keys(KeyIndex) & "</b> 完成<br>"
       Next
       If KeyLength < 0 Then KeyLength = 0
       If KeyLength > 0 Then Content = Content & "<br>"
	   Application.Unlock
  Content = Content & "&nbsp;<b>缓存更新结束，"
  Content = Content & "&nbsp;共更新了<font color=red> " & KeyLength & " </font>个缓存对象</b>"
  Response.Write Content
End Sub
%>