56770_cxsort.asp

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

<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  csort_name="&request("csort_id")&" order by id desc"
Set rsc=Server.CreateObject("ADODB.RecordSet")
rsc.open sqlc, conn, 1, 1
%>
<tr>
<td width="100%" align="center" height="25" CLASS="navtablehead" colspan="2" style="BORDER-bottom: #999999 1px dotted">
<%if request("LAN")="english" then 
response.write("<a href=""showcsort.asp?lan="&request("lan")&"&Sort_id="&request("sort_id")&"&CsOrt_id="&request("csort_id")&""" title=""That classification next total "&rsc.recordcount&" a merchandise"">"&csort_fname&"("&rsc.recordcount&")</a>") 
response.write("<a href=""showsort.asp?lan="&request("lan")&"&Sort_id="&request("sort_id")&"""  title=""Go Back"">")
elseif request("LAN")="fan" then 
response.write("<a href=""showcsort.asp?lan="&request("lan")&"&Sort_id="&request("sort_id")&"&CsOrt_id="&request("csort_id")&""" title=""該分類下共 "&rsc.recordcount&" 個商品"">"&csort_fname&"("&rsc.recordcount&")</a>") 
response.write("<a href=""showsort.asp?lan="&request("lan")&"&Sort_id="&request("sort_id")&"""  title=""返回上一級分類"">")
 else
response.write("<a href=""showcsort.asp?Sort_id="&request("sort_id")&"&CsOrt_id="&request("csort_id")&""" title=""该分类下共 "&rsc.recordcount&" 个商品"">"&csort_name&"("&rsc.recordcount&")</a>") 
response.write("<a href=""showsort.asp?Sort_id="&request("sort_id")&"""  title=""返回上一级分类"">")
end if%>
<strong>←</strong></a></td>
</tr>
<tr><td>
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
<TR>
<%
if request("csort_id")<>"" then
sqlt="select * from 56770_cxsort where csort_name="&request("csort_id")&""
Set rst=Server.CreateObject("ADODB.RecordSet")
rst.open sqlt, conn, 1, 1
if rst.eof or rst.bof then
 i=1
if request("LAN")="english" then 
        response.write "<tr><td height=22 align=""center"">Have no class classification</td></tr>"
 elseif request("LAN")="fan" then 
        response.write "<tr><td height=22 align=""center"">暫無下級分類</td></tr>"
 else
        response.write "<tr><td height=22 align=""center"">暂无下级分类</td></tr>"
end if
else
do while not rst.eof
sqlcs="select * from 56770_product where cxsort_name="&rst("cxsort_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=""showcxsort.asp?lan="&request("lan")&"&Sort_id="&request("sort_id")&"&CSort_id="&request("csort_id")&"&CxsOrt_id="&rst("cxsort_id")&"""  title=""That classification next total "&rscs.recordcount&" a merchandise"">"&rst("cxsort_ename")&"</a>") 
elseif request("LAN")="fan" then 
response.write("<a href=""showcxsort.asp?lan="&request("lan")&"&Sort_id="&request("sort_id")&"&CSort_id="&request("csort_id")&"&CxsOrt_id="&rst("cxsort_id")&"""  title=""該分類下共 "&rscs.recordcount&" 個商品"">"&rst("cxsort_fname")&"</a>") 
 else
response.write("<a href=""showcxsort.asp?Sort_id="&request("sort_id")&"&cSort_id="&request("csort_id")&"&CxsOrt_id="&rst("cxsort_id")&"""  title=""该分类下共 "&rscs.recordcount&" 个商品"">"&rst("cxsort_name")&"</a>") 
end if%>
</td>
<%if i mod 2 = 0 then
 response.write"<tr>"
 end if
rst.movenext
i=i+1
loop
end if
rst.close
set rst=nothing
end if
response.write"</td></tr></table></td></tr></table>"
%>