欢迎来到种子拍卖网
<%
Dim TempPathInfo
TempPathInfo=Cnbbr_CurrentPath
if len(TempPathInfo) then
TempPathInfo=Lcase(TempPathInfo)
if Instr(TempPathInfo,"index.asp")>0 then SYS_Bodywidth="772"
end if
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 UserLoginStatus
if Request.Cookies(Super_User)("UName")="" then
UserLoginStatus="来宾|||[ 登录 | 注册 ]"
else
UserLoginStatus=Request.Cookies(Super_User)("UName") & "|||[ 重新登录 | 退出 ]"
end if
UserLoginStatus=Split(UserLoginStatus,"|||")
%>
