⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 prompt.asp

📁 全功能网上商城 免费版
💻 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>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -