prompt.asp

广告策划中心整站程序

<table width="564" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="23" background="images/tb_bg09.gif">&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=6 '总共显示个数
	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="4" 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 width="239">项目名称：<a href='prodshow.asp?ProdId=<%=rsprod("ProdId")%>'><%=rsprod("ProdName")%></a>&nbsp;</td>
    <td >演示地址：<%=rsprod("Model")%></td>
  </tr>
		<tr>
    <td height=5 colspan="2" bgcolor="#FFFFFF">项目简介：<%=rsprod("ProdDisc")%> </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")%> RMB</font></b></td>
  </tr>		
		<tr align="right">
    <td height="21" colspan="2" bgcolor="#FFFFFF">&nbsp;</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>