56770_sort.asp

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

<TABLE class="bg_l" border="0" style="border-collapse: collapse;border:dotted 1px" bordercolor="#CCCCCC" cellpadding=0 width="100%" align="center">
<%

sqlc="select * from 56770_product where  sort_name="&request("sort_id")&" order by id desc"
Set rsc=Server.CreateObject("ADODB.RecordSet")
rsc.open sqlc, conn, 1, 1
%>
<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("<a href=""showsort.asp?lan="&request("lan")&"&Sort_id="&request("sort_id")&"""  title=""That classification next total "&rsc.recordcount&" a merchandise"">"&sort_ename&"("&rsc.recordcount&")</a>&nbsp;Category") 
elseif request("LAN")="fan" then 
response.write("<a href=""showsort.asp?lan="&request("lan")&"&Sort_id="&request("sort_id")&"""  title=""該分類下共 "&rsc.recordcount&" 個商品"">"&sort_fname&"("&rsc.recordcount&")</a>&nbsp;分類導航") 
 else
response.write("<a href=""showsort.asp?Sort_id="&request("sort_id")&"""  title=""该分类下共 "&rsc.recordcount&" 个商品"">"&sort_name&"("&rsc.recordcount&")</a>&nbsp;分类导航") 
end if%>
</td>
</tr>
<tr><td>
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0" CLASS="navtable">
<tr>
<%
sql="select * from 56770_csort where sort_name="&request("sort_id")&""
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
if not rs.eof then
 i=1
do while not rs.eof
sqlcs="select * from 56770_product where csort_name="&rs("csort_id")&" order by id desc"
Set rscs=Server.CreateObject("ADODB.RecordSet")
rscs.open sqlcs, conn, 1, 1
%>
<td height="20" width="50%" align="center">
<%if request("LAN")="english" then 
response.write("<a href=""showcsort.asp?lan="&request("lan")&"&Sort_id="&request("sort_id")&"&CsOrt_id="&rs("csort_id")&"""  title=""That classification next total "&rscs.recordcount&" a merchandise"">"&rs("csort_ename")&"</a>") 
elseif request("LAN")="fan" then 
response.write("<a href=""showcsort.asp?lan="&request("lan")&"&Sort_id="&request("sort_id")&"&CsOrt_id="&rs("csort_id")&"""  title=""該分類下共 "&rscs.recordcount&" 個商品"">"&rs("csort_fname")&"</a>") 
 else
response.write("<a href=""showcsort.asp?Sort_id="&request("sort_id")&"&CsOrt_id="&rs("csort_id")&"""  title=""该分类下共 "&rscs.recordcount&" 个商品"">"&rs("csort_name")&"</a>") 
end if%>
</td>
<%if i mod 2 = 0 then
 response.write"<tr>"
 end if
rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing
%>
</td>
</tr></table></td>
</tr></table>