56770_sortremai.asp

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

<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"Best-selling"
elseif request("LAN")="fan" then 
 response.write"熱賣"
 else
 response.write"热卖" 
end if
%></td>
</tr>
<%if request("cysort_id")="" then
sqlt="select top 10 * from 56770_product where sort_name="&request("sort_id")&" and csort_name="&request("csort_id")&" and cxsort_name="&request("cxsort_id")&" order by buys desc"
else
sqlt="select top 10 * from 56770_product where sort_name="&request("sort_id")&" and csort_name="&request("csort_id")&" and cxsort_name="&request("cxsort_id")&" and cysort_name="&request("cysort_id")&" order by buys desc"
end if
Set rst=Server.CreateObject("ADODB.RecordSet")
rst.Open sqlt, conn, 1, 1
if rst.eof then
if request("LAN")="english" then 
response.write "<tr><td height=50 valign=top>...Have no data...</td></tr>"
elseif request("LAN")="fan" then 
response.write "<tr><td height=50 valign=top>...尚無數據...</td></tr>"
 else
response.write "<tr><td height=50 valign=top>...尚无数据...</td></tr>"
end if
else
do while not rst.eof
if request("LAN")="english" then 
pp=rst("product_ename")
elseif request("LAN")="fan" then 
pp=rst("product_fname")
else
pp=rst("product_name")
end if
%><tr>
<td height="20"> ·<a href="showproduct.asp?lan=<%=request("lan")%>&id=<%=rst("id")%>" title="<%=pp%>">
<%if request("LAN")="english" then 
response.write left(pp,30)
else
response.write left(pp,14)
end if
%>
</a></td>
</tr>
<%
rst.movenext
loop
end if
rst.close
set rst=nothing
%>
</table>