📄 product_sort_list.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("username")="" then
response.write "<table><tr><td>你还未登陆，或登陆已超时，请重新登陆！</td></tr>"
response.write "<tr><td><a href='login.htm' target=_parent>返回</a></td></tr></table>"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link rel="stylesheet" href="../style.css" type="text/css">
</head>
<body>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td align="center">商品列表</td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
sql="select * from Net008_productsort where sortlevel='1'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2
if rs.recordcount<1 then
response.write "<font color=#ff0000>无类别!</font></br></br></br></br>"
response.end
end if
for i=1 to rs.recordcount
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td class="lefttitle"><img src="../images/img_03.gif" width="12" height="12">
<%
response.write rs("sortname")
response.write " <a href=product_add.asp?sortid="&rs("sortid")&" class=LeftTypeLinkU>[添加商品]</a>"
response.write " <a href=product_list.asp?sortid="&rs("sortid")&"&productflag=D class=LeftTypeLinkU>[查看/修改/删除商品]</a>"
%>
</td>
</tr>
<tr>
<td background="../images/dot.gif" height="3"></td>
</tr>
</table>
<%
sortid_temp=rs("sortid")
'response.write sortid_temp
'response.end
sql_in="select * from Net008_productsort where sortlevel='2' and left(sortid,3)='"&sortid_temp&"'"
set rs_in=server.createobject("adodb.recordset")
rs_in.open sql_in,conn,1,2
%>
<table width="100%" border="0" cellspacing="1" cellpadding="5" class="table1">
<tr class="th1">
<td width="30"><strong>序号</strong></td>
<td align="center"><b>类别名称</b></td>
<td width="100" align="center"><b>已有商品数量</b></td>
<td width="120" align="center"><b>添加商品操作</b></td>
<td width="100" align="center"><strong>查看/修改商品</strong></td>
</tr>
<%
if rs_in.recordcount<1 then
response.write "<font color=#ff0000>无子类别!</font></br>"
else
for j=1 to rs_in.recordcount
%>
<tr class="th2">
<td width="30" align="center"><%=j%></td>
<td>
<%
response.write rs_in("sortname")
%>
<td align="center">
<%
'计算该类别下的商品件数
sql_number="select * from Net008_productlist where sortid='"&rs_in("sortid")&"'"
set rs_number=server.createobject("adodb.recordset")
rs_number.open sql_number,conn,1,2
response.write "("&rs_number.recordcount&"件)"
rs_nubmer.close
set rs_number=nothing
'计算该类别下的商品件数---结束
%>
</td>
<td align="center"><a href="product_add.asp?sortid=<%=rs_in("sortid")%>" class="LeftTypeLinkU">添加商品</a></td>
<td align="center"><a href="product_list.asp?sortid=<%=rs_in("sortid")%>&productflag=X" class="LeftTypeLinkU">查看/修改/删除</a></td>
</tr>
<%
rs_in.MoveNext
If rs_in.EOF Then Exit For
next
end if
%>
</table>
<%
rs.MoveNext
If rs.EOF Then Exit For
next
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -