class_info.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 83 行

<%
response.write "<table border=0 width=771 id=table1 cellspacing=1 class=12px>"
response.write "<tr>"
response.write "<td colspan=2 class=sort>当前类别&gt;&gt;&gt;<a href=index.asp>首页</a>&gt;&gt;&gt;<a href=class_list.asp>商品类别</a></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=2>"
response.write "<table border=0 width=100% id=table2 cellspacing=1 cellpadding=1 class=12px>"
response.write "<tr>"
response.write "<td width=188>"
response.write "<p align=center>商品大类</td>"
response.write "<td>"
response.write "<p align=center>商品小类</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=2><hr size=1></td>"
response.write "</tr>"
set rs=server.CreateObject("adodb.recordset")
sql="select id,txt_big_class from big_class"
rs.open sql,conn,1,1
if rs.recordcount=0 then
response.write "<br>目前没有商品分类"
else
while not rs.eof	
response.write "<tr>"
response.write "<td width=186 bgcolor=#FAFAFA><img src=images/ring01.gif><a target=_blank href=list.asp?id="&rs("id")&">"&rs("txt_big_class")&"</a></td>"
response.write "<td width=578 bgcolor=#FAFAFA>"
response.write "<table border=0 width=578 id=table3 cellspacing=1 cellpadding=1>"
set rs_s=server.CreateObject("adodb.recordset")
sql="select id,txt_small_class from small_class where iid="&rs("id")
rs_s.open sql,conn,1,1
if rs_s.recordcount=0 then 
response.write "<tr>"
response.write "<td width=578 colspan=5>暂无小分类</td>"
response.write "</tr>"
else
i=0
while not rs_s.eof
response.write "<tr>"
response.write "<td width=115><a target=_blank href=list_sort.asp?id="&rs("id")&"&sid="&rs_s("id")&">"&rs_s("txt_small_class")&"</a></td>"
rs_s.movenext
if rs_s.eof then 
response.write " "
else
response.write "<td width=115><a target=_blank href=list_sort.asp?id="&rs("id")&"&sid="&rs_s("id")&">"&rs_s("txt_small_class")&"</a></td>"
rs_s.movenext
if rs_s.eof then 
response.write " "
else
response.write "<td width=116><a target=_blank href=list_sort.asp?id="&rs("id")&"&sid="&rs_s("id")&">"&rs_s("txt_small_class")&"</a></td>"
rs_s.movenext
if rs_s.eof then 
response.write " "
else
response.write "<td width=116><a target=_blank href=list_sort.asp?id="&rs("id")&"&sid="&rs_s("id")&">"&rs_s("txt_small_class")&"</a></td>"
rs_s.movenext
if rs_s.eof then 
response.write " "
else
response.write "<td width=116><a target=_blank href=list_sort.asp?id="&rs("id")&"&sid="&rs_s("id")&">"&rs_s("txt_small_class")&"</a></td>"
rs_s.movenext
end if
end if
end if
end if
wend
end if
response.write "</tr>"
response.write "</table>"
rs_s.close
set rs_s=nothing
rs.movenext
wend
end if
rs.close
set rs=nothing
response.write "</td>"
response.write "</tr>"
response.write "</table>"
%>