<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_skip_window.asp
'* 最后更新 2012-01-31 by 56770.kingdge
'*****************************************
Dim admin_flag
admin_flag=",8.2,"
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_skip_window.inc"
CurrentId = 5
CurrentUrl = "admin_system.asp"
LB_Head()
LB_Menu()
ManageLog Lang_Skip_window(1)
%>
<div class="tabmenu mainwidth">
      <ul>
        <li><a href="Admin_system.asp"><span><%=Lang_Menu(49)%></span></a></li>
		<li class="current"><a href="Admin_skip_window.asp"><span><%=Lang_Menu(134)%></span></a></li>
		<li><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("sys_skip_window" & LanguageTxt(LangT))=safereplace(request("is_open" & LanguageTxt(LangT))) &"$"& trim(safereplace(request("w_title" & LanguageTxt(LangT)))) &"$"& safereplace(request("w_content" & LanguageTxt(LangT)))
		Next
		rs.update
		rs.close
		CreateConfig()
		ManageLog Lang_Skip_window(1)
		Call Up_mes(Lang_sys(69),"·"& Lang_sys(68),0,m_u,0,0,2,1)
Else
		sql="select * from [Lebi_system]"
		Set rs = conn.execute(sql)
%>
		<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable">
		<form name="form2" method="post" action="?">
		<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"><input type="hidden" name="action" value="update"></td>
			<td align="right" class="classhead">
			<%=QuickMenu("Admin_system.asp|"& Lang_Menu(49) &"","Admin_reg.asp|"& Lang_Menu(135) &"")%>
			</td>
		 </tr>
		<tr>
		   <td class="classtop" colspan="2" height="30"><%=Lang_Menu(134)%></td>
		</tr>
		<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 cellspacing="0" cellpadding="4" width="100%" border="0" id="form_<%= LangT %>">
				<tr class="classrow">
				<td width="15%" class="classrow" height="30"><%=Lang_Skip_window(2)%></td>
				<td width="85%" class="classrow" height="30">
				<input type="radio" value="1" <%if Split(rs("sys_skip_window" & LanguageTxt(LangT)),"$")(0)="1" then Response.Write"checked"%> name="is_open<%= LanguageTxt(LangT) %>"> <%=Lang_Skip_window(3)%>
				<input type="radio" value="0" <%if Split(rs("sys_skip_window" & LanguageTxt(LangT)),"$")(0)="0" then Response.Write "checked"%> name="is_open<%= LanguageTxt(LangT) %>"> <%=Lang_Skip_window(4)%>
				</td>
				</tr class="classrow">
				<tr class="classrow">
				<td class="classrow" height="30"><%=Lang_Skip_window(5)%></td>
				<td class="classrow" height="30">
				<input type="text" value="<%=Split(rs("sys_skip_window" & LanguageTxt(LangT)),"$")(1)%>" name="w_title<%= LanguageTxt(LangT) %>" size="60" maxlength="255" class="form">
				</td>
				</tr>
				<tr class="classrow">
				<td class="classrow" valign="top"><%=Lang_Skip_window(6)%></td>
				<td class="classrow">
				<textarea name="w_content<%= LanguageTxt(LangT) %>" cols="47" rows="16" style="width:90%;" class="text"><%=Split(rs("sys_skip_window" & LanguageTxt(LangT)),"$")(2)%></textarea><br />
				<a href="javascript:u_Size(-5,'w_content<%= LanguageTxt(LangT) %>')"><img src="lang/<%=LangFilePath%>/images/tab/bt_close.gif" border='0'></a>
				<a href="javascript:u_Size(5,'w_content<%= LanguageTxt(LangT) %>')"><img src="lang/<%=LangFilePath%>/images/tab/bt_open.gif" border='0'></a>
				</td>
				</tr>
			</table>
			</div>
			<script>tdshow("form_<%= LangT %>");</script>
		<%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()
%>