56770_xsph.asp

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

<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>
<tr>
<%
if request("csort_id")="" then
        sql="select top 10 * from 56770_product where sort_name="&request("sort_id")&" order by buys desc"
else
        sql="select top 10 * from 56770_product where sort_name="&request("sort_id")&" and csort_name="&request("csort_id")&" order by buys desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
if rs.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
        i=0
do while not rs.eof
if request("LAN")="english" then 
pp=rs("product_ename")
elseif request("LAN")="fan" then 
pp=rs("product_fname")
else
pp=rs("product_name")
end if
%>
<td height="20"><li><a href="showproduct.asp?lan=<%=request("lan")%>&id=<%=rs("id")%>" title="<%=pp%>">
<%if request("LAN")="english" then 
response.write left(pp,30)
else
response.write left(pp,14)
end if
%>
</a></td>
</TR>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table>