南华县政府办公室网站欢迎您 >> 首页 >> 在线列表
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Response.Buffer = True
%>
<%
Dim CacheName,Cl
Set Cl= New Cls_ClCmsSetting
CacheName=Cl.CacheName
%>
<% Call delallcache()%>
<%
Sub delallcache()
Dim cachelist,i
Cachelist=split(GetallCache(),",")
If UBound(cachelist)>1 Then
For i=0 to UBound(cachelist)-1
DelCahe Cachelist(i)
Next
End If
End Sub
Function GetallCache()
Dim Cacheobj
For Each Cacheobj in Application.Contents
If CStr(Left(Cacheobj,Len(CacheName)+1))=CStr(CacheName&"_") Then
GetallCache=GetallCache&Cacheobj&","
End If
Next
End Function
Sub DelCahe(MyCaheName)
Application.Lock
Application.Contents.Remove(MyCaheName)
Application.unLock
End Sub
%>
天气查询
城市地图
您的位置： 南华县政府办公室 >> 首页 >> 在线列表
加入收藏 
<<<---->>>