<!--#include file="../connShop.asp"-->
<!--#include file="../Admin/Inc/Config.asp"-->
<!--#include file="../Admin/Inc/Function.asp"-->
<%
'**************************************
'* 最后更新 2009-8-3 by 56770.Kingdge
'* Copyright www.56770.com     
'**************************************
LangT = request("LangT")
Set rs = conn.execute("select sitename"& LanguageTxt(LangT) &",sys_description"& LanguageTxt(LangT) &",sys_keywords"& LanguageTxt(LangT) &" from [Lebi_system] where id=1")
include "../include/Lebi_Lang/"& LanguageFile(LangT)
Savehtml "../"& AdminPath &"/text/Lebi_Default"& LanguageTxt(LangT) &".text",rs(0) &"$$$$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Basket"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(7) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Brand"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(13) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Brand_list"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(13) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Cash"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_cart(39) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Cashsave"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_cart(109) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Cashview"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_cart(57) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Gift"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(17) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Guestbook"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(20) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Help"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(19) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Link"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(21) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Login"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(34) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_News"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(18) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Pro_Category"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(12) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Pro_Info"& LanguageTxt(LangT) &".text",rs(0) &"$$$$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Pro_Info_u"& LanguageTxt(LangT) &".text",rs(0) &"$$$$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Pro_List"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(30) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Pro_New"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(14) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Pro_Query"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(11) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Pro_QueryList"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(30) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Pro_Recom"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(15) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Pro_Sale"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(16) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Pro_Unite"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_pro_unite(0) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_Reg"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_user(25) &"-$$$"& rs(1) &"$$$"& rs(2)
Savehtml "../"& AdminPath &"/text/Lebi_User"& LanguageTxt(LangT) &".text",rs(0) &"$$$"& Lebi_word(8) &"-$$$"& rs(1) &"$$$"& rs(2)
rs.close:Set rs=Nothing 

Function include(filename)
		Dim re,content,fso,f,aspStart,aspEnd
		Set objStm = Server.CreateObject("ADODB.Stream")
			objStm.charset = "UTF-8"
			objStm.open
			objStm.LoadFromFile server.mappath(filename)
			content = objStm.Readtext
		Set objStm = Nothing
		set re=new RegExp
		re.pattern="^\s*="
		aspEnd=1
		aspStart=inStr(aspEnd,content,"<%")+2
		do while aspStart>aspEnd+1 
		Response.write Mid(content,aspEnd,aspStart-aspEnd-2)
		aspEnd=inStr(aspStart,content,"%\>")+2
		Executeglobal(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))
		aspStart=inStr(aspEnd,content,"<%")+2
		loop
		Response.write Mid(content,aspEnd) 
		set re=nothing
End Function
%>
</body>
</html>