plus_ua.asp

. 缓存处理技术

<!-- #include file="Top_Cnbbr.asp" -->
<%
Dim Act
Act=CheckStr(Trim(Request.Form("cnBBRAct")))

if IsNum(Act) then
 if Act=1 then



   Application.Lock
   Application("Cnbbr_Head")=Cnbbr_Head_Function
   Application("Cnbbr_Bottom")=Cnbbr_Bottom_Function
   Application("SYS_BBRSkins")=BBR_SysSkinsContent
   Application.UnLock

   Call CnbbrTimer(0,1)
   Call CnbbrTimer(1,1)
   Call CnbbrTimer(2,1)
   Call CnbbrTimer(3,1)
   Call CnbbrTimer(4,1)
   Call CnbbrTimer(5,1)
   Call CnbbrTimer(6,1)
   Call CnbbrTimer(7,1)
   Call CnbbrTimer(8,1)
   Call CnbbrTimer(9,1)
   Call CnbbrTimer(10,1)

   
	   HelpTitle="成功了！"
	   HelpInfo="系统缓存信息更新成功！"
	   HelpList="<Ul>" & Vbcrlf
	   HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
	   HelpList=HelpList & "</Ul>" & Vbcrlf
	   Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368


 elseif Act=2 then
   Application.Lock
   Application("Cnbbr_Head")=""
   Application("Cnbbr_Bottom")=""
   Application("SYS_BBRSkins")=""
   Application("CnbbrStarAuc")=""
   Application("CnbbrStarShop")=""
   Application("CnbbrSYSNews")=""
   Application("CnbbrAucClosing")=""
   Application("CnbbrAucNew")=""
   Application("CnbbrAucQiuGou")=""
   Application("CnbbrAk0")=""
   Application("CnbbrAk1")=""
   Application("CnbbrAk2")=""
   Application("CnbbrAk3")=""
   Application("CnbbrAk4")=""
   Application("CnbbrAk5")=""
   Application("CnbbrAk6")=""
   Application("CnbbrAk7")=""
   Application("CnbbrAk8")=""
   Application("CnbbrAk9")=""
   Application("CnbbrAk10")=""
   Application("Cnbbr_Top")=""
   Application("Cnbbr_Bottom")=""
   Application("SYS_BBRSkins")=""

	   HelpTitle="成功了！"
	   HelpInfo="系统缓存信息已清空！"
	   HelpList="<Ul>" & Vbcrlf
	   HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
	   HelpList=HelpList & "</Ul>" & Vbcrlf
	   Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368

 else
   PageContent()
 end if

else
  PageContent()
end if

Sub PageContent()
  Response.Write Cnbbr_Head
  With Response
    .Write"<BR>"&_
        "<form name=configform1 method=post action="""" onsumbit=""this.submit.disabled=true;"">"&_
        "<table width=368 cellpadding=0 cellspacing=0 border=0 align=center>"&_
        "  <tr class=titletd>"&_
        "   <td align=center><Span class=titleSpan>系统缓存更新操作</Span></td>"&_
        "  </tr>"&_
        "  <tr height=80 class=td>"&_
        "   <td align=left> &nbsp; &nbsp; <B>提醒：</B>此操作将立即更新系统所有 APPLICATION 变量的值，可能会消耗比较长的时间，谨慎使用！</td>"&_
        "  </tr>"&_
        "  <tr class=titletd>"&_
        "   <td align=center><input type=hidden name=cnbbrAct value=""1""><input type=submit name=submit value=""更新系统缓存""></td>"&_
        "  </tr>"&_
        "</table>"&_
        "</form>"&_

        "<BR><BR><BR>"& Vbcrlf

    .Write"<form name=configform2 method=post action="""" onsumbit=""this.submit.disabled=true;"">"&_
        "<table width=368 cellpadding=0 cellspacing=0 border=0 align=center>"&_
        "  <tr class=titletd>"&_
        "   <td align=center><Span class=titleSpan>清空系统缓存操作</Span></td>"&_
        "  </tr>"&_
        "  <tr height=80 class=td>"&_
        "   <td align=left> &nbsp; &nbsp; <B>提醒：</B>此操作将立即清空系统所有 APPLICATION 变量的值，谨慎使用！</td>"&_
        "  </tr>"&_
        "  <tr class=titletd>"&_
        "   <td align=center><input type=hidden name=cnbbrAct value=""2""><input type=submit name=submit value=""清空系统缓存""></td>"&_
        "  </tr>"&_
        "</table>"&_
        "</form>"& Vbcrlf
  End With
  Response.Write Cnbbr_Bottom
End Sub
%>