product_list_all.asp

非常有商业价值的软件

<%
response.write "<table width=153 border=0 cellpadding=3 cellspacing=3 id=table1>"
sql="select * from yqj_product where bid="&id&" order by addtime desc"
set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof then 
	response.write "<tr><td class=12px>对不起，没有要找的数据</td></tr>"
	response.write "<tr>"
    else

	set id=rs("id")
	rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
						  i=1
						  while not rs.eof and i<=rs.pagesize
	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 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 "<br>"
response.write "&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
end if
response.write "</div></td>"
if i mod 5 = 0 then
response.write "</tr>"
end if
rs.movenext
i=i+1
wend
response.write "</table>"
rs.close
set rs=nothing
%>