56770_cx.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">
<%if request("LAN")="english" then 
response.write"Sales product TOP10"
elseif request("LAN")="fan" then 
 response.write"特價商品-TOP10"
 else
 response.write"特价商品-TOP10" 
end if
%>
</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
sql="select top 10 * from 56770_product where cx=true order by id DESC"
rs.open sql, conn, 1, 1
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
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
%>
<tr>
<td valign="top"><img src="images/arrow.gif"><a href="showproduct.ASP?lan=<%=request("lan")%>&id=<%=rs("id")%>" target="_blank">
<%if request("LAN")="english" then 
response.write left(pp,30)
else
response.write left(pp,14)
end if
%>
￥<fontcolor="red"><%=rs("cprice")%></font></a>
</td>
</TR>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table>