small_class.asp

非常有商业价值的软件

<%
id=my_request("id",1)
sql="select txt_big_class from big_class where id="&id
set rs=conn.execute (sql)
txt_big_class=rs("txt_big_class")
rs.close
set rs=nothing
response.write "<table width=631 border=0 cellspacing=0 cellpadding=0>"
response.write "<tr>"
response.write "<td height=31 valign=top bgcolor=#B4B4B4>"
response.write "<table border=0 width=100% cellspacing=0 cellpadding=0 height=22>"
response.write "<tr>"
response.write "<td bgcolor=#FFFFFF class=sort valign=middle>"
response.write "当前类别>>>"
response.write "<a href=list.asp?id="&id&">"
response.write txt_big_class
response.write "</a>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<table width=631 border=0 cellspacing=0 cellpadding=0>"
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select id,txt_small_class from small_class where iid="&id&"  order by addtime desc",conn,1,1
if rs_s.recordcount=0 then  
response.write "<span class=12px>此类别暂无产品</span>"
response.write "<tr>"
else
i=1
while not rs_s.eof
set sid=rs_s("id")
set txt_small_class=rs_s("txt_small_class")
set rss=conn.execute("select count(id) as num from yqj_product where sid="&sid)
count=rss("num")
rss.close
Set rss=nothing
response.write "<td width=157 bgcolor=#F2F2F2 class=12px>"
response.write "<img border=0 src=images/dot.gif>"
response.write "<font color=#2F2E2F>"
response.write "<a href=list_sort.asp?id="&id&"&sid="&sid&">"
response.write txt_small_class
response.write "</a>"
response.write "("&count&")"
response.write "</font>"
response.write "</td>"
if i mod 4 = 0 then
response.write "</tr>"
end if
rs_s.movenext
i=i+1
wend
end if
response.write "</table>"
rs_s.close
set rs_s=nothing
%>