classnew.asp

asp商城之王

<div align="center"><span class="table-xia"><b><font color=#ff6600><b><font color=#ff6600><%
'根据ID号显示某个商品
sqlprod="select * from sh_chanpin where  bookid='"&id&"'"
Set rsprod=Server.CreateObject("ADODB.RecordSet") 
Application.Lock
rsprod.Open sqlprod,conn,1,1 
if rsprod.bof and rsprod.eof then
		response.write "<tr><td width=100% rowspan='2' height=150 align=center>对不起，目前商城暂无此商品</td></tr>"
else
	anid=rsprod("anclassid")
	%>
  </font></b></font></b></span>
</div>
<TABLE width=760 border=0 cellpadding=0 cellspacing=0 align=center bgcolor=#ffffff class="grayline">
    <td height="30"><TR>
      <td height="315" bgcolor="FFFBF7" align="center" valign="top" width="185"> 
        <table width="90%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height=8></td>
          </tr>
        </table>
        <table width="90%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height=8></td>
          </tr>
        </table>
      </TD>
      <td height="100" bgcolor="#CCCCCC" width="1"></td>
      <td height="28"><td height="100" valign="top" align="center" bgcolor="#F7FAFD">
<table width="564" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="25" background=images/<%=skin%>/topbggreen.gif>&nbsp;&nbsp;<font color="#ffffff">同 类 推 荐</font></td>
  </tr>
</table>
<table border=0 cellpadding=2 cellspacing=0 width=564>
<%
sqlprod = "select  * from ProdMain where online=true and larcode='"&larcd&"' 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 "<br><center>对不起，目前商城暂无同类商品</center>"
else
	n=2 
	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="6" align="center" valign="top" width="161"><a href="prodshow.asp?ProdId=<%=rsprod("ProdId")%>"><img src='<%=rsprod("ImgPrev")%>' width='180' border=0>
			</a></td>		<td colspan="2" bgcolor="#FFFFFF">名&nbsp;&nbsp;称：<a href='prodshow.asp?ProdId=<%=rsprod("ProdId")%>'><%=rsprod("ProdName")%></a>&nbsp;</td></tr>
		<tr><td colspan="2" bgcolor="#FFFFFF">型&nbsp;&nbsp;号：
<%=rsprod("Model")%></td></tr>
		<tr><td colspan="2" bgcolor="#FFFFFF">简&nbsp;&nbsp;介：<%=rsprod("ProdDisc")%>
		  </td></tr>


       <tr><td class=bodycontent colspan="2" bgcolor="#FFFFFF"><%=shichang%>：
		<b><s><%=rsprod("PriceOrigin")%></s> 元</b></td></tr>		

       <tr><td class=bodycontent colspan="2" bgcolor="#FFFFFF"><%=remai%>：
<%if rsprod("quantity")=0 then 
response.write "<b><font color=red>备货中</font></b></td>"
	   elseif rsprod("PriceList")=0 then
			response.write "<b><font color=red>请咨询客服</font></b></td></tr>"
		else
		%>
		<b><font color=red><%=rsprod("PriceList")%> 元</font></b></td></tr>		
		<tr align="right"><td height="21" colspan="2" bgcolor="#FFFFFF">
	<a href="#" onClick="window.open('shopcart.asp?ProdId=<%=rsprod("ProdId")%>','add','scrollbars=yes,resizable=no,width=650,height=450')"><img src="images/small/buy.gif" border=0></a>
	<a href="#" onClick="window.open('order/fav.asp?ProdId=<%=rsprod("ProdId")%>','add','scrollbars=yes,resizable=no,width=650,height=450')"><img src="images/small/fav.gif" border=0></a>
		</td></tr>
<%end if

	rsprod.movenext
	if k>tuijian_num then exit do
	if rsprod.eof then exit do
   	next
	loop
end if
set rsprod=nothing
'***********************************
  %>

</td></tr>
<tr><td>&nbsp;</td></tr>
</table>

      </TD>
    <td height="59"></TR>
</TABLE>