<!--#include file="Lebi_XML_Cls.asp"-->
<%
'**************************************
'* 最后更新 2014-08-19 by 56770.Kingdge
'* Copyright www.56770.com
'**************************************
Set LB_XML = new ASPXML
Dim sys_skins,skin_name,skin_folder,skin_width,skin_head,skin_topmenu,skin_footer,skin_other,skin_error,skin_success,skin_topgg,skin_topmain,pic_xw,pic_xh,pic_dw,pic_dh,pic_zt,show_mouse,skin_align,top1,top2,top3,top4,top5,top6,top7,top8,top9,top10,top11,top12,top13,top14,top15,top16,top17,top18,top19,top20,skin_ys1,skin_ys2,skin_ys3,top21,top22,top23,top24,top25,top26,top27,top28,top29,style_folder,sys_lang,dw,dw2,moneyhl,LangMark,LangSkin,CurrencyCode,CurrencyRate,Langdecimal,LangFolder
If SoftwareCopyright = "" Then response.End
If InStr(SoftwareCopyright,"56770")<=0 Then response.End
If LangName = "" Then
		Set rs = conn.execute("select top 1 l_name from [Lebi_language] where l_state = 1 order by l_default desc")
		If Not rs.eof Then
				LangName = rs(0)
		End If
		rs.close : Set rs = Nothing
End If
cache.name="Lebi_sys_lang"& LangTxt & LangName
cache.reloadtime= 5000
If cache.objisempty() Then
		set Rs = conn.execute("select l_money,l_money2,l_rate,l_mark,template,l_decimal,l_folder,l_id from [Lebi_language] where l_name='"& Trim(LangName) &"'")
		If Not rs.eof Then
				SqlNum = SqlNum + 1
				cache.value = rs.getstring(,1,"<|>","","")
		Else
				cache.value = "￥<|>1<|>0<|>0<|>0<|>0<|>"
		End If
		rs.close : Set rs=Nothing
End If
sys_lang = cache.value
dw = Trim(Split(sys_lang,"<|>")(0))
dw2 = Trim(Split(sys_lang,"<|>")(1))
moneyhl = checknum(Trim(Split(sys_lang,"<|>")(2)),0)
LangMark = Trim(Split(sys_lang,"<|>")(3))
LangSkin = Trim(Split(sys_lang,"<|>")(4))
Langdecimal = Trim(Split(sys_lang,"<|>")(5))
LangFolder = Trim(Split(sys_lang,"<|>")(6))
If moneyhl = 0 Then moneyhl = 1
'If LangSkin = "" Then
'		response.write "读取"& LangName &"模板错误。"
'End If
cache.name="Lebi_plugin_currency"
cache.reloadtime= 5000
If cache.objisempty() Then
	    set Rs = conn.execute("select p_state from [Lebi_Plugin] where p_url = 'admin_currency.asp'")
		If Not rs.eof Then
				SqlNum = SqlNum + 1
				cache.value = Rs(0)
				cache.DataCount = 1
		Else
				cache.value = 0
				cache.DataCount = 0
		End If
	    rs.close:Set rs=Nothing
End If
Lebi_plugin_currency = cache.value
If Lebi_plugin_currency = 1 Then 
		CurrencySymbol = request.cookies(cookiesname&"_currency")("CurrencySymbol")
		If CurrencySymbol = "" Then CurrencySymbol = session(cookiesname&"_currency"&"CurrencySymbol")
		CurrencySymbol2 = request.cookies(cookiesname&"_currency")("CurrencySymbol2")
		If CurrencySymbol2 = "" Then CurrencySymbol = session(cookiesname&"_currency"&"CurrencySymbol2")
		CurrencyCode = request.cookies(cookiesname&"_currency")("CurrencyCode")
		If CurrencyCode = "" Then CurrencyCode = session(cookiesname&"_currency"&"CurrencyCode")
		CurrencyRate = request.cookies(cookiesname&"_currency")("CurrencyRate")
		If CurrencyRate = "" Then CurrencyRate = session(cookiesname&"_currency"&"CurrencyRate")
		If CurrencySymbol <> "" Then 
			dw = CurrencySymbol
			If CurrencySymbol2 <> "-" Then 
					dw2 = CurrencySymbol2
			Else	
					dw2 = ""
			End If 
		End If 
		If CurrencyRate <> "" Then moneyhl = CurrencyRate
		cache.name="Lebi_sys_currencyconfig"
		cache.reloadtime= 5000
		If cache.objisempty() Then
				set Rs = conn.execute("select showlang,c_id from [Lebi_CurrencyConfig] where c_id=1")
				cache.value = rs.getstring(,1,"<>currencyconfig<>","","")
				SqlNum = SqlNum + 1
				rs.close:Set rs=Nothing
		End If
		sys_currencyconfig = Split(cache.value,"<>currencyconfig<>")
		currency_showlang = sys_currencyconfig(0)
End If 
If LangSkin <> "" Then 
LB_XML.Path = server.MapPath(Eshop_url &"skins/"& LangSkin &"/data.xml")
LB_XML.Data = "data"
LB_XML.open
LB_XML.SelectTable("config")
skin_align = "center"
skin_width = "100%"
skin_name = LB_XML.read("name")
style_folder = LB_XML.read("stylefolder")
skin_folder = LB_XML.read("templatefolder")
pic_dw = LB_XML.read("previewwidth")
pic_dh = LB_XML.read("previewheight")
show_mouse = LB_XML.read("preview")
skin_topnum = LB_XML.read("topnum")
If skin_topnum = "" Then skin_topnum = "5$4$0$6$0$6$0$5$10$10$5$16$5$16$16$16$2$0$16$2$2$2$2$0$12$10$12$4$4$0$0$0$0$0$0$0$0$0$0$0$0$"
top1= Split(skin_topnum,"$")(0)
top2= Split(skin_topnum,"$")(1)
top3= Split(skin_topnum,"$")(2)
top4= Split(skin_topnum,"$")(3)
top5= Split(skin_topnum,"$")(4)
top6= Split(skin_topnum,"$")(5)
top7= Split(skin_topnum,"$")(6)
top8= Split(skin_topnum,"$")(7)
top9= Split(skin_topnum,"$")(8)
top10= Split(skin_topnum,"$")(9)
top11= Split(skin_topnum,"$")(10)
top12= Split(skin_topnum,"$")(11)
top13= Split(skin_topnum,"$")(12)
top14= Split(skin_topnum,"$")(13)
top15= Split(skin_topnum,"$")(14)
top16= Split(skin_topnum,"$")(15)
top17= Split(skin_topnum,"$")(16)
top18= Split(skin_topnum,"$")(17)
top19= Split(skin_topnum,"$")(18)
top20= Split(skin_topnum,"$")(19)
skin_ys1= Split(skin_topnum,"$")(20)
skin_ys2= Split(skin_topnum,"$")(21)
skin_ys3= Split(skin_topnum,"$")(22)
top21= Split(skin_topnum,"$")(23)
top22= Split(skin_topnum,"$")(24)
top23= Split(skin_topnum,"$")(25)
top24= Split(skin_topnum,"$")(26)
top25= Split(skin_topnum,"$")(27)
top26= Split(skin_topnum,"$")(28)
top27= Split(skin_topnum,"$")(29)
top28= Split(skin_topnum,"$")(30)
top29= Split(skin_topnum,"$")(31)
LB_XML.close
End If 
%>