<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<!--#include file="inc/Page_cls.asp"-->
<!--#include file="../include/lebi_config.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_help.asp
'* 最后更新 2013-01-25 by 56770.kingdge
'*****************************************
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_help.inc"
CurrentId = 4
CurrentUrl = "admin_help.asp"
LB_Head()
LB_Menu()
IsCheck = Checknum(request("IsCheck"),0)
action = request("action")
%>
<div class="tabmenu mainwidth">
	  <ul>
		<li <%If action = "" Then Response.Write("class=""current""") End If%>><a href="admin_help.asp"><span><%=Lang_Menu(122)%></span></a></li>
		<li <%If InStr(action,"sort") > 0 Then Response.Write("class=""current""") End If%>><a href="?action=sortlist"><span><%=Lang_Menu(123)%></span></a></li>
		<li <%If action = "system" Then Response.Write("class=""current""") End If%>><a href="?action=system"><span><%=Lang_Menu(124)%></span></a></li>
		<li <%If action = "add" Then Response.Write("class=""current""") End If%>><a href="?action=add&IsCheck=<%=IsCheck%>"><span><%=Lang_Menu(121)%></span></a></li>
	  </ul>
</div>
<%
Response.Write("<div class=""tab-mainbody"">")
Response.Write("<div class=""tab-mainbody2"">")
If OutSubmit = 1 Then CheckOutSubmit()
Select Case Request("action")
	   Case "add" : add()
	   Case "addsort" : addsort()
	   Case "delsort" : delsort()
	   Case "modisort" : modisort()
	   Case "add_ok" : add_ok()
	   Case "sortlist" : sortlist()
	   Case "sortadd" : sortadd()
	   Case "sortmodi" : sortmodi()
	   Case "modisort" : modisort()
	   Case "modinews" : modinews()
	   Case "delnews" : delnews()
	   Case "newsmodi" : newsmodi()
	   Case "system" : system()
	   Case "system_ok" : system_ok()
	   Case "up_b" : up_b()
	   Case "down_b" : down_b()
	   Case Else
			newslist()
End Select
Response.Write("</div>")
Response.Write("</div>")
LB_Footer()

Sub add_ok()
        If OnlyRead = 1 Then OnlyReadMessage()
        admin_flag=",6.1,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
		syxs=CheckNum(request("syxs"),0)
		If Safereplace(trim(request("subject"& lang)))="" Then
			  response.write"<SCRIPT language=JavaScript>alert('"& Lang_Help(1) &"');javascript:history.go(-1)</SCRIPT>"
			  response.End
		End If
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from [Lebi_help]", conn, 1, 3
		rs.addnew
		For LangT = 1 To TotalLang
				rs("subject" & LanguageTxt(LangT))=trim(safereplace(request("subject" & LanguageTxt(LangT))))
				If request("savepic" & LanguageTxt(LangT)) = "1" Then
						FilesPath="../pic/userfiles/image/"
						rs("message" & LanguageTxt(LangT))=ReplaceSaveRemoteFile(Replace(request("message" & LanguageTxt(LangT)),"'","&#180;"),False,True,True,FilesPath,Eshop_url)
				Else
						rs("message" & LanguageTxt(LangT))=Replace(request("message" & LanguageTxt(LangT)),"'","&#180;")
				End If
		Next
		rs("type_id")=Safereplace(trim(request("type_id")))
		rs("idate")=now()
		rs("syxs")=syxs
		rs.update
		rs.close:Set rs=Nothing
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_Help(2) &" ["&Safereplace(trim(request("subject"& lang)))&"]"
		Call Up_mes(Lang_sys(45),"·"& Lang_sys(44),0,"?IsCheck="& IsCheck &"",0,0,2,1)
End Sub

Sub addsort()
        If OnlyRead = 1 Then OnlyReadMessage()
        admin_flag=",6.4,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
		newstype=Safereplace(request("newstype"))
		n_order = CheckNum(request("n_order"),0)
		sql="select * from [Lebi_helptype] where newstype='"&newstype&"'"
		set rs=server.createobject("ADODB.Recordset")
		rs.open sql, conn, 1, 3
		If Not (rs.eof or rs.bof) Then
				response.write"<SCRIPT language=JavaScript>alert('"& Lang_Help(3) &"');javascript:history.go(-1)</SCRIPT>"
				response.End
		Else
				rs.addnew
				For LangT = 1 To TotalLang
						rs("newstype" & LanguageTxt(LangT))=safereplace(request("newstype" & LanguageTxt(LangT)))
				Next
				rs.update
		End If
		rs.close:set rs=Nothing
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_Help(4) &" ["& newstype &"]"
		Call Up_mes(Lang_sys(45),"·"& Lang_sys(44),0,"?action=sortlist&IsCheck="& IsCheck &"",0,0,2,1)
End sub

Sub up_b()
        If OnlyRead = 1 Then OnlyReadMessage()
	    type_id = CheckNum(request("type_id"),0)
        conn.execute "update [Lebi_helptype] set n_order=n_order+1 where type_id = "& type_id &""
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_Help(5)
        response.redirect "?action=sortlist&IsCheck="& IsCheck
        response.end()
End Sub

Sub down_b()
        If OnlyRead = 1 Then OnlyReadMessage()
	    type_id = CheckNum(request("type_id"),0)
        conn.execute "update [Lebi_helptype] set n_order=n_order-1 where type_id = "& type_id &""
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_Help(6)
        response.redirect "?action=sortlist&IsCheck="& IsCheck
        response.end()
End Sub

Sub delsort()
        If OnlyRead = 1 Then OnlyReadMessage()
        admin_flag=",6.4,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
		type_id = CheckNum(request("type_id"),0)
		conn.execute "delete from [Lebi_helptype] where type_id = "& type_id &""
		conn.execute "delete from [Lebi_help] where type_id = "& type_id &""
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_Help(7) &" ["& type_id &"]"
		Call Up_mes(Lang_sys(43),"·"& Lang_sys(42) &"<br/>·"& Lang_Help(8),0,"?action=sortlist&IsCheck="& IsCheck &"",0,0,2,1)
End sub

Sub delnews()
        If OnlyRead = 1 Then OnlyReadMessage()
        admin_flag=",6.3,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
		del_id= Replace(safereplace(Trim(request("id"))),"，",",")
		If Right(del_id,1) = "," Then del_id = Left(del_id,Len(del_id)-1)
		if del_id="" then
			   response.write"<SCRIPT language=JavaScript>alert('"& Lang_sys(41) &"');javascript:history.go(-1)</SCRIPT>"
			   response.end
		end if
		conn.execute "delete from [Lebi_help] where id in ("&del_id&") "
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_Help(9) &" ["& del_id &"]"
		m_u="?page="& request("page") &"&type_id="& request("type_id") &"&keyword="& request("keyword") &"&DateFrom="& request("DateFrom") &"&DateTo="& request("DateTo") &"&lang="& request("lang") &"&pagenum="& request("pagenum") &"&IsCheck="& IsCheck
		Call Up_mes(Lang_sys(43),"·"& Lang_sys(42),0,m_u,0,0,2,1)
End Sub

Sub modisort()
        If OnlyRead = 1 Then OnlyReadMessage()
        admin_flag=",6.4,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
		type_id = CheckNum(request("type_id"),0)
		newstype=Safereplace(request("newstype"& lang))
		n_order = CheckNum(request("n_order"),0)
		sql="select * from [Lebi_helptype] where newstype='"& newstype &"' and type_id <> "& type_id &""
		set rs=conn.execute(sql)
		If Not (rs.eof Or rs.bof) Then
			   response.write"<SCRIPT language=JavaScript>alert('"& Lang_Help(3) &"');javascript:history.go(-1)</SCRIPT>"
			   response.End
		End If
		rs.close : set rs=nothing
		set rs=server.createobject("ADODB.Recordset")
		rs.open "select * from [Lebi_helptype] where type_id="& type_id &"", conn, 1, 3
		If Not (rs.eof or rs.bof) Then
				For LangT = 1 To TotalLang
						rs("newstype" & LanguageTxt(LangT))=trim(safereplace(request("newstype" & LanguageTxt(LangT))))
				Next
				rs("n_order")=n_order
				rs.update
		End If
		rs.close:set rs=Nothing
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_Help(10) &" ["& newstype &"]"
		Call Up_mes(Lang_sys(48),"·"& Lang_sys(47),0,"?action=sortlist&IsCheck="& IsCheck &"",0,0,2,1)
End sub

Sub modinews()
        If OnlyRead = 1 Then OnlyReadMessage()
        admin_flag=",6.2,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
		id=CheckNum(request("id"),0)
		subject=safereplace(request("subject"& lang))
		type_id=CheckNum(request("modi_type_id"),0)
		syxs=CheckNum(request("syxs"),0)
		idate=safereplace(request("idate"))
		If subject="" Then
			   response.write"<SCRIPT language=JavaScript>alert('"& Lang_Help(1) &"');javascript:history.go(-1)</SCRIPT>"
			   response.End
		End If
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from [Lebi_help] where id=" & id &"", conn, 1, 3
		If Not rs.eof Then
		For LangT = 1 To TotalLang
				rs("subject" & LanguageTxt(LangT))=trim(safereplace(request("subject" & LanguageTxt(LangT))))
				If request("savepic" & LanguageTxt(LangT)) = "1" Then
						FilesPath="../pic/userfiles/image/"
						rs("message" & LanguageTxt(LangT))=ReplaceSaveRemoteFile(Replace(request("message" & LanguageTxt(LangT)),"'","&#180;"),False,True,True,FilesPath,Eshop_url)
				Else
						rs("message" & LanguageTxt(LangT))=Replace(request("message" & LanguageTxt(LangT)),"'","&#180;")
				End If
		Next
		rs("type_id")=type_id
		rs("idate")=idate
		rs("syxs")=syxs
		rs.update
		End If
		rs.close:Set rs=Nothing
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_Help(11) &" ["& subject &"]"
		m_u="?type_id="&request("type_id")&"&keywords="&server.urlencode(request("keywords"))&"&page="&request("page") &"&IsCheck="& IsCheck
		Call Up_mes(Lang_sys(48),"·"& Lang_sys(47),0,m_u,0,0,2,1)
End Sub

Sub system_ok()
        If OnlyRead = 1 Then OnlyReadMessage()
        admin_flag=",6.5,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from [Lebi_system]", conn, 1, 3
		For LangT = 1 To TotalLang
				If request("savepic" & LanguageTxt(LangT)) = "1" Then
						FilesPath="../pic/userfiles/image/"
						rs("sys_help_content" & LanguageTxt(LangT))=ReplaceSaveRemoteFile(Replace(request("help_content" & LanguageTxt(LangT)),"'","&#180;"),False,True,True,FilesPath,Eshop_url)
				Else
						rs("sys_help_content" & LanguageTxt(LangT))=Replace(request("help_content" & LanguageTxt(LangT)),"'","&#180;")
				End If
		Next
		rs.update
		rs.close
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_Help(12)
		Call Up_mes(Lang_sys(69),"·"& Lang_sys(68),0,"?action=system&IsCheck="& IsCheck &"",0,0,2,1)
End Sub

Sub add()
        admin_flag=",6.1,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
%>
		<script language="JavaScript">
		function CheckForm()
		{
			if (CheckEmpty('subject<%= LanguageTxt(1) %>')){ShowMessage('subject<%= LanguageTxt(1) %>','<%=Lang_Help(1)%>');return false;}
		}
		</script>
		<script language="javascript" type="text/javascript" src="ckeditor/ckeditor.js"></script>
          <table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable">
           <form method="post" action="?action=add_ok" name="add" onSubmit="return CheckForm();">
           <tr>
              <td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=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 align="right" class="classhead">
			<%=QuickMenu("?action=system|"& Lang_Menu(124) &"","admin_msg.asp|"& Lang_Menu(117) &"")%>
			</td>
           </tr>
           <tr>
              <td class="classtop" height="30" colspan="2"><%=Lang_Help(13)%></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="classtable_<%= LangT %>">
			<tr class="classrow">
			  <td width="15%" height="30" class="classrow"><%=Lang_Help(14)%></td>
			  <td width="85%" class="classrow"><input type="text" id="subject<%= LanguageTxt(LangT) %>" name="subject<%= LanguageTxt(LangT) %>" value="" size="50" class="form"> <span id="mes_subject<%= LanguageTxt(LangT) %>"></span></td>
			</tr>
			<tr class="classrow">
			<td class="classrow" valign="top" style="padding-top:6px;"><%=Lang_Help(15)%><div class="autosave"><span id="timemsg<%= LanguageTxt(LangT) %>"></span><br><span id="msg2<%= LanguageTxt(LangT) %>"></span><br><span id="msg<%= LanguageTxt(LangT) %>"></span></div><div class="autosave"><input type="checkbox" name="savepic<%= LanguageTxt(LangT) %>" value="1"><%=Lang_sys(71)%></div>
			</td>
			<td class="classrow">
<script type="text/javascript">
function showFCK<%= LanguageTxt(LangT) %>(){
	document.getElementById("btn_showFCK<%= LanguageTxt(LangT) %>").style.display = 'none' ;
	document.getElementById("ReHeightFCK<%= LanguageTxt(LangT) %>").style.display = 'none' ;
	CKEDITOR.replace('message<%= LanguageTxt(LangT) %>',{height:300});
}
</script>
<textarea name="message<%= LanguageTxt(LangT) %>" id="message<%= LanguageTxt(LangT) %>" rows="22" cols="80" class="text"></textarea>
<span id="btn_showFCK<%= LanguageTxt(LangT) %>"><br /><input type="button" value="<%=Lang_sys(65)%>" onclick="showFCK<%= LanguageTxt(LangT) %>()" class="button"></span>
<span id="ReHeightFCK<%= LanguageTxt(LangT) %>"><a href="javascript:u_Size(-10,'message<%= LanguageTxt(LangT) %>')"><img src="lang/<%=LangFilePath%>/images/tab/bt_close.gif" border='0'></a>&nbsp;<a href="javascript:u_Size(10,'message<%= LanguageTxt(LangT) %>')"><img src="lang/<%=LangFilePath%>/images/tab/bt_open.gif" border='0'></a></span>
<%If Config_Lebi_Eshop(19) = "0" Then%><script>showFCK<%= LanguageTxt(LangT) %>()</script><%End If%>
<SCRIPT LANGUAGE="JavaScript" src="Admin_autosave.asp?act=edit&type=help<%= LanguageTxt(LangT) %>&Lang=<%= LanguageTxt(LangT) %>"></SCRIPT>
			</td>
			</tr>
			</table>
			</div>
			<script>tdshow("classtable_<%= LangT %>");</script>
			<%Next%>
			</div>
			<ul id="tablistmain">
			   <li class="selected"><a rel=""><%=Lang_sys(66)%></a></li>
			</ul>
			<script>showtabcontent("tablist")</script>
			<div id="tabcontentcontainer">
			<table cellspacing="0" cellpadding="4" width="100%" border="0" id="classtable">
			<tr class="classrow">
			<td width="15%" height="30" class="classrow"><%=Lang_Help(16)%></td>
			<td width="85%" class="classrow">
			<select name="type_id">
			<%
				  set rs=server.createobject("ADODB.Recordset")
				  sql = "select * from [Lebi_helptype]"
				  rs.open sql,conn,1,1
				  if rs.eof or rs.bof then
					  response.write "<option value='0'>"& Lang_Help(20) &"</option>"
				  else
			%>
			<option value="0">├ <%=Lang_Help(21)%></option>
			<%
			do while not rs.eof
			%>
			<option value="<%=trim(rs("type_id"))%>">├ <%=trim(rs("newstype"))%></option>
			<%
			rs.movenext
				   loop
			end if
				   rs.close
			%>
			</select>
			</td>
			</tr>
			<tr class="classrow">
			<td height="30" class="classrow"><%=Lang_Help(17)%></td>
			<td class="classrow">
			<input type="checkbox" name="syxs" value="1"> <%=Lang_Help(18)%> <img src="images/help.gif" width="16" height="16" align="absmiddle" onmouseover="showhintinfo(this,0,0,'','<%=Lang_Help(19)%>','50','up');" onmouseout="hidehintinfo();" />
			</td>
			</tr>
			</table>
			</div>
			<script>tdshow("classtable");</script>
			</td>
		</tr>
        <tr>
           <td class="classfooter" colspan="2" align="left" height="30">
             <input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=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"><input type="hidden" name="IsCheck" value="<%=IsCheck%>">
           </td>
        </tr>
        </form>
      </table>
<%
End Sub

Sub sortlist()
        admin_flag=",6.4,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
%>
		<script language="JavaScript" type="text/JavaScript">
		function ConfirmDel()
		{
			if(confirm("<%=Lang_Help(22)%>"))
				return true;
			else
				return false;
		}
		</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="classtable" class="classtable">
<tr>
	<td colspan="3" height="30" align="left" class="classhead"><input type="image" src="lang/<%=LangFilePath%>/images/bt_add.gif" border="0" title=" <%=Lang_sys(6)%> " onclick="location.href='?action=sortadd&IsCheck=<%=IsCheck%>';return false;" align="absmiddle"></td>
	<td colspan="2" align="right" class="classhead">
	<%=QuickMenu("admin_help.asp?IsCheck="& IsCheck &"|"& Lang_Menu(122) &"","admin_help.asp?action=system&IsCheck="& IsCheck &"|"& Lang_Menu(124) &"")%>
	</td>
 </tr>
<tr>
<td width="10%" height="30" class="classtop"><%If IsCheck = 1 Then%><%=lang_sys(50)%><%Else%><%=Lang_Help(23)%><%End If%></td>
<td width="60%" class="classtop"><%=Lang_Help(24)%></td>
<td width="10%" class="classtop"><%=Lang_Help(25)%></td>
<td width="10%" class="classtop"><%=Lang_Help(26)%></td>
<td width="10%" class="classtop"><%=Lang_Help(27)%></td>
</tr>
<%
Set rs = conn.execute("Select * From [Lebi_helptype] order by n_order desc")
Do While Not rs.eof
		Select Case show_html
			   Case "0"
					Select Case ISAPI_Rewrite
						   Case "0"
								Select Case Config_Lebi_Eshop(16)
									   Case "0" : url = "help.asp?action=help_class&news_type="& rs("type_id")
									   Case "1" : url = "help/class/?id="& rs("type_id")
									   Case "2" : url = "help/class/default.asp?id="& rs("type_id")
								End Select
						   Case "1" url = "help_class-"& rs("type_id") &".html"
					End Select
			   Case "1" : url = Folder(6) & rs("type_id") &".1.html"
		End Select
%>
		<tr class="classrow">
			<td height="30" class="classrow"><%If IsCheck = 1 Then%><input type="checkbox" name="id" onClick="window.opener.document.getElementById('f_url').value='<%=url%>';window.close();"><%Else%><b><%=rs("type_id")%></b><%End If%></td>
			<td height="30" class="classrow"><%Set Newstype = conn.execute("select newstype from [Lebi_helptype] where type_id = "& rs("type_id") &"")
			If Not Newstype.eof Then
			response.write Newstype(0)
			End If
			Newstype.close : Set Newstype = Nothing
			%></td>
			<td class="classrow"><%=rs("n_order")%></td>
			<td class="classrow"><input type="image" name="up" title="↑" onClick="location.href='?action=up_b&type_id=<%=rs("type_id")%>&IsCheck=<%=IsCheck%>';return false;" src="images/icon_up.gif" align="absmiddle">&nbsp;<input type="image" name="down" title="↓" onClick="location.href='?action=down_b&type_id=<%=rs("type_id")%>&IsCheck=<%=IsCheck%>';return false;" src="images/icon_down.gif" align="absmiddle"></td>
			<td class="classrow"><a href="?type_id=<%=rs("type_id")%>&action=sortmodi&IsCheck=<%=IsCheck%>"><img src="images/icon_edit.gif" width="16" height="16" title=" <%=Lang_sys(51)%> " border="0"></a>&nbsp;&nbsp;<a onClick="return ConfirmDel();" href="?type_id=<%=rs("type_id")%>&action=delsort&IsCheck=<%=IsCheck%>"><img src="images/icon_del.gif" width="16" height="16" title=" <%=Lang_sys(15)%> " border="0"></a></td>
		</tr>
<%
rs.movenext
loop
rs.close : set rs=nothing
%>
</table>
<script>tdshow("classtable");</script>
<%
End Sub

Sub sortadd()
       admin_flag=",6.4,"
       If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
       adminflag()
       Else
%>
		<script language="JavaScript">
		function CheckForm()
		{
			if (CheckEmpty('newstype<%= LanguageTxt(1) %>')){ShowMessage('newstype<%= LanguageTxt(1) %>','<%=Lang_Help(28)%>');return false;}
		}
		</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable">
  <form name="form1" method="post" action="?action=addsort" onSubmit="return CheckForm();">
	<tr>
	  <td class="classhead" height="30" align="left">
		<input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=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 align="right" class="classhead">
	<%=QuickMenu("","")%>
	</td>
   </tr>
	<tr>
	  <td class="classtop" colspan="2" height="30" align="left"><%=Lang_Help(29)%></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="classtable_<%= LangT %>">
		 <tr class="classrow">
			<td width="15%" height="30" class="classrow"><%=Lang_Help(30)%></td>
			<td class="classrow"><input type="text" id="newstype<%= LanguageTxt(LangT) %>" name="newstype<%= LanguageTxt(LangT) %>" size="20" class="form" value=""> <span id="mes_newstype<%= LanguageTxt(LangT) %>"></span></td>
		 </tr>
		</table>
		</div>
		<script>tdshow("classtable_<%= LangT %>");</script>
	<%Next%>
	</div>
	<script>showtabcontent("tablist")</script>
	<ul id="tablistmain">
	   <li class="selected"><a rel=""><%=Lang_sys(66)%></a></li>
	</ul>
	<div id="tabcontentcontainer">
	<table cellspacing="0" cellpadding="4" width="100%" border="0" id="classtable">
		 <tr class="classrow">
			<td width="15%" height="30" class="classrow"><%=Lang_Help(31)%></td>
			<td class="classrow"><input type="text" name="n_order" size="5" value="1" class="form"></td>
		 </tr>
	</table>
	</div>
	<script>tdshow("classtable");</script>
	</td>
	</tr>
	<tr>
		<td colspan="2" align="left" height="30" class="classfooter">
		<input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=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"><input type="hidden" name="IsCheck" value="<%=IsCheck%>">
		</td>
	</tr>
   </form>
</table>
<%
        End If
End Sub

Sub sortmodi()
        admin_flag=",6.4,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
		type_id=CheckNum(request("type_id"),0)
		set rs= conn.execute("Select * From [Lebi_helptype] where type_id="&type_id&"")
		n_order = rs("n_order")
%>
		<script language="JavaScript">
		function CheckForm()
		{
			if (CheckEmpty('newstype<%= LanguageTxt(1) %>')){ShowMessage('newstype<%= LanguageTxt(1) %>','<%=Lang_Help(28)%>');return false;}
		}
		</script>
        <table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable">
          <form name="form1" method="post" action="?action=modisort" onSubmit="return CheckForm();">
            <tr>
              <td class="classhead" height="30" align="left">
                <input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=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 align="right" class="classhead">
			<%=QuickMenu("","")%>
			</td>
           </tr>
            <tr>
              <td class="classtop" colspan="2" height="30" align="left"><%=Lang_Help(32)%></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="classtable_<%= LangT %>">
				 <tr class="classrow">
					<td width="15%" height="30" class="classrow"><%=Lang_Help(30)%></td>
					<td class="classrow"><input type="text" id="newstype<%= LanguageTxt(LangT) %>" name="newstype<%= LanguageTxt(LangT) %>" size="20" class="form" value="<%=rs("newstype" & LanguageTxt(LangT))%>"> <span id="mes_newstype<%= LanguageTxt(LangT) %>"></span></td>
				 </tr>
				</table>
				</div>
				<script>tdshow("classtable_<%= LangT %>");</script>
			<%Next%>
			</div>
			<ul id="tablistmain">
			   <li class="selected"><a rel=""><%=Lang_sys(66)%></a></li>
			</ul>
			<script>showtabcontent("tablist")</script>
			<div id="tabcontentcontainer">
			<table cellspacing="0" cellpadding="4" width="100%" border="0" id="classtable">
				 <tr class="classrow">
					<td width="15%" height="30" class="classrow"><%=Lang_Help(31)%></td>
					<td class="classrow"><input type="text" name="n_order" size="5" value="<%=n_order%>" class="form"></td>
				 </tr>
			</table>
			</div>
			<script>tdshow("classtable");</script>
			</td>
			</tr>
			<tr>
				<td colspan="2" align="left" height="30" class="classfooter">
				<input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=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">
				<input type="hidden" name="type_id" value="<%= type_id %>"><input type="hidden" name="IsCheck" value="<%=IsCheck%>">
				</td>
			</tr>
           </form>
        </table>
<%
		rs.close : set rs=nothing
End Sub

Sub newslist()
        admin_flag=",6.2,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
		lang = safereplace(request("lang"))
		If lang = "" Then lang = LanguageTxt(0)
		type_id = CheckNum(request("type_id"),0)
		page = CheckNum(request("page"),1)
		pagenum = CheckNum(request("pagenum"),15)
		datefrom = safeReplace(request("datefrom"))
		dateto = safeReplace(request("dateto"))
		keyword = safeReplace(request("keyword"))
		Dim ors
		Set ors=new Cls_vbsPage
		Set ors.Conn=conn
		With ors
		.PageSize=pagenum
		.PageName="Page"
		If IsSqlDataBase = 0 Then
				.DbType="AC"
		Else
				.DbType="MSSQL"
		End If
		.RecType=-1
		.Pkey="h.id"
		.Field="h.id,h.subject"& lang &",h.idate,h.syxs,h.type_id"
		.Table="[Lebi_Help] as h"
		sql = "1=1"
		If keyword <> "" Then sql = sql &" and h.subject"& lang &" like '%"& keyword &"%'"
		If type_id <> "0" And type_id <> "56770" Then sql = sql&" and h.type_id = "& type_id &""
		If type_id = "56770" Then sql = sql&" and h.syxs=1"
		If IsSqlDataBase = 1 And datefrom<>"" And dateto<>"" Then sql=sql + " and DateDiff(d,h.idate,'"& datefrom &"')<=0 and DateDiff(d,h.idate,'"& dateto &"')>=0"
		If IsSqlDataBase = 0 And datefrom<>"" And dateto<>"" Then sql=sql + " and DateDiff('d',h.idate,'"& datefrom &"')<=0 and DateDiff('d',h.idate,'"& dateto &"')>=0"
		.Condition=sql
		.OrderBy="idate desc"
		End With
		DataCount=ors.RecCount()
		DataList=ors.ResultSet()
%>
<script language="javascript" src="inc/js/MyCalendar.js"></script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable-top">
<tbody>
<form name="form" action="?" method="get">
<td height="30" align="left" class="classhead">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<select name="lang">
<option value="0" selected>┌ <%=Lang_sys(67)%></option>
<%For LangT = 1 To TotalLang%>
<option value="<%= LanguageTxt(LangT) %>"<%=judge2(LanguageTxt(LangT),Lang)%>>├ <%= LanguageName(LangT) %></option>
<%Next%>
</select>
<select name="type_id">
<option value="">┌ <%=Lang_Help(33)%></option>
<option value="56770"<%=judge2(56770,type_id)%>>├ <%=Lang_Help(18)%></option>
<%
	 set rs=conn.execute("Select newstype,type_id From [Lebi_helptype] order by n_order desc")
	 do while not rs.eof
	 response.write"<option value="""&rs(1)&""""& judge2(rs(1),type_id) &">├ "&rs(0)&"</option>"
	 rs.movenext
	 loop
	 rs.close : set rs=nothing
%>
</select></td>
<td style="padding-left:5px;"><input type="text" name="dateFrom" value="<%=dateFrom%>" size="12" class="form_calendar" onclick="setday(this)" /> - <input type="text" name="dateTo" value="<%=dateTo%>" size="12" class="form_calendar" onclick="setday(this)" /></td>
<td style="padding-left:5px;"><input name="keyword" type="text" value="<%= keyword %>" class="form_query" size="15"><input name="Submit" type="submit" value="" title="<%=Lang_sys(25)%>" align="absmiddle" class="btn_query"><input type="hidden" name="IsCheck" value="<%=IsCheck%>"><input type="hidden" name="pagenum" value="<%= pagenum %>">
</td>
</tr>
</table>
</td>
</form>
<td align="right" class="classhead">
<%=QuickMenu("admin_news.asp|"& Lang_Menu(120) &"","admin_help.asp?action=sortlist&IsCheck="& IsCheck &"|"& Lang_Menu(123) &"")%>
</td>
</tr>
</form>
</tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="list" class="classtable2">
<tbody>
<form name="form" action="?action=delnews" method="post">
<tr>
<td height="30" align="left" colspan="2" class="classhead">
<input type="image" name="Submit" title=" <%=Lang_sys(15)%> " onClick="return confirm('<%=Lang_sys(64)%>')" src="lang/<%=LangFilePath%>/images/bt_delete.gif" align="absmiddle">
<input type="hidden" name="page" value="<%=page%>">
<input type="hidden" name="type_id" value="<%=type_id%>">
<input type="hidden" name="keyword" value="<%=keyword%>">
<input type="hidden" name="dateFrom" value="<%=dateFrom%>">
<input type="hidden" name="dateTo" value="<%=dateTo%>">
<input type="hidden" name="Lang" value="<%=Lang%>">
<input type="hidden" name="IsCheck" value="<%=IsCheck%>">
<input type="hidden" name="pagenum" value="<%= pagenum %>">
</td>
<td height="30" class="classhead" align="right" colspan="3"><%=ors.ShowPageHead(page)%></td>
</tr>
<tr>
<td height="30" width="5%" class="classtop" title="<%=Lang_sys(4)%>" style="cursor:pointer;" onclick="location.href='javascript:selectall();';return false;"><%=Lang_sys(50)%></td>
<td width="15%" class="classtop"><%=Lang_Help(33)%></td>
<td width="55%" class="classtop"><%=Lang_Help(34)%></td>
<td width="20%" class="classtop"><%=Lang_Help(35)%></td>
<td width="5%" class="classtop"><%=Lang_Help(27)%></td>
</tr>
<%
If DataCount >0 Then
		For i = 0 To Ubound(DataList,2)
%>
		<tr class="classrow">
		<td height="30" class="classrow"><input name="id" type="checkbox" value="<%=DataList(0,i)%>"></td>
		<td class="classrow"><%
		If DataList(3,i)=1 Then
				response.write "<font color=red>"& Lang_Help(18) &"</font>"
		Else
				set rs=conn.execute("Select newstype"& lang &" From [Lebi_helptype] where type_id = "& DataList(4,i) &"")
				If not rs.eof Then
				response.write rs(0)
				End If
				rs.close : set rs=nothing
		End If%>&nbsp;</td>
		<td class="classrow"><%=DataList(1,i)%>&nbsp;</td>
		<td class="classrow"><%=DataList(2,i)%></td>
		<td class="classrow"><a href="?action=newsmodi&id=<%=DataList(0,i)%>&keywords=<%=server.urlencode(keywords)%>&type_id=<%=type_id%>&page=<%=page%>&IsCheck=<%=IsCheck%>"><img src="images/icon_edit.gif" title=" <%=Lang_sys(51)%> " border="0"></a></td>
		</tr>
<%
        Next
End If
%>
</form>
<tr>
	<td height="30" class="classfooter" colspan="2"><%=GetPageNum(15,pagenum)%></td>
	<td height="30" class="classfooter" align="right" colspan="3"><%=ors.ShowPageFoot(page)%></td>
</tr>
<tr>
  <td class="classfaq" colspan="5">
  <div class="faq_main">
  <p class="faq_title"><%=Lang_sys(49)%></p>
  <%=Lang_Help(36)%>
  </div>
  </td>
</tr>
</tbody>
</table>
<script>tdshow("list");</script>
<%
End Sub

Sub newsmodi()
        admin_flag=",6.2,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
		id=CheckNum(request("id"),0)
		set rso=conn.execute("select * from [Lebi_help] where id=" & id)
%>
		<script language="JavaScript">
		function CheckForm()
		{
			if (CheckEmpty('subject<%= LanguageTxt(1) %>')){ShowMessage('subject<%= LanguageTxt(1) %>','<%=Lang_Help(1)%>');return false;}
		}
		</script>
		<script language="javascript" type="text/javascript" src="inc/js/MyCalendar.js"></script>
		<script language="javascript" type="text/javascript" src="ckeditor/ckeditor.js"></script>
          <table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable">
           <form method="post" action="?action=modinews" name="modi" onSubmit="return CheckForm();">
           <tr>
              <td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=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 align="right" class="classhead">
			<%=QuickMenu("","")%>
			</td>
           </tr>
           <tr>
              <td class="classtop" height="30" colspan="2"><%=Lang_Help(37)%></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="classtable_<%= LangT %>">
				<tr class="classrow">
				  <td width="15%" height="30" class="classrow"><%=Lang_Help(14)%>
				  </td>
				  <td width="85%" class="classrow">
				   <input type="text" id="subject<%= LanguageTxt(LangT) %>" name="subject<%= LanguageTxt(LangT) %>" value="<%=rso("subject" & LanguageTxt(LangT))%>" size="50" class="form"> <span id="mes_subject<%= LanguageTxt(LangT) %>"></span>
				 </td>
			   </tr>
				<tr class="classrow">
				  <td class="classrow" valign="top" style="padding-top:6px;"><%=Lang_Help(15)%><div class="autosave"><span id="timemsg<%= LanguageTxt(LangT) %>"></span><br><span id="msg2<%= LanguageTxt(LangT) %>"></span><br><span id="msg<%= LanguageTxt(LangT) %>"></span></div><div class="autosave"><input type="checkbox" name="savepic<%= LanguageTxt(LangT) %>" value="1"><%=Lang_sys(71)%></div>
				  </td>
				  <td class="classrow">
					<script type="text/javascript">
					function showFCK<%= LanguageTxt(LangT) %>(){
						document.getElementById("btn_showFCK<%= LanguageTxt(LangT) %>").style.display = 'none' ;
						document.getElementById("ReHeightFCK<%= LanguageTxt(LangT) %>").style.display = 'none' ;
						CKEDITOR.replace('message<%= LanguageTxt(LangT) %>',{height:300});
					}
					</script>
					<textarea name="message<%= LanguageTxt(LangT) %>" id="message<%= LanguageTxt(LangT) %>" rows="22" cols="80" class="text"><%= rso("message" & LanguageTxt(LangT)) %></textarea>
					<span id="btn_showFCK<%= LanguageTxt(LangT) %>"><br /><input type="button" value="<%=Lang_sys(65)%>" onclick="showFCK<%= LanguageTxt(LangT) %>()" class="button"></span>
					<span id="ReHeightFCK<%= LanguageTxt(LangT) %>"><a href="javascript:u_Size(-10,'message<%= LanguageTxt(LangT) %>')"><img src="lang/<%=LangFilePath%>/images/tab/bt_close.gif" border='0'></a>&nbsp;<a href="javascript:u_Size(10,'message<%= LanguageTxt(LangT) %>')"><img src="lang/<%=LangFilePath%>/images/tab/bt_open.gif" border='0'></a></span>
					<%If Config_Lebi_Eshop(19) = "0" Then%><script>showFCK<%= LanguageTxt(LangT) %>()</script><%End If%>
					<SCRIPT LANGUAGE="JavaScript" src="Admin_autosave.asp?act=edit&type=help<%= LanguageTxt(LangT) %>&Lang=<%= LanguageTxt(LangT) %>"></SCRIPT>
				  </td>
			   </tr>
				</table>
				</div>
				<script>tdshow("classtable_<%= LangT %>");</script>
			<%Next%>
			</div>
			<script>showtabcontent("tablist")</script>
			<ul id="tablistmain">
			   <li class="selected"><a rel=""><%=Lang_sys(66)%></a></li>
			</ul>
			<div id="tabcontentcontainer">
			<table cellspacing="0" cellpadding="4" width="100%" border="0" id="classtable">
				<tr class="classrow">
				  <td width="15%" height="30" class="classrow"><%=Lang_Help(16)%></td>
				  <td width="85%" class="classrow">
					<%
								   response.write"<select name=modi_type_id>"
								   Set rss=conn.execute("select * from [Lebi_helptype] where newstype='"&rso("newstype")&"'")
								   If rss.eof Then
								   response.Write("<option selected value='0'>┌ "& Lang_Help(21) &"</option>")
								   Else
									response.Write("<option value='0'>┌ "& Lang_Help(21) &"</option>")
								   End If
								   rss.close:Set rss=Nothing
								   set rs=server.createobject("ADODB.Recordset")
								   sql = "select * from [Lebi_helptype]"
								   rs.open sql, conn, 1, 1
										  if rs.eof then
												  response.write "<option value='0'>"& Lang_Help(20) &"</option>"
										  else
								   do while not rs.eof

					  %>
					  <option <%if rs("type_id")=rso("type_id") then response.Write("selected") end if%> value=<%=trim(rs("type_id"))%>>├ <%=trim(rs("newstype"))%></option>
					   <% rs.movenext
									  loop
										  end if
								   rs.close
						   response.write"</select>"
					 %>
				  </td>
			   </tr>
				<tr class="classrow">
				  <td height="30" class="classrow"><%=Lang_Help(17)%></td>
				  <td class="classrow">
					<input type="checkbox" name="syxs" value="1" <%If rso("syxs")=1 Then response.write"checked" End if%>> <%=Lang_Help(18)%>
				  </td>
			   </tr>
				<tr class="classrow">
				  <td height="30" class="classrow"><%=Lang_Help(38)%></td>
				  <td class="classrow">
				  <input type="text" name="idate" value="<%=rso("idate")%>" size="20" class="calendar" onclick="setday(this)" />
				  </td>
			   </tr>
			</table>
			</div>
			<script>tdshow("classtable");</script>
			</td>
			</tr>
               <tr>
                  <td class="classfooter" height="30" colspan="2" align="left">
                     <input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=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">
                     <input type="hidden" name="id" value="<%=rso("id")%>">
					 <input type="hidden" name="keywords" value="<%= request("keywords") %>">
					 <input type="hidden" name="type_id" value="<%= request("type_id") %>">
					 <input type="hidden" name="page" value="<%= request("page") %>">
					 <input type="hidden" name="IsCheck" value="<%=IsCheck%>">
                  </td>
               </tr>
            </form>
         </table>
<%
        rso.close : set rso=nothing
End Sub

Sub system()
        admin_flag=",6.5,"
	    If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
	           adminflag()
	    End If
%>
		<script language="javascript" type="text/javascript" src="ckeditor/ckeditor.js"></script>
          <table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable">
           <form method="post" action="?action=system_ok" name="modi">
           <tr>
              <td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=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 align="right" class="classhead">
			<%=QuickMenu("admin_help.asp?action=sortlist|"& Lang_Menu(123) &"","?action=add&IsCheck="& IsCheck &"|"& Lang_Menu(121) &"")%>
			</td>
           </tr>
			<tr>
			   <td class="classtop" height="30" colspan="2"><%=Lang_Menu(124)%></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">
					<%
					set rs = conn.execute("select * from [Lebi_system]")
					%>
					<tr class="classrow">
					<td width="15%" class="classrow" valign="top" style="padding-top:6px;"><div class="autosave"><span id="timemsg<%= LanguageTxt(LangT) %>"></span><br><span id="msg2<%= LanguageTxt(LangT) %>"></span><br><span id="msg<%= LanguageTxt(LangT) %>"></span></div><div class="autosave"><input type="checkbox" name="savepic<%= LanguageTxt(LangT) %>" value="1"><%=Lang_sys(71)%></div>
					</td>
					<td class="classrow">
					<script type="text/javascript">
					function showFCK<%= LanguageTxt(LangT) %>(){
						document.getElementById("btn_showFCK<%= LanguageTxt(LangT) %>").style.display = 'none' ;
						document.getElementById("ReHeightFCK<%= LanguageTxt(LangT) %>").style.display = 'none' ;
						CKEDITOR.replace('help_content<%= LanguageTxt(LangT) %>',{height:300});
					}
					</script>
					<textarea name="help_content<%= LanguageTxt(LangT) %>" id="help_content<%= LanguageTxt(LangT) %>" rows="22" cols="80" class="text"><%= rs("sys_help_content" & LanguageTxt(LangT)) %></textarea>
					<span id="btn_showFCK<%= LanguageTxt(LangT) %>"><br /><input type="button" value="<%=Lang_sys(65)%>" onclick="showFCK<%= LanguageTxt(LangT) %>()" class="button"></span>
					<span id="ReHeightFCK<%= LanguageTxt(LangT) %>"><a href="javascript:u_Size(-10,'help_content<%= LanguageTxt(LangT) %>')"><img src="lang/<%=LangFilePath%>/images/tab/bt_close.gif" border='0'></a>&nbsp;<a href="javascript:u_Size(10,'help_content<%= LanguageTxt(LangT) %>')"><img src="lang/<%=LangFilePath%>/images/tab/bt_open.gif" border='0'></a></span>
					<%If Config_Lebi_Eshop(19) = "0" Then%><script>showFCK<%= LanguageTxt(LangT) %>()</script><%End If%>
					<SCRIPT LANGUAGE="JavaScript" src="Admin_autosave.asp?act=edit&type=help_default<%= LanguageTxt(LangT) %>&Lang=<%= LanguageTxt(LangT) %>"></SCRIPT>
					</td>
					</tr>
				</table>
				</div>
			<%Next%>
			</div>
			<script>showtabcontent("tablist")</script>
			</td>
			</tr>
			<tr>
			<td class="classfooter" height="30" colspan="2" align="left">
			<input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=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"><input type="hidden" name="IsCheck" value="<%=IsCheck%>">
			</td>
			</tr>
				<tr>
				 <td colspan="2" class="classfaq">
				   <div class="faq_main">
				   <p class="faq_title"><%=Lang_sys(49)%></p>
				   <%=Lang_Help(39)%>
				   </div>
				   </td>
			  </tr>
			</form>
			</table>
<%
		rs.close:set rs=Nothing
End Sub
%>