www.gusucode.com > 运动用品商城网站系统源代码程序 > IncAsp/all_ph.asp
<table cellSpacing="0" cellPadding="0" border="0" class="ph_la"> <tr><td class="ph_la1"><span class="ph_laf">分类推荐产品</span></td></tr> <tr><td class="ph_la2"> <% select case prot case 1 %> <table border="0" cellpadding="3" cellspacing="0" width="96%"> <%set rs=server.createobject("adodb.recordset") if nsort_id<>"" then sql="select top 3 hw_id,hw_name,hw_price1,hw_price2,hw_price3,hw_pic,hw_content from venshop_hw where hw_kucun>0 and tjsort=1 and nsort_id="&nsort_id&" order by hw_id DESC" elseif sort_id<>"" then sql="select top 3 hw_id,hw_name,hw_price1,hw_price2,hw_price3,hw_pic,hw_content from venshop_hw where hw_kucun>0 and tjsort=1 and sort_id="&sort_id&" order by hw_id DESC" else sql="select top 3 hw_id,hw_name,hw_price1,hw_price2,hw_price3,hw_pic,hw_content from venshop_hw where hw_kucun>0 and tjsort=1 order by hw_id DESC" end if rs.open sql,conn,1,1 i=-1 do while not rs.eof i=i+1%> <tr><td height="26"<%if i>0 then%> class="heng"<%end if%>><p align="center" style="line-height: 150%; margin: 3px"> <a <%if photoh=1 then%>class=photo<%end if%> target="_blank" href="views.asp?hw_id=<%=rs("hw_id")%>"><img border="0" src="<%pic=split(rs("hw_pic"),"*")%><%=pic(1)%>" <%=sort_wh%>></a><br> <a href="views.asp?hw_id=<%=rs("hw_id")%>" target=_blank><%=rs("hw_name")%></a><br> <p align="left" style="line-height: 150%; margin: 3px" class="anse"><%=rs("hw_content")%><br> <span class="price">原价<%=fuhao%><%=rs("hw_price1")%><%=danwei%><br> 普通会员<%=fuhao%><%=rs("hw_price2")%><%=danwei%></span><br><span class="price"> VIP会员<%=fuhao%><%=rs("hw_price3")%><%=danwei%></span></td></tr> <% rs.movenext loop rs.close set rs=nothing%></table> <%case 2%> <table border="0" cellpadding="0" cellspacing="0" width="90%"> <%set rs=server.createobject("adodb.recordset") if nsort_id<>"" then sql="select top 10 hw_id,hw_name,hw_price1,hw_price2,hw_price3,hw_pic,hw_content from venshop_hw where hw_kucun>0 and tjsort=1 and nsort_id="&nsort_id&" order by hw_id DESC" elseif sort_id<>"" then sql="select top 10 hw_id,hw_name,hw_price1,hw_price2,hw_price3,hw_pic,hw_content from venshop_hw where hw_kucun>0 and tjsort=1 and sort_id="&sort_id&" order by hw_id DESC" else sql="select top 10 hw_id,hw_name,hw_price1,hw_price2,hw_price3,hw_pic,hw_content from venshop_hw where hw_kucun>0 and tjsort=1 order by hw_id DESC" end if rs.open sql,conn,1,1 do while not rs.eof%> <tr><td><p style=" margin: 3px"><IMG src="Skin/<%=venshop_skin%>/dot2.gif" border=0 align="absmiddle"> <a href="views.asp?hw_id=<%=rs("hw_id")%>" target=_blank><%=rs("hw_name")%></a></td></tr> <% rs.movenext loop rs.close set rs=nothing%></table> <%case else%> <table border="0" cellpadding="3" cellspacing="0" width="90%"> <%set rs=server.createobject("adodb.recordset") if nsort_id<>"" then sql="select top 6 hw_id,hw_name,hw_price1,hw_price2,hw_price3,hw_pic,hw_content from venshop_hw where hw_kucun>0 and tjsort=1 and nsort_id="&nsort_id&" order by hw_id DESC" elseif sort_id<>"" then sql="select top 6 hw_id,hw_name,hw_price1,hw_price2,hw_price3,hw_pic,hw_content from venshop_hw where hw_kucun>0 and tjsort=1 and sort_id="&sort_id&" order by hw_id DESC" else sql="select top 6 hw_id,hw_name,hw_price1,hw_price2,hw_price3,hw_pic,hw_content from venshop_hw where hw_kucun>0 and tjsort=1 order by hw_id DESC" end if rs.open sql,conn,1,1 i=-1 do while not rs.eof i=i+1%> <tr><td<%if i>0 then%> class="heng"<%end if%> width="60"><p align="center" style="line-height: 150%; margin: 3px"> <a <%if photoh=1 then%>class=photo<%end if%> target="_blank" href="views.asp?hw_id=<%=rs("hw_id")%>"> <img border="0" src="<%pic=split(rs("hw_pic"),"*")%><%=pic(1)%>" width="50"></a></td> <td height="26"<%if i>0 then%> class="heng"<%end if%>> <p style="line-height: 150%; margin: 3px"><a href="views.asp?hw_id=<%=rs("hw_id")%>" target=_blank><%=rs("hw_name")%></a><br> <span class="price">原价<%=fuhao%><%=rs("hw_price1")%><%=danwei%><br> 普通会员<%=fuhao%><%=rs("hw_price2")%><%=danwei%></span><br><span class="price">VIP会员 <%=fuhao%><%=rs("hw_price3")%><%=danwei%></span></td></tr> <% rs.movenext loop rs.close set rs=nothing%></table> <%end select%> <div class="d5"></div></td></tr> <tr><td class="ph_la3"></td></tr></table>