product_list.asp

非常有商业价值的软件

<%
response.write "<table width=153 border=0 cellpadding=3 cellspacing=3 id=table1>"
sql="select top 12 * from yqj_product where InStr(1,flag,1) order by addtime desc"
set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof then 
	response.write "<tr><td>对不起，没有要找的数据</td></tr>"
	response.write "<tr>"
    else
    i=1
	while not rs.eof and i<=12
	set id=rs("id")
	set small_pic=rs("small_pic")
	set p_name=rs("p_name")
	set p_cmoney=rs("p_cmoney")
	set p_mmoney=rs("p_mmoney")
	set big_pic=rs("big_pic")
response.write "<td width=153 valign=top bgcolor=#FFFFFF class=product>"
response.write "<div align=left><a href=list.asp?id="&id&" target=_blank>"
if small_pic="" then 
response.write "<a href=list_more.asp?id="&id&" target=_blank><img src=images/emptybook.gif width=85 height=85 border=0></a>"
else
response.write "</a>"
response.write "<a target=_blank href=list_more.asp?id="&id&"><img src=upimg/"&trim(small_pic)&" width=110 border=0 height=110 alt="&p_name&"(最新推荐商品)-详细信息></a>"
response.write "<br>"
response.write "<a href=list_more.asp?id="&id&">"&trim(p_name)&"</a></font></a><br>"
response.write "市场价:￥<s><font color=#FF6600>"
response.write formatnumber(p_cmoney,2)&"元"
response.write "</font></s>"
response.write "<br>"
response.write "会员价:￥<font color=#FF0000>"
response.write formatnumber(p_mmoney,2)&"元"
response.write "</font>"
response.write "<br>"
response.write "<a href=javascript:view('view_big.asp?filename="&trim(big_pic)&"')>"
response.write "<img src=images/icon_zoom.gif width=18 height=18 border=0 title=查看大图>"
response.write "</a>"
response.write "&nbsp;"
response.write "<a href=buygoods.asp?id="&id&" target=_blank><img border=0 src=images/cart.gif width=67 height=16 title=加入购物车></a>"
response.write "<font color=#FF0000>荐</font>"
response.write "<br>"
response.write "&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
end if
response.write "</div></td>"
if i mod 4 = 0 then
response.write "</tr>"
end if
rs.movenext
i=i+1
wend
end if
response.write "</table>"
rs.close
set rs=nothing
%>