b2b_indextj.asp

小型网上购物网站

<META http-equiv=Content-Type content="text/html; charset=gb2312">
<%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 15 id,name,pic,price1,price2,viewnum,stock,adddate,spic from product where recommend=2 and stock >= 0 and (recommend<>3 and recommend = 2) order by adddate desc",conn,1,1
		  if rs.eof and rs.bof then
		   rs.close
		  response.write "<table CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=""100%""><tr><td align=center>对不起，请您先到后台添加商品！</td></tr></table>"
		  else
%> 
            <style type="text/css">
<!--
.style1 {color: #999999}
.style2 {color: #000000}
.unnamed1 {text-decoration: none;
}
.STYLE4 {color: #FF0000}
-->
            </style>
            <TABLE width=610 border=0 cellPadding=7 cellSpacing=4 bgcolor="#f7f7f7">
              <TBODY>
              <TR>
			  <% 
			  j=0
			  do while not rs.eof 
			  if j>=4 then exit do
			  %>
                <TD align=center valign="top" border="0">
                  <TABLE cellSpacing=0 cellPadding=0 width="130" border=0>
                  <TBODY>
				  <tr><td height="130" width="130" align="center" background="images/itembg3.jpg"> 
				  <A  HREF=b2b_cpinfo.asp?id=<%=rs("id")%> TARGET=_blank>
				  <IMG SRC=<%if trim(rs("spic"))="" then %>
				  images/emptybook.gif
				  <% else %>
				  image\<% = trim(rs("spic")) %>
				  <% end if%> BORDER=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></A></td>
				  </tr>
                    <TR align="center"> 
                      <TD><table width="100%"  border="0" cellspacing="1" cellpadding="1">
                        <tr>
                          <td align="center"><%=trim(rs("name"))%></td>
                        </tr>
                      </table></TD>
                    </TR>
                    <% if rs("stock") > 0 then %><TR align="center" height=20> 
                      <TD><table width="100%"  border="0" cellspacing="1" cellpadding="1">
                        <tr>
                          <td align="center"><span class="unnamed1 style1 style1">市场价</span><span class="style1">:<%=trim(rs("price1"))%>元</span></td>
                        </tr>
                        <tr>
                          <td align="center"><span class="STYLE4">会员价:<%=trim(rs("price2"))%>元</span></td>
                        </tr>
                      </table></TD>
                    </TR>
					<% else %>
					<tr><td align="center"><font color="#FF6600">暂时缺货</font></td></tr>
					<% end if %>
                  </TBODY>
                </TABLE></TD>
				<% rs.movenext 
				j=j+1
				if rs.eof then 
		  exit do
	  end if 
	
	  loop %> </TR>
	  
	  <%
	    rs.absoluteposition=5
		j=4 %>
		              <TR>
			  <% 
			  do while not rs.eof 
			  if j>=8 then exit do
			  %>
                <TD align=center valign="top" border="0">
                  <TABLE cellSpacing=0 cellPadding=0 width="130" border=0>
                  <TBODY>
				  <tr><td height="130" width="130" colspan="2" align="center" background="images/itembg3.jpg"> 
				  <A  HREF=b2b_cpinfo.asp?id=<%=rs("id")%> TARGET=_blank>
				  <IMG SRC=<%if trim(rs("spic"))="" then %>
				  images/emptybook.gif
				  <% else %>
				  image\<% = trim(rs("spic")) %>
				  <% end if%> BORDER=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></A></td>
				  </tr>
                    <TR align="center"> 
                      <TD colSpan=2><table width="100%"  border="0" cellspacing="1" cellpadding="1">
                        <tr>
                          <td align="center"><%=trim(rs("name"))%></td>
                        </tr>
                      </table></TD>
                    </TR>
                    <% if rs("stock") > 0 then %><TR align="center" height=20> 
                      <TD colspan="2"><table width="100%"  border="0" cellspacing="1" cellpadding="1">
                        <tr>
                          <td align="center"><span class="unnamed1 style1">市场价</span>:<span class="style1"><%=trim(rs("price1"))%>元</span></td>
                        </tr>
                        <tr>
                          <td align="center"><span class="STYLE4">会员价:<%=trim(rs("price2"))%>元</span></td>
                        </tr>
                      </table></TD>
                    </TR>
                    <% else %>
					<tr><td colspan="2" align="center"><font color="#FF6600">暂时缺货</font></td></tr>
					<% end if %>
                  </TBODY>
                </TABLE></TD>
				<% rs.movenext 
				j=j+1
				if rs.eof then 
		  exit do
	  end if 
	
	  loop %> </TR>
		             <%
	    rs.absoluteposition=9
		j=9 %> 
					  <TR>
					  <% 
			  do while not rs.eof 
			  if j>=13 then exit do%>
		                <TD align=center valign="top" border="0"><TABLE cellSpacing=0 cellPadding=0 width="130" border=0>
                          <TBODY>
                            <tr>
                              <td height="130" width="130" colspan="2" align="center" background="images/itembg3.jpg"><A  HREF=b2b_cpinfo.asp?id=<%=rs("id")%> TARGET=_blank> <IMG SRC=<%if trim(rs("spic"))="" then %>
				  images/emptybook.gif
				  <% else %>
				  image\<% = trim(rs("spic")) %>
				  <% end if%> BORDER=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></A></td>
                            </tr>
                            <TR align="center">
                              <TD colSpan=2><table width="100%"  border="0" cellspacing="1" cellpadding="1">
                                <tr>
                                  <td align="center"><%=trim(rs("name"))%></td>
                                </tr>
                              </table></TD>
                            </TR>
                           <% if rs("stock") > 0 then %><TR align="center" height=20>
                              <TD colspan="2"><table width="100%"  border="0" cellspacing="1" cellpadding="1">
                                <tr>
                                  <td align="center"><span class="unnamed1 style1">市场价</span>:<span class="style1"><%=trim(rs("price1"))%>元</span></td>
                                </tr>
                                <tr>
                                  <td align="center"><span class="STYLE4">会员价:<%=trim(rs("price2"))%>元</span></td>
                                </tr>
                              </table></TD>
                           </TR>
                            <% else %>
                            <tr>
                              <td colspan="2" align="center"><font color="#FF6600">暂时缺货</font></td>
                            </tr>
                            <% end if %>
                          </TBODY>
                        </TABLE>
						</TD>
		                <% rs.movenext 
				j=j+1
				if rs.eof then 
		  exit do
	  end if 
	
	  loop %>
                </TR>
		<%
	  rs.close
	   %>
	   <% end if %>
            </TBODY></TABLE>