<!--#include file="conn.asp" -->
<!--#include file="inc/cookies_check.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_product.asp
'* 最后更新 2010-09-19 by 56770.kingdge
'*****************************************
Dim admin_flag
admin_flag=",2.1,"
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_product.inc"
CurrentId = 1
CurrentUrl = "admin_product_list.asp"
LB_Head()
LB_Menu()%>
<div class="tabmenu mainwidth">
      <ul>
        <li><a href="admin_product_list.asp"><span><%=Lang_Menu(53)%></span></a></li>
        <li><a href="Admin_product_list.asp?zhuangtai=0"><span><%=Lang_Menu(71)%></span></a></li>
		<li><a href="Admin_product_list_simple.asp"><span><%=Lang_Menu(68)%></span></a></li>
        <li class="current"><a href="Admin_product.asp"><span><%=Lang_Menu(52)%></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()
Else
		If OutSubmit = 1 Then CheckOutSubmit()
		dim rscsort
		sql = "Select c_id,c_name From [Lebi_category] where c_father = 1 order by c_order desc"
		set Rs = conn.execute(sql)
		%>
		<table width="100%" border="0" cellspacing="0" cellpadding="0" id="class" class="classtable">
		<tr>
		  <td class="classhead" colspan="5" height="30" align="right">
		  <%=QuickMenu("Admin_product_list.asp?zhuangtai=0|"& Lang_Menu(71) &"","Admin_product_csv.asp|"& Lang_Menu(69) &"")%>
		</td>
		</tr>
		<%
		If rs.eof Then
		%>
		<tr class="classtd">
		<td height="100" width="100%" colspan="6" class="classtd" align="center"><%=Lang_Product(1)%></td>
		</tr>
		<tr>
		<%
		Else
		do while not rs.eof%>
		<tr>
		<td height="30" width="20%" class="classtop"><%=rs("c_name")%> </td>
		<td colspan="4" class="classtop" align="right">
		<input type="image" border="0" title=" <%=Lang_Product(2)%> " onclick="location.href='Admin_product_add.asp?sort_id=<%=rs("c_id")%>';return false;" src="lang/<%=LangFilePath%>/images/bt_add1.gif" align="absmiddle">
		</td>
		</tr>
		<tr>
		<%
		sql_s = "Select c_id,c_name From [Lebi_category] Where c_parentid=" & rs("c_id") & " order by c_order desc"
		set rscsort = conn.execute(sql_s)
		i=1
				do while not rscsort.eof
		%>
		<td height="25" width="20%" class="classtd"><a onClick="location.href='Admin_product_add.asp?sort_id=<%=rs("c_id")%>,<%=rscsort("c_id")%>'" style="cursor:pointer;" title="<%=Lang_Product(2)%>"><%=rscsort("c_name")%></a></td>
		<%if i mod 5 = 0 then
		response.write"</tr><tr>"
		end if
		rscsort.movenext
		i=i+1
		loop
		rscsort.close:set rscsort=nothing

		rs.movenext
		loop
		End If
		rs.close:set rs=Nothing
%>
		</table>
		<script>tdshow("class");</script>
<%
end If
Response.Write("</div>")
Response.Write("</div>")
LB_Footer()
%>