info_prime.asp

asp商城之王

<!--首页的精品热卖-->
<table width="590" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
     <td width="115" height="34" ><img src="images/yemian/remai.gif" width="590"></td>
  </tr>
</table>
 <table width="590" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height="205" align="center"> 
      <%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select Top 4 * from sh_chanpin where bestbook=1 order by bookid desc",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "<center><br><font color=red size=2>对不起，暂无精品！</font></font>"
		  'response.End
		  else
		  %>
      <table cellspacing=0 cellpadding=0 border=0 width="100%">
        <%
			dim i_2,i_count2
			i_2=int((rs.recordcount+1)/2)
			if i_2>7 then 
			i_2=7
			end if
			for i_count2=1 to i_2
			%>
        <tr> 
          <td valign=top width="294">          <table width="100%" height="106"  border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="37%" height="132"><TABLE width=98 height=90 border=0 align="center" cellPadding=2 cellSpacing=1 bgColor=#e1e1e1 onmouseover="this.style.backgroundColor='#FF6600'" onmouseout="this.style.backgroundColor=''">
                <TBODY>
                  <TR>
                    <TD width=92 height=90 bgColor=#ffffff align=center>
                      <%if rs("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" ><img src=images/emptybook.gif width=90 height=90 border=0></a></div>"
	else%>
                      <a href=list.asp?id=<%=rs("bookid")%> target="_blank"> <img src="<%=trim(rs("bookpic"))%>" width=90 height=90 border=0 align=absmiddle></a>
                      <%end if%>
                    </TD>
                  </TR>
                </TBODY>
              </TABLE>
             </td>
              <td width="61%"><table cellspacing=0 cellpadding=0 width="100%">
                <tr>
                  <td width="203" align="center" valign=top><a href=list.asp?id=<%=rs("bookid")%> target="_blank"> </a><a href=list.asp?id=<%=rs("bookid")%> target="_blank"><font color="#FF6600"><strong>
                    <%if len(trim(rs("bookname")))>12 then
						response.write left(trim(rs("bookname")),10)&".."
						else
						response.write trim(rs("bookname"))
						end if%>
                  </strong></font></a></td>
                </tr>
                <tr>
                  <td width="203" valign=top align="center" ><font color="#FF0000">市场价:<s><%=rs("shichangjia")%>元</s> VIP价:<%=rs("Vipjia")%>元</font></td>
                </tr>
                <tr>
                  <td width="203" valign=top> <a href=list.asp?id=<%=rs("bookid")%> target="_blank"> <font color="#000000">
                    <%if len(trim(rs("bookcontent")))>46 then
				  	response.write left(trim(rs("bookcontent")),42)&"..."
				  	else
				  	response.write trim(rs("bookcontent"))
				  	end if%>
                 </font></A> </td>
                </tr>
                <%rs.movenext%>
              </table></td>
            </tr>
          </table></td>
          <td width="1" valign=top bgcolor="#e1e1e1"></td>
          <td valign=top width="294"> 
            <%if rs.eof then%>
            <%else%>
            <table width="100%" height="106"  border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="39%" height="132"><TABLE width=98 height=90 border=0 align="center" cellPadding=2 cellSpacing=1 bgColor=#e1e1e1 onmouseover="this.style.backgroundColor='#FF6600'" onmouseout="this.style.backgroundColor=''">
                  <TBODY>
                    <TR>
                      <TD width=92 height=90 bgColor=#ffffff align=center>
                        <%if rs("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" ><img src=images/emptybook.gif width=90 height=90 border=0></a></div>"
	else%>
                        <a href=list.asp?id=<%=rs("bookid")%> target="_blank"> <img src="<%=trim(rs("bookpic"))%>" width=90 height=90 border=0 align=absmiddle></a>
                        <%end if%>
                      </TD>
                    </TR>
                  </TBODY>
                </TABLE></td>
                <td width="61%"><table cellspacing=0 cellpadding=0 width="100%">
                  <tr>
                    <td width="203" align="center" valign=top><a href=list.asp?id=<%=rs("bookid")%> target="_blank"> <font color="#FF6600"><strong>
                      <%if len(trim(rs("bookname")))>12 then
						response.write left(trim(rs("bookname")),10)&".."
						else
						response.write trim(rs("bookname"))
						end if%>
                    </strong></font></a> </td>
                  </tr>
                  <tr>
                    <td width="203" valign=top align="center" ><font color="#FF0000">市场价:<s><%=rs("shichangjia")%>元</s> VIP价:<%=rs("Vipjia")%>元</font></td>
                  </tr>
                  <tr>
                    <td width="203" valign=top> <a href=list.asp?id=<%=rs("bookid")%> target="_blank"> <font color="#000000">
                      <%if len(trim(rs("bookcontent")))>46 then
				  	response.write left(trim(rs("bookcontent")),42)&"..."
				  	else
				  	response.write trim(rs("bookcontent"))
				  	end if%>
                    </font></A> </td>
                  </tr>
                  <%rs.movenext%>
                </table></td>
              </tr>
            </table>
          <%end if%>          </td>
        </tr>
        <tr> 
          <td height="1" colspan="3" valign=top bgcolor="#e1e1e1"></td>
        </tr>
        <%next%>
        <%
				rs.close
				set rs=nothing%>
      </table>
      <%end if%>    </td>
  </tr>
</table>