56770_rmph.asp

能进行网上购物的需求

<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("Hot Products TOP10") 
elseif request("LAN")="fan" then 
 response.write("熱賣商品-TOP10") 
 else
 response.write("热卖商品-TOP10") 
end if%></td>
</tr>
<%
if request("sort_name")="" then
        sql="select top 10 * from 56770_product where buys>0 order by buys desc,id desc"
else
        sql="select top 10 * from 56770_product where sort_name='"&request("sort_name")&"' and  buys>0 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
do while not rs.eof
%>
<tr>
<td height="20"><img src="images/arrow.gif"><a href="showproduct.asp?lan=<%=request("lan")%>&id=<%=rs("id")%>" target="_blank">
<%
if request("LAN")="english" then 
 if len(rs("product_ename"))>14 then%>
<%=left(rs("product_ename"), 14)%>...
<%else%>
<%=rs("product_ename")%>
<%end if
elseif request("LAN")="fan" then 
 if len(rs("product_fname"))>14 then%>
<%=left(rs("product_fname"), 14)%>...
<%else%>
<%=rs("product_fname")%>
<%end if
else
 if len(rs("product_name"))>14 then%>
<%=left(rs("product_name"), 14)%>...
<%else%>
<%=rs("product_name")%>
<%end if
end if%>
</a></td>
</TR>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table>