<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_skin_text.asp
'* 最后更新 2010-09-19 by 56770.kingdge
'*****************************************
Dim admin_flag, i
admin_flag=",9.2,"
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_skin.inc"
CurrentId = 6
CurrentUrl = "admin_skin_text.asp"
LB_Head()
LB_Menu()
Response.Write("<div class=""mainbody"">")
Response.Write("<div class=""mainbody2"">")
If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	    adminflag()
End If
If OutSubmit = 1 Then CheckOutSubmit()
FilePath = "text/"
Select Case request("action")
	   Case "update_ok" update_ok()
	   Case "uptext" uptext()
	   Case Else
			main()
End Select
Response.Write("</div>")
Response.Write("</div>")
LB_Footer()

Function CheckTplDir(PathValue)
		On Error Resume Next
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		If objFSO.FolderExists(Server.MapPath(PathValue))=False Then
				objFSO.CreateFolder Server.MapPath(PathValue)
		End If
		If Err.Number = 0 Then
				CheckTplDir = PathValue
		End If
		Set objFSO = Nothing
End Function

Sub update_ok()
        If OnlyRead = 1 Then OnlyReadMessage()
		CheckTplDir(filepath)
		LangT = CheckNum(request("LangT"),1)
		m_u="admin_skin_save.asp?action=all&back_type=2"
		For LangT = 1 To TotalLang
				main_0 = Replace(NoEnter(safereplace(request("main_"& LanguageTxt(LangT) &"0"))),"$$$","")
				main_1 = Replace(NoEnter(safereplace(request("main_"& LanguageTxt(LangT) &"1"))),"$$$","")
				main_2 = Replace(NoEnter(safereplace(request("main_"& LanguageTxt(LangT) &"2"))),"$$$","")
				response.write("<iframe src=""?action=uptext&LangT="& LangT &"&main_0="& server.urlencode(main_0) &"&main_1="& server.urlencode(main_1) &"&main_2="& server.urlencode(main_2) &""" width=""0"" height=""0""></iframe>")
		Next
		ManageLog Lang_Skin(161)
		Call Up_mes(Lang_sys(69),"·"& Lang_Skin(162),0,m_u,0,0,3,1)
End Sub

Sub uptext()
		LangT = CheckNum(request("LangT"),1)
		include "../include/Lebi_Lang/"& LanguageFile(LangT)
		main_0 = Replace(NoEnter(safereplace(request("main_0"))),"$$$","")
		main_1 = Replace(NoEnter(safereplace(request("main_1"))),"$$$","")
		main_2 = Replace(NoEnter(safereplace(request("main_2"))),"$$$","")
		Savehtml filepath & "Lebi_Default"& LanguageTxt(LangT) &".text",main_0 &"$$$$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Basket"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(7) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Brand"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(13) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Brand_list"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(13) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Cash"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_cart(39) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Cashsave"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_cart(109) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Cashview"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_cart(57) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Gift"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(17) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Guestbook"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(20) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Help"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(19) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Link"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(21) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Login"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(34) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_News"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(18) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Pro_Category"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(12) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Pro_Info"& LanguageTxt(LangT) &".text",main_0 &"$$$$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Pro_Info_u"& LanguageTxt(LangT) &".text",main_0 &"$$$$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Pro_List"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(30) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Pro_New"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(14) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Pro_Query"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(11) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Pro_QueryList"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(30) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Pro_Recom"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(15) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Pro_Sale"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(16) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Pro_Unite"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_pro_unite(0) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_Reg"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_user(25) &"-$$$"& main_1 &"$$$"& main_2
		Savehtml filepath & "Lebi_User"& LanguageTxt(LangT) &".text",main_0 &"$$$"& Lebi_word(8) &"-$$$"& main_1 &"$$$"& main_2
End Sub

Sub main()
s_info = safereplace(request("s_info"))
Lang = CheckNum(request("Lang"),1)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable">
<form method="post" action="?action=update_ok">
<input type="hidden" name="LangT" value="<%= Lang %>">
<tr>
 <td height="30" class="classhead" align="left">
			<input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" title=" <%=Lang_sys(1)%> " align="absmiddle">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" title=" <%=Lang_sys(2)%> " onclick="this.form.reset();return false;" align="absmiddle">
 </td>
 <td align="right" class="classhead"><%=QuickMenu("admin_skin_load.asp?action=yasuo|"& Lang_Menu(159) &"","admin_mail_tpl.asp|"& Lang_Menu(160) &"")%></td>
</tr>
<tr>
  <td height="30" colspan="2" class="classtop"><%=Lang_Menu(158)%></td>
</tr>
<tr>
<td class="classbg" colspan="2">
<ul id="tablist">
   <%For LangT = 1 To TotalLang%>
   <li class="selected"><a rel="tcontent<%= LangT %>" style="CURSOR:hand;"><%= LanguageName(LangT) %></a></li>
   <%Next%>
</ul>
<div id="tabcontentcontainer">
<%For LangT = Lang To TotalLang%>
   <div id="tcontent<%= LangT %>" class="tabcontent">
   <table cellspacing="0" cellpadding="4" width="100%" border="0" id="form_<%= LangT %>">
<%
	Set rs = conn.execute("select top 1 sys_description"& LanguageTxt(LangT) &",sys_keywords"& LanguageTxt(LangT) &",sitename"& LanguageTxt(LangT) &" from [Lebi_system]")
	Oldtext=""& rs(2) &"$$$"& rs(0) &"$$$"& rs(1) &"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
	rs.close : Set rs = Nothing
	s_text="$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
	w_text = ""& Lang_Skin(163) &"{$sitename}|"& Lang_Skin(164) &"{$description}|"& Lang_Skin(165) &"{$keywords}"
	For i=0 to 2
%>
<tr class="classrow">
 <td height="30" align="left" class="classrow"><%=i%>.&nbsp;<%= Split(w_text,"|")(i)%>&nbsp;&nbsp;[<a href="javascript:void(0)" onclick="document.getElementById('main_<%= LanguageTxt(LangT) & i%>').innerHTML = '<%=split(Oldtext,"$$$")(i)%>';"><%=Lang_Skin(166)%></a>]</td>
 <td align="right" class="classrow">
     <a href="javascript:u_Size(-5,'main_<%= LanguageTxt(LangT) & i%>')"><img src="images/bt_close.gif" border='0'></a>
     <a href="javascript:u_Size(5,'main_<%= LanguageTxt(LangT) & i%>')"><img src="images/bt_open.gif" border='0'></a>
 </td>
</tr>
 <tr class="classrow">
 <td colspan="2" align="center" class="classrow">
	<textarea cols=102 rows="3" name="main_<%= LanguageTxt(LangT) & i%>" id="main_<%= LanguageTxt(LangT) & i%>" class="html"><%=Trim(Split(s_text,"$$$")(i))%></textarea>
 </td>
</tr>
<%Next%>
	</table>
	</div>
	<script>tdshow("form_<%= LangT %>");</script>
<%Next%>
</div>
<script>showtabcontent("tablist")</script>
</td>
</tr>
<tr>
<td class="classfaq" colspan="2">
<div class="faq_main">
<p class="faq_title"><%=Lang_sys(49)%></p>
  <%=Lang_Skin(167)%>
</div>
</td>
</tr>
  <tr>
     <td align="left" height="30" colspan="2" class="classfooter">
		<input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" title=" <%=Lang_sys(1)%> ">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" title=" <%=Lang_sys(2)%> " onclick="this.form.reset();return false;">
	 </td>
  </tr>
</form>
</table>
<%
End Sub
%>