b2b_lblist.asp

信运网店系统是一套功能完善、简洁美观

<!--#include file="conn.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'限制查看权限管理员
if session("rank")=3 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT LANGUAGE="JavaScript">
<!--
function ValidateTextboxAdd(box, button)
{
 var buttonCtrl = document.getElementById( button );
 if ( buttonCtrl != null )
 {
 if (box.value == "" || box.value == box.helptext)
 {
 buttonCtrl.disabled = true;
 }
 else
 {
 buttonCtrl.disabled = false;
 }
 }
}
//-->
</script> 
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE1 {	color: #000000;
	font-weight: bold;
}
.STYLE2 {color: #FF0000}
-->
</style>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing=5 bordercolor="#CCCCCC" bgcolor="#FFFFFF">
<tr>
		<form name="form" method="post" action="b2b_cs.asp"><td colspan="2" align="right" bgcolor="#FFCC00">
<%
mSql="select categoryorder from category where parentID=0 order by categoryorder desc"
set mRs=conn.execute(mSql)
if not (mRs.eof and mRs.bof) then
	SumOrderID=CInt(mRs("categoryorder"))	
else
	SumOrderID=0
end if
%>
		 
添加一级分类&nbsp;
<input type=hidden name=classid value=0>
<input type=hidden name=hide value=0>
分类名称：
<input name="category" class="input_sr" onkeyup="ValidateTextboxAdd(this, 'category1')" onpropertychange="ValidateTextboxAdd(this, 'category1')">
分类排序：<input name="categoryorder" type="text" class="input_sr" value="<%=SumOrderID%>" size="3">
<input type="submit" disabled class="input_bot" id='category1' value="添 加">
		
</td> </form>
  </tr>
</table>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing=5 bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr bgcolor="#F7F7F7"> 
    <td height="20" colspan="2" background="images/topbg.gif" bgcolor="#F7F7F7"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; <span class="STYLE2">类别管理</span></span></td>
  </tr>
<%
sort(0)
dim ii
ii=0
sub sort(selec)
	sql="select * from category where ParentID = "&selec&" order by categoryorder"
	Set Rs1=Conn.Execute(sql)
	do while not rs1.eof
if selec=0 then
%>
  <tr bgcolor="#f7f7f7" height=25>
<td background="images/topbg.gif" bgcolor="#f7f7f7">&nbsp;&nbsp;<a href=b2b_addfl.asp?categoryid=<%=int(rs1("categoryid"))%>&action=edit><b>
  <%response.write rs1("categoryorder")&".&nbsp;"&rs1("category")%></b></a></td>
<td width="300" align="right" background="images/topbg.gif">
  <strong><a href=b2b_addfl.asp?categoryid=<%=int(rs1("categoryid"))%>&action=add>添加二级分类</a> | <a href=b2b_addfl.asp?categoryid=<%=int(rs1("categoryid"))%>&action=edit>编辑分类</a> | 
  <a href="b2b_addfl.asp?categoryid=<%=int(rs1("categoryid"))%>&action=delok" onClick="return confirm('您确定进行删除操作吗？')">删除分类</a></strong></td>
</tr>
<%
else
%>
<tr bgcolor="#FFFFFF" class=a3 height=25>
<td>　<%=string(ii*2,"　")%><a href=b2b_addfl.asp?categoryid=<%=int(rs1("categoryid"))%>&action=edit><%response.write rs1("categoryorder")&".&nbsp;"&rs1("category")%></a></td>
<td width="300" align="right">
<a href=b2b_addfl.asp?categoryid=<%=int(rs1("categoryid"))%>&action=add><img src="images/pic10.gif" width="20" height="15" border="0" align="absmiddle" />添加
<% = ii+2 %>
级分类</a> <img src="images/pic11.gif" width="20" height="15" align="absmiddle" /><a href=b2b_addfl.asp?categoryid=<%=int(rs1("categoryid"))%>&action=edit>编辑分类</a> <img src="images/pic12.gif" width="20" height="15" align="absmiddle" /><a href="b2b_addfl.asp?categoryid=<%=int(rs1("categoryid"))%>&action=delok" onClick="return confirm('您确定进行删除操作吗？')">删除分类</a></td>
</tr>
<%
end if
ii=ii+1
	sort rs1("categoryid")
ii=ii-1
	rs1.movenext
	loop
rs1.close
Set Rs1 = Nothing
end sub

%></table>