<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<!--#include file="../include/Lebi_config.asp"-->
<!--#include file="../include/Lebi_temp_cls.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_skin_save.asp
'* 最后更新 2013-04-12 by 56770.kingdge
'*****************************************
Dim admin_flag
admin_flag=",9.1,"
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_skin.inc"
CurrentId = 6
CurrentUrl = "admin_skin.asp"
If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
		LB_Head()
		LB_Menu()
		Response.Write("<div class=""mainbody"">")
		Response.Write("<div class=""mainbody2"">")
		adminflag()
		Response.Write("</div>")
		Response.Write("</div>")
		LB_Footer()
Else
		Server.ScriptTimeout=99999
		If OutSubmit = 1 Then CheckOutSubmit()
		If OnlyRead = 1 Then OnlyReadMessage()
		If IsObjInstalled("Scripting.FileSystemObject") Then
				allowfso = 1
		Else
				allowfso = 0
		End If
		Function Checkfile(filename)
				set fso=Server.CreateObject ("Scripting.FileSystemObject")
				If fso.FileExists(server.mappath("../"& filename)) = True Then
						Checkfile = 1
				Else
						Checkfile = 0
				End If
		End Function
		Function GetLangPosition(template)
				Dim App_LangPosition
				set rs = conn.execute("select template from [Lebi_language] order by l_id asc")
				App_LangPosition = rs.getrows()
				rs.close : Set rs = Nothing
				For i = 0 To UBound(App_LangPosition,2)
						If Cstr(App_LangPosition(0,i)) = Cstr(template) Then
								GetLangPosition = i + 1
								Exit Function
						End If
				Next
		End Function
		action = request("action")
		s_id = CheckNum(request("s_id"),0)
		mes_type = CheckNum(request("mes_type"),0)
		back_type = CheckNum(request("back_type"),0)
		LangI = CheckNum(request("LangI"),1)
		template = safereplace(request("template"))
		filename = safereplace(request("filename"))
		If template <> "" Then
'				Set rs = conn.execute("select s_id from [Lebi_Language] where s_id ="& s_id &"")
'				If rs.eof Then
'						response.End
'				End If
'				rs.close
				LangI = GetLangPosition(template)
'				response.write "LangI"& LangI
'				response.End 
				TotalLang = conn.execute("select count(l_id) from [Lebi_language] where template ='"& template &"' and l_state = 1")(0)
				If TotalLang < LangI Then TotalLang = LangI
		Else
				LangI = 1
				ToTalLang = conn.execute("select count(l_id) from [Lebi_language] where l_state = 1")(0)
		End If
		rem }->
'		response.write LangI &"|"& TotalLang
		For LangT = LangI To TotalLang
				If request("template") = "" Or action ="all" Then template = LanguageSkin(LangT)
'				If CheckNum(request("s_id"),0) = 0 Then s_id = LanguageSkin(LangT)
'				set Rs = conn.execute("select s_name,s_ml,s_Lebi_1,s_width,s_picsize,s_topnum from [Lebi_skins] where s_id = "& s_id &"")
'				If rs.eof Then
'						admintop()
'						Call Up_mes(Lang_sys(46),"·"& Lang_Skin(154),0,"javascript:history.back();",0,0,2,0)
'				Else
'						sys_skins = rs.getstring(,1,"<><><><><>","","")
'				End If
'				rs.close : Set rs=Nothing
'				skin_name = Trim(Split(sys_skins,"<><><><><>")(0))
'				skin_folder = Trim(Split(sys_skins,"<><><><><>")(1))
'				skin_head = split(Split(sys_skins,"<><><><><>")(2),"@@@")(0)
'				skin_topmenu = split(Split(sys_skins,"<><><><><>")(2),"@@@")(1)
'				skin_topgg = split(Split(sys_skins,"<><><><><>")(2),"@@@")(2)
'				skin_footer = split(Split(sys_skins,"<><><><><>")(2),"@@@")(3)
'				skin_topmain = split(Split(sys_skins,"<><><><><>")(2),"@@@")(4)
'				skin_other = split(Split(sys_skins,"<><><><><>")(2),"@@@")(5)
'				skin_error = split(Split(sys_skins,"<><><><><>")(2),"@@@")(6)
'				skin_success = split(Split(sys_skins,"<><><><><>")(2),"@@@")(7)
'				skin_width = Trim(Split(sys_skins,"<><><><><>")(3))
'				pic_xw = Split(Split(sys_skins,"<><><><><>")(4),"##")(0)
'				pic_xh = Split(Split(sys_skins,"<><><><><>")(4),"##")(1)
'				pic_dw = Split(Split(sys_skins,"<><><><><>")(4),"##")(2)
'				pic_dh = Split(Split(sys_skins,"<><><><><>")(4),"##")(3)
'				pic_zt = Split(Split(sys_skins,"<><><><><>")(4),"##")(4)
''				show_html = Split(Split(sys_skins,"<><><><><>")(4),"##")(5)
'				show_mouse = Split(Split(sys_skins,"<><><><><>")(4),"##")(6)
'				skin_align = Split(Split(sys_skins,"<><><><><>")(4),"##")(7)
'				stylefolder = Split(Split(sys_skins,"<><><><><>")(4),"##")(9)
'				top1=Split(Split(sys_skins,"<><><><><>")(5),"$")(0)
'				top2=Split(Split(sys_skins,"<><><><><>")(5),"$")(1)
'				top3=Split(Split(sys_skins,"<><><><><>")(5),"$")(2)
'				top4=Split(Split(sys_skins,"<><><><><>")(5),"$")(3)
'				top5=Split(Split(sys_skins,"<><><><><>")(5),"$")(4)
'				top6=Split(Split(sys_skins,"<><><><><>")(5),"$")(5)
'				top7=Split(Split(sys_skins,"<><><><><>")(5),"$")(6)
'				top8=Split(Split(sys_skins,"<><><><><>")(5),"$")(7)
'				top9=Split(Split(sys_skins,"<><><><><>")(5),"$")(8)
'				top10=Split(Split(sys_skins,"<><><><><>")(5),"$")(9)
'				top11=Split(Split(sys_skins,"<><><><><>")(5),"$")(10)
'				top12=Split(Split(sys_skins,"<><><><><>")(5),"$")(11)
'				top13=Split(Split(sys_skins,"<><><><><>")(5),"$")(12)
'				top14=Split(Split(sys_skins,"<><><><><>")(5),"$")(13)
'				top15=Split(Split(sys_skins,"<><><><><>")(5),"$")(14)
'				top16=Split(Split(sys_skins,"<><><><><>")(5),"$")(15)
'				top17=Split(Split(sys_skins,"<><><><><>")(5),"$")(16)
'				top18=Split(Split(sys_skins,"<><><><><>")(5),"$")(17)
'				top19=Split(Split(sys_skins,"<><><><><>")(5),"$")(18)
'				top20=Split(Split(sys_skins,"<><><><><>")(5),"$")(19)
'				skin_ys1=Split(Split(sys_skins,"<><><><><>")(5),"$")(20)
'				skin_ys2=Split(Split(sys_skins,"<><><><><>")(5),"$")(21)
'				skin_ys3=Split(Split(sys_skins,"<><><><><>")(5),"$")(22)
'				top21=Split(Split(sys_skins,"<><><><><>")(5),"$")(23)
'				top22=Split(Split(sys_skins,"<><><><><>")(5),"$")(24)
'				top23=Split(Split(sys_skins,"<><><><><>")(5),"$")(25)
'				top24=Split(Split(sys_skins,"<><><><><>")(5),"$")(26)
'				top25=Split(Split(sys_skins,"<><><><><>")(5),"$")(27)
'				top26=Split(Split(sys_skins,"<><><><><>")(5),"$")(28)
'				top27=Split(Split(sys_skins,"<><><><><>")(5),"$")(29)
'				top28=Split(Split(sys_skins,"<><><><><>")(5),"$")(30)
'				top29=Split(Split(sys_skins,"<><><><><>")(5),"$")(31)
				LB_XML.Path = server.MapPath("../skins/"& template &"/data.xml")
				LB_XML.Data = "data"
				LB_XML.open
				LB_XML.SelectTable("config")
				stylefolder = LB_XML.read("stylefolder")
				LB_XML.close
				If filename = "error.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/error.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,skin_body,"Message/Error.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If 
				If filename = "success.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/success.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,skin_body,"Message/Success.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If 
				If filename = "generic.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/generic.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,tpl_rem,"Message/OpenMsg.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,skin_body,"basket/pay.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.Assign("strwebtitle") = Lebi_pro(92) &"-"
						Tpl.DisPlay template,skin_body,"Product/Rating/default.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.Assign("strwebtitle") = Lebi_pro(109) &"-"
						Tpl.DisPlay template,skin_body,"comp.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,skin_body,"basket/Shipment.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,tpl_rem,"Product/Html/ProductInfo.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,tpl_rem &"{[Connclose()]}","count.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,tpl_rem,"Rss.asp"
						Else
								Tpl.DisPlay template,tpl_rem,"category/rss/default.asp"
						End If
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Query"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"Search/order.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "default.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/default.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_default"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"default.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "product_category.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_category.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Category"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Mulu.asp"
						Else
								Tpl.DisPlay template,skin_body,"category/default.asp"
						End If
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "brand.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/brand.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Brand"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Brand.asp"
						Else
								Tpl.DisPlay template,skin_body,"brand/default.asp"
						End If
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "brand_list.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/brand_list.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_brand_list"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"brand/list/default.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "product_list.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_list.htm")
						If Config_Lebi_Eshop(16) = 0 Then
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_Pro_List"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								Tpl.DisPlay template,skin_body,"Showsort.asp"
								Set Tpl = Nothing
						Else
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_Pro_List"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
									Tpl.Assign("sort_id") = 0
								End If
								Tpl.DisPlay template,skin_body,"Category/0/default.asp"
								Set Tpl = Nothing
								Set rs = conn.execute("select c_id,c_skin,c_info,c_foldername from [Lebi_category]")
								Do While Not rs.eof
										If rs(1) <> "" Then
											skin_body = LoadStyle(Eshop_url & stylefolder &"category/"&rs(1))
										Else
											skin_body = LoadFile("../skins/"& template &"/template/product_list.htm")
										End If
										Set Tpl = New Cache_Tpl
										Tpl.Template = Eshop_url
										Tpl.LangTxt = LanguageTxt(LangT)
										Tpl.LangFile = LanguageFile(LangT)
										Tpl.LangName = LanguageName(LangT)
										Tpl.LangPath = LanguagePath(LangT)
										If s_text <> "" Then
											Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
										End If
										Tpl.Assign("strwebtitle") = Trim(Split(rs(2),"$")(0))
										Tpl.Assign("description") = Trim(Split(rs(2),"$")(2))
										Tpl.Assign("keywords") = Trim(Split(rs(2),"$")(1))
										Tpl.Assign("sort_id") = rs(0)
										Tpl.DisPlay template,skin_body,"Category/"&rs(3)&"/default.asp"
										Set Tpl = Nothing
										mes = mes&"·"& Replace(Lang_Skin(155),"[name]","Lebi_Category "&rs(3)&"") &"<br />"
								rs.movenext
								Loop
								rs.close : Set rs = Nothing
						End If
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				rem	<-{ 根据sortid生成自定义模版 2008-6-23 by 56770.WangLei
				If action = "tpl_showsort_one" Then
						Dim tpl_Lebi_Eshop_showsort_one_t,c_id
						c_id = CInt(request("c_id"))
						Set rs = conn.execute("select c_id,c_skin,c_info,c_foldername from [Lebi_category] where c_id="&c_id)
						If Not rs.eof Then
								If rs(1) <> "" Then
									skin_body = LoadStyle(Eshop_url & stylefolder &"category/"&rs(1))
								Else
									skin_body = LoadFile("../skins/"& template &"/template/product_list.htm")
								End If
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_Pro_List"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								End If
								Tpl.Assign("strwebtitle") = Trim(Split(rs(2),"$")(0))
								Tpl.Assign("description") = Trim(Split(rs(2),"$")(2))
								Tpl.Assign("keywords") = Trim(Split(rs(2),"$")(1))
								Tpl.Assign("sort_id") = rs(0)
								Tpl.DisPlay template,skin_body,"Category/"&rs(3)&"/default.asp"
								Set Tpl = Nothing
						End If
						rs.close : Set rs = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				rem	}->
				If filename = "product_new.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_new.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_New"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"NewProduct.asp"
						Else
								Tpl.DisPlay template,skin_body,"new/default.asp"
						End If
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "product_recommend.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_recommend.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Recom"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Recom.asp"
						Else
								Tpl.DisPlay template,skin_body,"recom/default.asp"
						End If
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "product_sale.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_sale.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Sale"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Tjia.asp"
						Else
								Tpl.DisPlay template,skin_body,"sale/default.asp"
						End If
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "product_detail.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_detail.htm")
						ViewHistory = "<script src=""include/Lebi_Html/ProductViewHistory.asp?id={$ProductInfoItemId}&product_name={$EncodeProductInfoItemName}&product_type=&pic={$ProductInfoItemPic}""></script>"
						skin_body = skin_body & ViewHistory
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Info"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"ShowProduct.asp"
						Else
								Tpl.DisPlay template,skin_body,"product/default.asp"
						End If
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Info"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,tpl_rem,"product/post.asp"
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "product_showpic.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_showpic.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Info"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"ShowPic.asp"
						Else
								Tpl.DisPlay template,skin_body,"product/showpic/default.asp"
						End If
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If 
				If filename = "user_register.htm" Or filename = "user_register_europe.htm" Or action ="all" Then
						Select Case sys_soft
						Case "0" skin_body = LoadFile("../skins/"& template &"/template/user_register.htm")
						Case "1" skin_body = LoadFile("../skins/"& template &"/template/user_register_europe.htm")
						End Select 
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_reg"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/reg.asp"
						Set Tpl = Nothing
						skin_body = LoadFile("../skins/"& template &"/template/generic.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_reg"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/regok.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,tpl_rem,"user/check.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "user_signin.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/user_signin.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_login"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/login.asp"
						Set Tpl = Nothing
						skin_body = LoadFile("../skins/"& template &"/template/generic.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_login"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/cklogin.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "order_basket.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/order_basket.htm")
'						If InStr(LCase(skin_temp),"include/js/basket.js") = 0 Then 
'								skin_temp = "<script type=""text/javascript"" src=""include/js/basket.js""></script>"&vbcrlf & skin_temp
'						End If 
'						Basket_content = Replace(skin_temp,"{str_lowprice}",formatnumber2(str_lowprice))
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_basket"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"basket/default.asp"
						Tpl.DisPlay template,"","basket/post.asp"
						Set Tpl = Nothing
						skin_body = LoadFile("../include/Lebi_Data/print.data")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,skin_body,"basket/Print.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "order_checkout.htm" Or filename = "order_checkout_europe.htm" Or action ="all" Then
						Select Case sys_soft
						Case "0" skin_body = LoadFile("../skins/"& template &"/template/order_checkout.htm")
						Case "1" skin_body = LoadFile("../skins/"& template &"/template/order_checkout_europe.htm")
						End Select
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Cash"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"basket/cash.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "order_preview.htm" Or filename = "order_preview_europe.htm" Or action ="all" Then
						Select Case sys_soft
						Case "0" skin_body = LoadFile("../skins/"& template &"/template/order_preview.htm")
						Case "1" skin_body = LoadFile("../skins/"& template &"/template/order_preview_europe.htm")
						End Select
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Cashview"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"basket/cashview.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "order_submit.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/order_submit.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Cashsave"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"basket/cashsave.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "user_panel.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/user_panel.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_User"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/default.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_User"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/pay.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_User"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/post.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,"","user/Html/UserLogin.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "gift.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/gift.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_gift"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Gift.asp"
						Else
								Tpl.DisPlay template,skin_body,"gift/default.asp"
						End If
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "news_default.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/news_default.htm")
						If Config_Lebi_Eshop(16) = 0 Then
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_News"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								Tpl.DisPlay template,skin_body,"Zhuanti.asp"
								Set Tpl = Nothing
						Else
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_News"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								If Config_Lebi_Eshop(16) = 0 Then
										Tpl.DisPlay template,skin_body,"Zhuanti.asp"
								Else
										Tpl.DisPlay template,skin_body,"news/default.asp"
								End If
								Set Tpl = Nothing
						End If 
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If 
				If filename = "news_list.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/news_list.htm")
						If Config_Lebi_Eshop(16) <> 0 Then
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_News"& LanguageTxt(LangT) &".text")
								Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
								Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								Tpl.DisPlay template,skin_body,"news/class/default.asp"
								Set Tpl = Nothing
								rem <-{ 专题分类模板 2008-02-29 by 56770.icystar
								Dim tpl_Lebi_Eshop_news_t
								Set rs = conn.execute("select ClassID,ClassSkin,n_foldername from [Lebi_newsclass]")
								Do While Not rs.eof
								If rs(1) <> "" Then
									skin_body = LoadStyle(Eshop_url & stylefolder &"news/"&rs(1))
								Else
									skin_body = LoadFile("../skins/"& template &"/template/news_list.htm")
								End If
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_News"& LanguageTxt(LangT) &".text")
								Tpl.Assign("classid") = rs(0)
								Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
								Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								Tpl.DisPlay template,skin_body,"news/"&rs(2)&"/default.asp"
								Set Tpl = Nothing
								rs.movenext
								Loop
								rs.close : Set rs = Nothing
								rem }->
								mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
						End If 
				End If 
				If filename = "news_detail.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/news_detail.htm")
						If Config_Lebi_Eshop(16) <> 0 Then
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_News"& LanguageTxt(LangT) &".text")
								Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
								Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								Tpl.Assign("IsDiy") = 0
								Tpl.DisPlay template,skin_body,"news/list/default.asp"
								Set Tpl = Nothing
								rem <-{ 专题内容模板 2008-3-6 by 56770.icystar
								Set rs = conn.execute("select id,n_skin from [Lebi_news] where n_skin <> ''")
								Do While Not rs.eof
								skin_body = LoadStyle(Eshop_url & stylefolder &"news/list/"&rs(1))
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								Tpl.Assign("id") = rs(0)
								Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
								Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								Tpl.Assign("IsDiy") = 1
								Tpl.DisPlay template,skin_body,"news/list/"&rs(0)&"/default.asp"
								Set Tpl = Nothing
								rs.movenext
								Loop
								rs.close : Set rs = Nothing
								rem }->
								mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
						End If
				End If
				rem <-{ 专题类别classid模板生成 2011-08-21 by 56770.Kingdge
				If action = "tpl_news_class_one" Then
						id = CheckNum(request("id"),0)
						Set rs = conn.execute("select ClassSkin,n_foldername from [Lebi_newsclass] where classid = "& id &"")
						If Not rs.eof Then
								If rs(0) <> "" Then
									skin_body = LoadStyle(Eshop_url & stylefolder &"news/"&rs(0))
								Else
									skin_body = LoadFile("../skins/"& template &"/template/news_list.htm")
								End If
								Set Tpl = New Cache_Tpl
									Tpl.Template = Eshop_url
									Tpl.LangTxt = LanguageTxt(LangT)
									Tpl.LangFile = LanguageFile(LangT)
									Tpl.LangName = LanguageName(LangT)
									Tpl.LangPath = LanguagePath(LangT)
									s_text=LoadText("Lebi_News"& LanguageTxt(LangT) &".text")
									Tpl.Assign("classid") = id
									Tpl.Assign("Showpath") = "<a href='"& eshop_url & LangPath &"'>"& Lebi_word(0) &"</a> → <a href='"& eshop_url & url_7 &"'>"& Lebi_word(18) &"</a>"
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
									Tpl.DisPlay template,skin_body,"news/"& rs(1) &"/default.asp"
								Set Tpl = Nothing
						End If
						rs.close : Set rs = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]","news_list.htm") &"<br />"
				End If
				rem }->
				rem <-{ 专题个性化模板生成 2009-4-2 by 56770.Kingdge
				If action = "tpl_news_diy" Then
						id = CheckNum(request("id"),0)
						skin_body = LoadFile("../skins/"& template &"/template/news_detail.htm")
						rem <-{ 专题内容模板 2008-3-6 by 56770.icystar
						Set rs = conn.execute("select n_skin from [Lebi_news] where id = "& id &"")
						If Not rs.eof Then
								skin_body = LoadStyle(Eshop_url & stylefolder &"news/list/"&rs(0))
								s_text=LoadText("Lebi_News"& LanguageTxt(LangT) &".text")
								Set Tpl = New Cache_Tpl
									Tpl.Template = Eshop_url
									Tpl.LangTxt = LanguageTxt(LangT)
									Tpl.LangFile = LanguageFile(LangT)
									Tpl.LangName = LanguageName(LangT)
									Tpl.LangPath = LanguagePath(LangT)
									Tpl.Assign("id") = id
									Tpl.Assign("IsDiy") = 1
									Tpl.Assign("Showpath") = "<a href='"& eshop_url & LangPath &"'>"& Lebi_word(0) &"</a> → <a href='"& eshop_url & url_7 &"'>"& Lebi_word(18) &"</a>"
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
									Tpl.DisPlay template,skin_body,"news/list/"& id &"/default.asp"
								Set Tpl = Nothing
						End If
						rs.close : Set rs = Nothing
						rem }->
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]","news_detail.htm") &"<br />"
				End If
				rem }->
				If filename = "help_default.htm" Or filename = "help_list.htm" Or filename = "help_system.htm" Or action ="all" Then
						If Config_Lebi_Eshop(16) = 0 Then
								skin_body = "{[if request(""action"") = """" Then]}"& LoadFile("../skins/"& template &"/template/help_default.htm") &"{[End If]}"& vbcrlf & "{[if request(""action"") = ""help_class"" Then]}"& LoadFile("../skins/"& template &"/template/help_list.htm") &"{[End If]}"& vbcrlf & "{[if request(""action"") = ""system"" Then]}"& LoadFile("../skins/"& template &"/template/help_system.htm") &"{[End If]}"
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_help"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								Tpl.DisPlay template,skin_body,"Help.asp"
								Set Tpl = Nothing
						Else
								skin_body = LoadFile("../skins/"& template &"/template/help_default.htm")
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_help"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								Tpl.DisPlay template,skin_body,"help/default.asp"
								Set Tpl = Nothing
						End If 
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If 
				If filename = "help_list.htm" Or action ="all" Then
						If Config_Lebi_Eshop(16) <> 0 Then
								skin_body = LoadFile("../skins/"& template &"/template/help_list.htm")
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
								Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								Tpl.DisPlay template,skin_body,"help/class/default.asp"
								Set Tpl = Nothing
								mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
						End If 
				End If 
				If filename = "help_system.htm" Or action ="all" Then
						If Config_Lebi_Eshop(16) <> 0 Then
								skin_body = LoadFile("../skins/"& template &"/template/help_system.htm")
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								Tpl.DisPlay template,skin_body,"help/system/default.asp"
								Set Tpl = Nothing
								mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
						End If
				End If
				If filename = "guestbook.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/guestbook.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_GuestBook"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Book.asp"
						Else
								Tpl.DisPlay template,skin_body,"book/default.asp"
						End If
						Tpl.DisPlay template,skin_body,"book/post.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "advancedsearch.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/advancedsearch.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Query"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Search.asp"
						Else
								Tpl.DisPlay template,skin_body,"search/default.asp"
						End If
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "searchresult.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/searchresult.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Querylist"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"SearchShop.asp"
						Else
								Tpl.DisPlay template,skin_body,"search/list/default.asp"
						End If
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "link.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/link.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_link"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Links.asp"
						Else
								Tpl.DisPlay template,skin_body,"Link/default.asp"
						End If
						Tpl.DisPlay template,"","Link/post.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "product_unite.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_unite.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Unite"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"unite/default.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "product_unite_detail.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_unite_detail.htm")
						ViewHistory = "<script src=""include/Lebi_Html/ProductViewHistory.asp?id={$ProductInfoItemId}&product_name={$EncodeProductInfoItemName}&product_type=unite&pic={$ProductInfoItemPic}""></script>"
						skin_body = skin_body & ViewHistory
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_pro_info_u"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.Assign_Dim("product_type") = "unite"
						Tpl.DisPlay template,skin_body,"unite/show/default.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If
				If filename = "writemsg.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/writemsg.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Info"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"message/WriteMsg.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If 
				If filename = "order_pay.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/order_pay.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_basket"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"basket/paymoney.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If 
				If filename = "vote.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/vote.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_default"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"message/vote.asp"
						Set Tpl = Nothing
						mes = mes&"·"& Replace(Lang_Skin(155),"[name]",filename) &"<br />"
				End If 
		Next
		If mes_type = 0 Then
				m_s = mes
				If action ="all" Then
						Conn.Execute("delete from Lebi_Event where e_type = 1")
						If back_type = 0 Then
'								m_u = "javascript:window.parent.location.reload();"
								m_u = "admin_skin.asp"
						ElseIf back_type = 1 Then
								m_u = "javascript:history.back();"
						ElseIf back_type = 2 Then
								m_u = "admin_skin_text.asp"
						ElseIf back_type = 3 Then
								m_u = "admin_system.asp"
						End If
				Else
						m_u = "admin_skin.asp?action=s_list&template="&request("template")&"&s_name="&server.urlencode(request("s_name"))&"&path="&request("path")&""
						If request("b_u") <> "" Then m_u = request("b_u")
				End If
				LB_Head()
				LB_Menu()
				%>
				<div class="tabmenu mainwidth">
					  <ul>
						<li class="current"><a href="admin_skin.asp"><span><%=Lang_Menu(58)%></span></a></li>
						<li><a href="admin_skin_load.asp"><span><%=Lang_Menu(156)%></span></a></li>
					  </ul>
				</div>
				<%
				Response.Write("<div class=""tab-mainbody"">")
				Response.Write("<div class=""tab-mainbody2"">")
				Call Up_mes(Lang_sys(69),m_s,0,m_u,0,0,2,1)
				Response.Write("</div>")
				Response.Write("</div>")
				LB_Footer()
		Else
				response.write"<html>"
				response.write"<head>"
				response.write"<meta http-equiv=""Content-Type"" content=""text/html; charset=Utf-8"">"
				response.write"<style>body{font-size:12px;}</style>"
				response.write"</head>"
				response.write"<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
				response.write mes
				response.write"</body>"
				response.write"</html>"
		End If
End If

Function LoadText(strFile)
		Dim strTempPath,objFSO,objStm
		strTempPath = Server.MapPath("text/" & strFile)
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		Set objStm = Server.CreateObject("ADODB.Stream")
			If objFso.FileExists(strTempPath) Then
				objStm.charset = "UTF-8"
				objStm.open
				objStm.LoadFromFile strTempPath
				LoadText = objStm.ReadText
			End If
		Set objStm = Nothing
		Set objFSO = Nothing
End Function
%>