<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_reg.asp
'* 最后更新 2012-01-31 by 56770.kingdge
'*****************************************
Dim admin_flag
admin_flag=",8.3,"
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_reg.inc"
CurrentId = 5
CurrentUrl = "admin_system.asp"
LB_Head()
LB_Menu()
%>
<div class="tabmenu mainwidth">
      <ul>
        <li><a href="Admin_system.asp"><span><%=Lang_Menu(49)%></span></a></li>
		<li><a href="Admin_skip_window.asp"><span><%=Lang_Menu(134)%></span></a></li>
		<li class="current"><a href="Admin_reg.asp"><span><%=Lang_Menu(135)%></span></a></li>
      </ul>
</div>
<%
Response.Write("<div class=""tab-mainbody"">")
Response.Write("<div class=""tab-mainbody2"">")
If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
		adminflag()
End If
If OutSubmit = 1 Then CheckOutSubmit()
if request("action")="update" Then
        If OnlyRead = 1 Then OnlyReadMessage()
		set rs=server.CreateObject("adodb.recordset")
		sql="select * from [Lebi_system]"
		rs.open sql, conn, 1, 3
		For LangT = 1 To TotalLang
				rs("info" & LanguageTxt(LangT))=safereplace(request.form("info" & LanguageTxt(LangT)))
		Next
		rs.update
		rs.close
		ManageLog Lang_Reg(1)
		NewEvent "0"
		Call Up_mes(Lang_sys(69),"·"& Lang_sys(68),0,m_u,0,0,2,1)
Else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable">
<form name="form" method="post" action="?action=update">
<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" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"></td>
	<td align="right" class="classhead">
	<%=QuickMenu("Admin_skip_window.asp|"& Lang_Menu(134) &"","Admin_flag.asp|"& Lang_Menu(129) &"")%>
	</td>
 </tr>
<tr>
   <td class="classtop" colspan="2" height="30"><%=Lang_Menu(135)%></td>
</tr>
<%set rs = conn.execute("select * from [Lebi_system]")%>
<tr>
<td class="classbg" colspan="2">
<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%>
   <div id="tcontent<%= LangT %>" class="tabcontent">
	   <table width="100%" align="center" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px">
	    <tr><td align="center">
			<textarea name="info<%= LanguageTxt(LangT) %>" rows="24" style="width:98%;" id="info<%= LanguageTxt(LangT) %>" class="text"><%=rs("info" & LanguageTxt(LangT))%></textarea>
		</td></tr>
		</table>
	</div>
<%Next%>
</div>
<script>showtabcontent("tablist")</script>
</td>
</tr>
<tr>
<td class="classfooter" colspan="2" height="30" 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="reset();return false;" align="absmiddle">
</td>
</tr>
</form>
</table>
<%
rs.close:set rs=Nothing
end If
Response.Write("</div>")
Response.Write("</div>")
LB_Footer()
%>