<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<!--#include file="../include/Lebi_Config.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_mail_tpl.asp
'* 最后更新 2010-11-11 by 56770.kingdge
'*****************************************
Dim admin_flag
admin_flag=",9.4,"
Server.ScriptTimeout =999999
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_tpl.inc"
CurrentId = 6
CurrentUrl = "admin_mail_tpl.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()
Else
		If OutSubmit = 1 Then CheckOutSubmit()
		Select Case Request("action")
			    Case "bodyinfo_ok" :bodyinfo_ok()
				Case Else
					bodyinfo()
		End Select
End If
Response.Write("</div>")
Response.Write("</div>")
LB_Footer()

Sub bodyinfo_ok()
        If OnlyRead = 1 Then OnlyReadMessage()
		For LangT = 1 To TotalLang
				mail_title1 = StyleSafereplace(Trim(request("mail_title1" & LanguageTxt(LangT))))
				mail_body1 = StyleSafereplace(Trim(request("mail_body1" & LanguageTxt(LangT))))
				mail_title2 = StyleSafereplace(Trim(request("mail_title2" & LanguageTxt(LangT))))
				mail_body2 = StyleSafereplace(Trim(request("mail_body2" & LanguageTxt(LangT))))
				mail_title3 = StyleSafereplace(Trim(request("mail_title3" & LanguageTxt(LangT))))
				mail_body3 = StyleSafereplace(Trim(request("mail_body3" & LanguageTxt(LangT))))
				mail_title4 = StyleSafereplace(Trim(request("mail_title4" & LanguageTxt(LangT))))
				mail_body4 = StyleSafereplace(Trim(request("mail_body4" & LanguageTxt(LangT))))
				Savehtml "../include/Lebi_Data/E-mail"& LanguageTxt(LangT) &".data",mail_title1 &"@@@"& mail_body1 &"@@@"& mail_title2 &"@@@"& mail_body2 &"@@@"& mail_title3 &"@@@"& mail_body3 &"@@@"& mail_title4 &"@@@"& mail_body4 &"@@@@@@@@@@@@@@@@@@@@@@@@"
		Next
		ManageLog Lang_Tpl(1)
		Call Up_mes(Lang_sys(48),"·"& Lang_sys(47),0,"?",0,0,2,1)
End sub

Sub bodyinfo()
%>
		<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable">
		<form name="form2" method="post" action="?action=bodyinfo_ok">
		<tr>
		  <td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " title=" <%=Lang_sys(1)%> " align="absmiddle">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"></td>
		  <td height="30" align="right" class="classhead"><%=QuickMenu("admin_skin_text.asp|"& Lang_Menu(158) &"","admin_sms_tpl.asp|"& Lang_Menu(161) &"")%></td>
		 </tr>
		   <tr>
			 <td class="classtop" colspan="2" height="30"><%=Lang_Menu(160)%></td>
		  </tr>
		<tr>
		<td colspan="2" class="classbg">
		<ul id="tablist">
		   <%For LangT = 1 To TotalLang%>
		   <li<%If LangT = 1 Then response.write(" class=""selected""") End If%>><a rel="tcontent<%= LangT %>" style="CURSOR:hand;"><%= LanguageName(LangT) %></a></li>
		   <%Next%>
		</ul>
		<div id="tabcontentcontainer">
		<%For LangT = 1 To TotalLang : MailBody=LoadStyle("../include/Lebi_Data/E-mail"& LanguageTxt(LangT) &".data")%>
		   <div id="tcontent<%= LangT %>" class="tabcontent">
		   <table cellspacing="0" cellpadding="4" width="100%" border="0" id="classtable_<%= LangT %>">
				   <tr>
					 <td width="15%" height="30" class="classtop"><%=Lang_Tpl(2)%></td>
					 <td width="85%" align="right" class="classtop">
						 <a href="javascript:u_Size(-10,'mail_body1<%= LanguageTxt(LangT) %>')"><img src="images/bt_close.gif" border='0'></a>
						 <a href="javascript:u_Size(10,'mail_body1<%= LanguageTxt(LangT) %>')"><img src="images/bt_open.gif" border='0'></a>
					 </td>
				  </tr>
				 <tr class="classrow">
				 <td class="classrow"><%=Lang_Tpl(5)%></td>
				 <td class="classrow" valign="top" style="padding-top:6px;">
					  <input type="text" name="mail_title1<%= LanguageTxt(LangT) %>" value="<%=Split(MailBody,"@@@")(0)%>" size="90" class="form">
				 </td>
				</tr>
				 <tr>
				 <td class="classrow"><%=Lang_Tpl(6)%></td>
				 <td class="classrow">
					  <textarea cols=79 rows=8 name=mail_body1<%= LanguageTxt(LangT) %> id=mail_body1<%= LanguageTxt(LangT) %> class=html><%=Split(MailBody,"@@@")(1)%></textarea>
				 </td>
				</tr>
				   <tr>
					 <td height="30" class="classtop"><%=Lang_Tpl(3)%></td>
					 <td align="right" class="classtop">
						 <a href="javascript:u_Size(-10,'mail_body2<%= LanguageTxt(LangT) %>')"><img src="images/bt_close.gif" border='0'></a>
						 <a href="javascript:u_Size(10,'mail_body2<%= LanguageTxt(LangT) %>')"><img src="images/bt_open.gif" border='0'></a>
					 </td>
				  </tr>
				 <tr class="classrow">
				 <td height="30" class="classrow"><%=Lang_Tpl(5)%></td>
				 <td  valign="top" style="padding-top:6px;" class="classrow">
					  <input type="text" name="mail_title2<%= LanguageTxt(LangT) %>" value="<%=Split(MailBody,"@@@")(2)%>" size="90" class="form">
				 </td>
				</tr>
				 <tr>
				 <td class="classrow"><%=Lang_Tpl(6)%></td>
				 <td class="classrow">
					  <textarea cols=79 rows=8 name=mail_body2<%= LanguageTxt(LangT) %> id=mail_body2<%= LanguageTxt(LangT) %> class=html><%=Split(MailBody,"@@@")(3)%></textarea>
				 </td>
				</tr>
				   <tr>
					 <td height="30" class="classtop"><%=Lang_Tpl(4)%></td>
					 <td align="right" class="classtop">
						 <a href="javascript:u_Size(-10,'mail_body3<%= LanguageTxt(LangT) %>')"><img src="images/bt_close.gif" border='0'></a>
						 <a href="javascript:u_Size(10,'mail_body3<%= LanguageTxt(LangT) %>')"><img src="images/bt_open.gif" border='0'></a>
					 </td>
				  </tr>
				 <tr class="classrow">
				 <td height="30" class="classrow"><%=Lang_Tpl(5)%></td>
				 <td valign="top" style="padding-top:6px;" class="classrow">
					  <input type="text" name="mail_title3<%= LanguageTxt(LangT) %>" value="<%=Split(MailBody,"@@@")(4)%>" size="90" class="form">
				 </td>
				</tr>
				 <tr>
				 <td class="classrow"><%=Lang_Tpl(6)%></td>
				 <td class="classrow">
					  <textarea cols=79 rows=8 name=mail_body3<%= LanguageTxt(LangT) %> id=mail_body3<%= LanguageTxt(LangT) %> class=html><%=Split(MailBody,"@@@")(5)%></textarea>
				 </td>
				</tr>
				   <tr>
					 <td height="30" class="classtop"><%=Lang_Tpl(24)%></td>
					 <td align="right" class="classtop">
						 <a href="javascript:u_Size(-10,'mail_body4<%= LanguageTxt(LangT) %>')"><img src="images/bt_close.gif" border='0'></a>
						 <a href="javascript:u_Size(10,'mail_body4<%= LanguageTxt(LangT) %>')"><img src="images/bt_open.gif" border='0'></a>
					 </td>
				  </tr>
				 <tr class="classrow">
				 <td height="30" class="classrow"><%=Lang_Tpl(5)%></td>
				 <td valign="top" style="padding-top:6px;" class="classrow">
					  <input type="text" name="mail_title4<%= LanguageTxt(LangT) %>" value="<%=Split(MailBody,"@@@")(6)%>" size="90" class="form">
				 </td>
				</tr>
				 <tr>
				 <td class="classrow"><%=Lang_Tpl(6)%></td>
				 <td class="classrow">
					  <textarea cols=79 rows=8 name=mail_body4<%= LanguageTxt(LangT) %> id=mail_body4<%= LanguageTxt(LangT) %> class=html><%=Split(MailBody,"@@@")(7)%></textarea>
				 </td>
				</tr>
		    </table>
			</div>
			<script>tdshow("classtable_<%= LangT %>");</script>
		<%Next%>
		</div>
		<script>showtabcontent("tablist")</script>
		</td>
		</tr>
		<tr>
		<td class="classfooter" colspan="2" height="30">
		<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="reset();return false;">
		</td>
		</tr>
		</form>
		</table>
<%
End Sub
Function LoadStyle(strFile)
		On Error Resume Next
		Dim strTempPath,objFSO,objStm
		strTempPath = Server.MapPath(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
				LoadStyle = objStm.ReadText
			End If
		Set objStm = Nothing
		Set objFSO = Nothing
		If Err Then
			    Err.Clear
		End If
End Function
%>