<% Dim iCacheName,iCache,mCacheName MyDbPath = "../" iCacheName = Server.MapPath("index.asp") iCacheName = Split(iCacheName,"\") For iCache = 0 To Ubound(iCacheName)-2 mCacheName = mCacheName & iCacheName(iCache) Next Dvbbs.CacheName = Lcase(Replace(mCacheName,":","")) Dvbbs.Forum_sn = Replace(Dvbbs.CacheName,"_","") '重新获得论坛Cookies Dvbbs.MemberName = Dvbbs.checkStr(Trim(Request.Cookies(Dvbbs.Forum_sn)("username"))) Dvbbs.MemberWord = Dvbbs.checkStr(Trim(Request.Cookies(Dvbbs.Forum_sn)("password"))) Dvbbs.UserHidden = Request.Cookies(Dvbbs.Forum_sn)("userhidden") Dvbbs.UserID = Trim(Request.Cookies(Dvbbs.Forum_sn)("UserID")) If IsNumeric(Dvbbs.UserHidden) = 0 or Dvbbs.Userhidden = "" Then Dvbbs.UserHidden = 2 If IsNumeric(Dvbbs.UserID) = 0 Or Dvbbs.UserID="" Then Dvbbs.UserID=0 Dvbbs.UserID = Clng(Dvbbs.UserID) Dvbbs.MemberClass = Dvbbs.checkStr(Request.Cookies(Dvbbs.Forum_sn)("userclass")) '获得论坛基本信息和检测用户登陆状态 'Dvbbs.GetForum_Setting 'Dvbbs.CheckUserLogin '重新赋予用户是否可进入后台权限 'If Dvbbs.GroupSetting(70)="1" Then Dvbbs.Master = True Dim admin_flag admin_flag="," Dim CacheName CacheName=Dvbbs.CacheName If InStr(session("flag"),admin_flag) >0 Then Call delallcache() End If 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 delallcache() Dim cachelist,i Cachelist=split(GetallCache(),",") If UBound(cachelist)>1 Then For i=0 to UBound(cachelist)-1 DelCahe Cachelist(i) Response.Write "更新 "&Replace(cachelist(i),CacheName&"_","")&" 完成
" Next Response.Write "更新了" Response.Write UBound(cachelist)-1 Response.Write "个缓存对象
" Else Response.Write "所有对象已经更新。" End If End Sub Sub DelCahe(MyCaheName) Application.Lock Application.Contents.Remove(MyCaheName) Application.unLock End Sub %>