top_cnbbr.asp

. 缓存处理技术

<!--#include file="conn_And_config.asp"-->
<!--#include file="Inc/DataUpdate.asp"-->
<%
Dim TempPathInfo
TempPathInfo=Cnbbr_CurrentPath




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

Dim SYS_BBRSkins
SYS_BBRSkins=Application("SYS_BBRSkins")

    Dim PlaceArray,SamePlaceAuction
    PlaceArray="北京,上海,广东,深圳,天津,重庆,浙江,安徽,福建,江苏,陕西,云南,四川,广西,山西,河南,河北,山东,海南,新疆,黑龙江,辽宁"

    PlaceArray=Split(PlaceArray,",")
    For i=0 to Ubound(PlaceArray)
        SamePlaceAuction=SamePlaceAuction &"<A href=""Search_Auction.asp?Place="& Server.URLEncode(PlaceArray(i))&""">"&PlaceArray(i)&"</A>&nbsp;"
    Next
    SamePlaceAuction=SamePlaceAuction &"<A href=""Cnbbr_PlaceMap.asp"">更多</a>"& Vbcrlf

    Dim UserLoginStatus
    if Request.Cookies(Super_User)("UName")="" then
       UserLoginStatus="来宾|||[ <a href=""login.asp"">登录</a> | <a href=""Reg.asp"">注册</a> ]"
    else
       UserLoginStatus=Request.Cookies(Super_User)("UName") & "|||[ <a href=""Login.asp"">重新登录</a> | <a href=""logout.asp"">退出</a> ]"
    end if
    UserLoginStatus=Split(UserLoginStatus,"|||")

  Dim BBR_TopNow
  BBR_TopNow=FormatDateTime(Now(),1) & " " & FormatDateTime(Now(),3)
  Dim Search_HotKeyStr,Temp_HotKeyStr
  Search_HotKeyStr=Search_HotKey
  Search_HotKeyStr=Split(Search_HotKeyStr,"|")
  for i=0 to Ubound(Search_HotKeyStr)
    Temp_HotKeyStr=Temp_HotKeyStr &"<a href=""Search_Auction.asp?BBR_AucName="& Search_HotKeyStr(i) &""">"& Search_HotKeyStr(i) &"</a>"& Vbcrlf
  next


  Sys_Announce="<marquee direction=left SCROLLAMOUNT=1 scrolldelay=100>"& sys_announce &"</marquee>"& Vbcrlf
 
Function Cnbbr_Head()
 
  Dim TempCnbbr_Head
  TempCnbbr_Head=Application("Cnbbr_Head")
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_SYSNAME}",SYS_WEBNAME)
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_SYSBBS}",SYS_WEBBBS)
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_WEBKEY}",SYS_WEBKEY)
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_SysSkins}",SYS_BBRSkins)
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_SKINSFOLDER}",Skins_Folder)
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_SKINSCSS}",Skins_Css)
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_UserName}",UserLoginStatus(0))
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_UserLoginStatus}",UserLoginStatus(1))
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_SamePlaceAuction}",SamePlaceAuction)
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_BodyWidth}",SYS_BodyWidth)
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_BodyCenterWidth}",SYS_BodyCenterWidth)
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_Now}",BBR_TopNow)
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_AucSearchKey}",Temp_HotKeyStr)
  TempCnbbr_Head=Replace(TempCnbbr_Head,"${BBR_ScrollBar}",Sys_Announce)
  Cnbbr_Head=TempCnbbr_Head
End Function

Function Cnbbr_Bottom()
  Response.Flush
  Dim TempCnbbr_Bottom
  TempCnbbr_Bottom=Application("Cnbbr_Bottom")

  ProcessEndTime=Timer()*1000-ProcessStartTime*1000
  ProcessEndTime=FormatNumber(ProcessEndTime,0,-1)

  TempCnbbr_Bottom=Replace(TempCnbbr_Bottom,"${BBR_ProcessTime}",ProcessEndTime)
  TempCnbbr_Bottom=Replace(TempCnbbr_Bottom,"${BBR_ConnTimes}",ConnTimesCount)
  TempCnbbr_Bottom=Replace(TempCnbbr_Bottom,"${BBR_SysName}",SYS_WebName)
  TempCnbbr_Bottom=Replace(TempCnbbr_Bottom,"${BBR_SysDomain}",SYS_WebUrl)
  TempCnbbr_Bottom=Replace(TempCnbbr_Bottom,"${BBR_SysEmail}",SYS_WebEmail)
  TempCnbbr_Bottom=Replace(TempCnbbr_Bottom,"${BBR_SysQQ}",SYS_WebOicq)
  TempCnbbr_Bottom=Replace(TempCnbbr_Bottom,"${BBR_SKINSFOLDER}",Skins_Folder)
  TempCnbbr_Bottom=Replace(TempCnbbr_Bottom,"${BBR_BodyWidth}",SYS_BodyWidth)
  Cnbbr_Bottom=TempCnbbr_Bottom

  CnbbrDelExpiresAuc

End Function

%>