📄 prompt.asp
字号:
<table width="564" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="23" background="images/tb_bg09.gif"> <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> </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"> </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 + -