reloadforumcache.asp

来自「现在好了」· ASP 代码 · 共 63 行

<!--#include file="../conn.asp"-->
<!--#include file="../inc/Dv_ClsMain.asp"-->
<%
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 "更新 <b>"&Replace(cachelist(i),CacheName&"_","")&"</b> 完成<br>"		
		Next
		Response.Write "更新了"
		Response.Write UBound(cachelist)-1
		Response.Write "个缓存对象<br>"	
	Else
		Response.Write "所有对象已经更新。"
	End If
End Sub 
Sub DelCahe(MyCaheName)
	Application.Lock
	Application.Contents.Remove(MyCaheName)
	Application.unLock
End Sub
%>