<%
 '=========================================================

	'/////_tBBRv9.6/////

	'Copyright (c) 2004-2011 cnbbr.com
	'All Rights Reserved.
	'Script written by X.T.
	'Web Site: http://www.cnbbr.com
	'Email: cnbbr.com@gmail.com
	'QQ: 163097  80380256

 '=========================================================
	'ЫOd{ǪvH
	'Please don't skip the copyright annoucement!
 '=========================================================


 
'_tΥΤᩱQGŰWVާ@=}l====================
Dim BBRShopRedirect
Dim BBRSetupDirectory,BBRShopDomainHead
BBRShopRedirect=True				'O_ҥΤGŰWV\ATrueҥΡAFalse
BBRSetupDirectory="/BBR9/"		'_t w˪ؿ
BBRShopDomainHead="shop"		'QGŰWerŦ

if BBRShopRedirect=True then
  Dim ScriptName,ScriptNameFixBegin,ScriptNameFixEnd,redreictShopID
  ScriptName=Cstr(Request.ServerVariables("SERVER_NAME"))
  ScriptName=Lcase(ScriptName)
  ScriptNameFixBegin=left(ScriptName,instr(ScriptName,".")-1)
  ScriptNameFixEnd=right(ScriptName,len(ScriptName)-instr(ScriptName,"."))
  if right(ScriptNameFixEnd,1)="/" then ScriptNameFixEnd=left(ScriptNameFixEnd,len(ScriptNameFixEnd)-1)
  if left(ScriptNameFixBegin,len(BBRShopDomainHead))=lcase(BBRShopDomainHead) then
	  redreictShopID=right(ScriptNameFixBegin,len(ScriptNameFixBegin)-len(BBRShopDomainHead))
	  Response.redirect "http://"& ScriptNameFixEnd & BBRSetupDirectory &"shop/index.asp?ShopID="& redreictShopID
	  Response.end
  end if
end if
'_tΥΤᩱQGŰWVާ@=====================


 '=========================================================

	'/////_tBBRv9.6/////

	'Copyright (c) 2004-2011 cnbbr.com
	'All Rights Reserved.
	'Script written by X.T.
	'Web Site: http://www.cnbbr.com
	'Email: cnbbr.com@gmail.com
	'QQ: 163097  80380256

 '=========================================================
	'ЫOd{ǪvH
	'Please don't skip the copyright annoucement!
 '=========================================================


%>
