56770_mlsmall.asp

来自「能进行网上购物的需求」· ASP 代码 · 共 95 行

<TABLE class="bg_l" border="0" style="border-collapse: collapse;border:dotted 1px" bordercolor="#CCCCCC" cellpadding=0 width="100%" align="center">
<tr>
<td width="100%" align="left" height="25" CLASS="navtablehead"  colspan="2" style="BORDER-bottom: #999999 1px dotted">&nbsp;
<%if request("LAN")="english" then 
response.write("Products Categories") 
elseif request("LAN")="fan" then 
 response.write("商品目錄") 
 else
 response.write("商品目录") 
end if%>
</td>
</tr>
<tr><td>
<%
sql="select * from 56770_sort  where sy='1'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
do while not rs.eof
%>
<%
sqlc="select * from 56770_product where  sort_name="&rs("sort_id")&" order by id desc"
Set rsc=Server.CreateObject("ADODB.RecordSet")
rsc.open sqlc, conn, 1, 1
%>

<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0" CLASS="navtable">
<tr valign="bottom">
<td height="20">
&nbsp; <IMG src="images/index_mulu.gif" border=0>
<%if request("LAN")="english" then %>
<a href=showsort.asp?lan=<%=request("lan")%>&sort_id=<%=rs("sort_id")%> title="That classification next total  <%= rsc.recordcount%> a merchandise"><b><%=rs("sort_ename")%></b>(<%=rsc.recordcount%>)</a>
<%elseif request("LAN")="fan" then %>
<a href=showsort.asp?lan=<%=request("lan")%>&sort_id=<%=rs("sort_id")%> title="該分類下共 <%=rsc.recordcount%> 個商品"><b><%=rs("sort_fname")%></b>(<%=rsc.recordcount%>)</a>
<%else%>
<a href=showsort.asp?lan=<%=request("lan")%>&sort_id=<%=rs("sort_id")%> title="该分类下共 <%=rsc.recordcount%> 个商品"><b><%=rs("sort_name")%></b>(<%=rsc.recordcount%>)</a>
<%end if%></div>
</td>
</tr>
</table>
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0" CLASS="navtable">
<%
sqlt="select * from 56770_csort where sort_name="&rs("sort_id")&""
Set rst=Server.CreateObject("ADODB.RecordSet")
rst.open sqlt, conn, 1, 1
do while not rst.eof
%>
<%
sqlcs="select * from 56770_product where csort_name="&rst("csort_id")&" order by id desc"
Set rscs=Server.CreateObject("ADODB.RecordSet")
rscs.open sqlcs, conn, 1, 1
%>
<TR>
<td align=right width=49% height="22">
<%if request("LAN")="english" then %>
<a href="showcsort.asp?lan=<%=request("lan")%>&sort_id=<%=rs("sort_id")%>&csort_id=<%=rst("csort_id")%>" title="That classification next total <%=rscs.recordcount%>  a merchandise"><%=rst("csort_ename")%></a>
<%elseif request("LAN")="fan" then %>
<a href="showcsort.asp?lan=<%=request("lan")%>&sort_id=<%=rs("sort_id")%>&csort_id=<%=rst("csort_id")%>" title="該分類下共 <%=rscs.recordcount%> 个個商品"><%=rst("csort_fname")%></a>
<%else%>
<a href="showcsort.asp?lan=<%=request("lan")%>&sort_id=<%=rs("sort_id")%>&csort_id=<%=rst("csort_id")%>" title="该分类下共 <%=rscs.recordcount%> 个商品"><%=rst("csort_name")%></a>
<%end if%></td>
<%
rst.movenext
if rst.eof or rst.bof then
        response.write ""
exit do
end if
%>
<%
sqlcss="select * from 56770_product where  csort_name="&rst("csort_id")&" order by id desc"
Set rscss=Server.CreateObject("ADODB.RecordSet")
rscss.open sqlcss, conn, 1, 1
%>
<td align=left width=51% height="22">
&nbsp;<%if request("LAN")="english" then %>
<a href="showcsort.asp?lan=<%=request("lan")%>&sort_id=<%=rs("sort_id")%>&csort_id=<%=rst("csort_id")%>" title="That classification next total <%=rscss.recordcount%>  a merchandise"><%=rst("csort_ename")%></a>
<%elseif request("LAN")="fan" then %>
<a href="showcsort.asp?lan=<%=request("lan")%>&sort_id=<%=rs("sort_id")%>&csort_id=<%=rst("csort_id")%>" title="該分類下共 <%=rscss.recordcount%> 个個商品"><%=rst("csort_fname")%></a>
<%else%>
<a href="showcsort.asp?lan=<%=request("lan")%>&sort_id=<%=rs("sort_id")%>&csort_id=<%=rst("csort_id")%>" title="该分类下共 <%=rscss.recordcount%> 个商品"><%=rst("csort_name")%></a>
<%end if%></td>
</tr>
<%
rst.movenext
loop
rst.close
set rst=nothing
%>

<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table></td></tr></table>