prompt.asp

全功能网上商城 免费版

<table width="564" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="23" bgcolor="#FF9900"">&nbsp;&nbsp;<b>浏览其它推荐商品:</b></td>
  </tr>
</table>
<table border=0 cellpadding=2 cellspacing=0 width=564>
<%
'*******************************推荐最新商品
sqlprod = "select  * from ProdMain where online=true order by ClickTimes desc,AddDate desc"
set rsprod=Server.CreateObject("ADODB.Recordset")
rsprod.open sqlprod,conn,1,1

if rsprod.bof and rsprod.eof then
	response.write "您好！目前商城的商品架暂时没有 <b>"&SubLar&SubMid&"</b> 商品"
else
	n=2 '设定每行显示几个
	m=4 '总共显示个数
	k=1
   Do While Not rsprod.eof
   response.write "<tr>"
   for i=1 to n step 1
   k=k+1
   %>
    <tr><td colspan='2' height='10'></td></tr>         
	<tr bgcolor="#FFFFFF"> <td rowspan="6" align="center" valign="middle" width="161"><a href="prodshow.asp?ProdId=<%=rsprod("ProdId")%>"><img src='<%=rsprod("ImgPrev")%>' width='<%=rsprod("ImgPrevWidth")%>' height='<%=rsprod("ImgPrevheight")%>' border=0>
			</a></td>		<td colspan="2" bgcolor="#FFFFFF">名&nbsp;&nbsp;称：<a href='prodshow.asp?ProdId=<%=rsprod("ProdId")%>'><%=rsprod("ProdName")%></a>&nbsp;</td></tr>
		<tr><td colspan="2" bgcolor="#FFFFFF">型&nbsp;&nbsp;号：
<%=rsprod("Model")%></td></tr>
		<tr><td colspan="2" bgcolor="#FFFFFF">简&nbsp;&nbsp;介：<%=rsprod("ProdDisc")%>
		  </td></tr>


       <tr><td class=bodycontent colspan="2" bgcolor="#FFFFFF">市场价：
		<b><s><%=rsprod("PriceOrigin")%></s> 元</b></td></tr>		

       <tr><td class=bodycontent colspan="2" bgcolor="#FFFFFF">热卖价：
	   <%if rsprod("PriceList")=0 then
			response.write "<b><font color=red>请咨询客服订购...</font></b></td></tr>"
		else
		%>
		<b><font color=red><%=rsprod("PriceList")%> 元</font></b></td></tr>		
		<tr align="right"><td height="21" colspan="2" bgcolor="#FFFFFF"><a href="#" onClick="window.open('order/add.asp?ProdId=<%=rsprod("ProdId")%>','add','scrollbars=yes,resizable=no,width=650,height=450')"><img src="images/mybuy_02.gif" width="98" height="17" border=0></a></td></tr>
<%end if

	rsprod.movenext
	if k>m then exit do
	if rsprod.eof then exit do
   	next
	loop
end if
set rsprod=nothing
'***********************************
  %></td></tr>
 </table>