<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<!--#include file="../include/config.inc"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_sms_tpl.asp
'* 最后更新 2011-08-29 by 56770.kingdge
'*****************************************
Dim admin_flag
admin_flag=",9.5,"
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_sms_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()
		SMSTitle =Lang_Tpl(7) &","& Lang_Tpl(8) &","& Lang_Tpl(9) &","& Lang_Tpl(10) &","& Lang_Tpl(11) &","& Lang_Tpl(12) &","& Lang_Tpl(13) &","& Lang_Tpl(14) &","& Lang_Tpl(15) &","& Lang_Tpl(16) &","& Lang_Tpl(17) &","& Lang_Tpl(18) &","& Lang_Tpl(19) &","& Lang_Tpl(20) &","& Lang_Tpl(21)
		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
				SMSBody = ""
				For II = 0 To UBound(Split(SMSTitle,","))
						SMSBody = SMSBody & StyleSafereplace(Trim(request("SMSBody"& II & LanguageTxt(LangT)))) &"@@@"
				Next
				Savehtml "../include/Lebi_Data/SMS"& LanguageTxt(LangT) &".data",SMSBody &"@@@@@@@@@@@@@@@@@@@@@@@@@@@"
		Next
		ManageLog Lang_Tpl(22)
		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" 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_mail_tpl.asp|"& Lang_Menu(160) &"","admin_common.asp|"& Lang_Menu(193) &"")%></td>
		 </tr>
		   <tr>
			 <td class="classtop" colspan="2" height="30"><%=Lang_Menu(161)%></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:pointer;"><%= LanguageName(LangT) %></a></li>
		   <%Next%>
		</ul>
		<div id="tabcontentcontainer">
		<%For LangT = 1 To TotalLang : SMSBody=LoadStyle("../include/Lebi_Data/SMS"& LanguageTxt(LangT) &".data")%>
		   <div id="tcontent<%= LangT %>" class="tabcontent">
		   <table cellspacing="0" cellpadding="4" width="100%" border="0" id="classtable_<%= LangT %>">
				<%For i = 0 To UBound(Split(SMSTitle,","))%>
				   <tr>
					 <td width="15%" height="30" class="classtop"><%=Split(SMSTitle,",")(i)%></td>
					 <td class="classtop" align="right">
						 <a href="javascript:u_Size(-10,'SMSBody<%=i%><%= LanguageTxt(LangT) %>')"><img src="images/bt_close.gif" border='0'></a>
						 <a href="javascript:u_Size(10,'SMSBody<%=i%><%= LanguageTxt(LangT) %>')"><img src="images/bt_open.gif" border='0'></a>
					 </td>
				  </tr>
				 <tr>
				 <td class="classtd"><%=Lang_Tpl(23)%></td>
				 <td class="classtd">
					  <textarea cols="79" rows="3" name="SMSBody<%=i%><%= LanguageTxt(LangT) %>" id="SMSBody<%=i%><%= LanguageTxt(LangT) %>" class="html"><%=Split(SMSBody,"@@@")(i)%></textarea>
				 </td>
				</tr>
				<%Next%>
		    </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" border="0" 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
%>