newbooks.asp

asp的网上卖东西的..看看还可以的吧

<MARQUEE onmouseover=this.stop() onmouseout=this.start() 
            scrollAmount=3 behavior=alternate>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td align="center"><%set rs=server.CreateObject("adodb.recordset")
		rs.open "select Top 8 * from BJX_goods where newsbook=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>
              <tr>
                <td width="120" valign=top>
                  <table cellspacing=0 cellpadding=0 width="100%" >
                    <tr valign="middle">
                      <td><div align="center"> </div></td>
                    </tr>
                    <tr>
                      <td height="113" align="center">
                        <TABLE onmouseover="this.style.backgroundColor='#FF4FAE'" onmouseout="this.style.backgroundColor=''" width=90 height=90 cellSpacing=1 cellPadding=2 bgColor=#e1e1e1 border=0>
                          <TBODY>
                            <TR>
                              <TD width=90 height=90 bgColor=#ffffff align=center>
                                <%if rs("bookpic")="" then 
	response.write "<div align=center><a href=goodsview.asp?bjxGid="&rs("bookid")&" ><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
	else%>
                                <a href=goodsview.asp?bjxGid=<%=rs("bookid")%> ><img src="<%=trim(rs("bookpic"))%>" width=75 height=75 border=0 align=absmiddle></a>
                                <%end if%>
                              </TD>
                            </TR>
                          </TBODY>
                      </TABLE></td>
                    </tr>
                    <tr>
                      <td align="center"><%response.write "<a class=a4 href=goodsview.asp?bjxGid="&rs("bookid")&" ><font color=#FF6600>"
			if len(trim(rs("bookname")))>10 then
			response.write left(trim(rs("bookname")),9)&".."
			else
			response.write trim(rs("bookname"))
			end if
			response.write "</font></a>"
			%>
                          <br>
                  市场价：<s><%=formatnumber(rs("shichangjia"),2)&"元"%></s><br>
                  会员价：<font color=#FF3300><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font><br>
                  <%rs.movenext%></td>
                    </tr>
                </table></td>
                <td width="120" valign="top">
                  <%if rs.eof then%>
                  <%else%>
                  <table cellspacing=0 cellpadding=0 width="100%" >
                    <tr valign="middle">
                      <td><div align="center"> </div></td>
                    </tr>
              <td height="113" align="center">
                  <TABLE onmouseover="this.style.backgroundColor='#FF4FAE'" onmouseout="this.style.backgroundColor=''" width=90 height=90 cellSpacing=1 cellPadding=2 bgColor=#e1e1e1 border=0>
                    <TBODY>
                      <TR>
                        <TD width=90 height=90 bgColor=#ffffff align=center>
                          <%if rs("bookpic")="" then 
	response.write "<div align=center><a href=goodsview.asp?bjxGid="&rs("bookid")&" ><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
	else%>
                          <a href=goodsview.asp?bjxGid=<%=rs("bookid")%> ><img src="<%=trim(rs("bookpic"))%>" width=75 height=75 border=0 align=absmiddle></a>
                          <%end if%>
                        </TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr><tr>
                <td align="center"><%response.write "<a class=a4 href=goodsview.asp?bjxGid="&rs("bookid")&" ><font color=#FF6600>"
			if len(trim(rs("bookname")))>10 then
			response.write left(trim(rs("bookname")),9)&".."
			else
			response.write trim(rs("bookname"))
			end if
			response.write "</font></a>"
			%>
                    <br>
                  市场价：<s><%=formatnumber(rs("shichangjia"),2)&"元"%></s><br>
                  会员价：<font color=#FF3300><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font><br>
                <%rs.movenext%></td>
              </tr>
                  </table>
                <%end if%></td>
                <td width="120" valign="top">
                  <%if rs.eof then%>
                  <%else%>
                  <table cellspacing=0 cellpadding=0 width="100%" >
                    <tr valign="middle">
                      <td><div align="center"> </div></td>
                    </tr>
              <td height="113" align="center">
                  <TABLE onmouseover="this.style.backgroundColor='#FF4FAE'" onmouseout="this.style.backgroundColor=''" width=90 height=90 cellSpacing=1 cellPadding=2 bgColor=#e1e1e1 border=0>
                    <TBODY>
                      <TR>
                        <TD width=90 height=90 bgColor=#ffffff align=center>
                          <%if rs("bookpic")="" then 
	response.write "<div align=center><a href=goodsview.asp?bjxGid="&rs("bookid")&" ><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
	else%>
                          <a href=goodsview.asp?bjxGid=<%=rs("bookid")%> ><img src="<%=trim(rs("bookpic"))%>" width=75 height=75 border=0 align=absmiddle></a>
                          <%end if%>
                        </TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr><tr>
                <td align="center"><%response.write "<a class=a4 href=goodsview.asp?bjxGid="&rs("bookid")&" ><font color=#FF6600>"
			if len(trim(rs("bookname")))>10 then
			response.write left(trim(rs("bookname")),9)&".."
			else
			response.write trim(rs("bookname"))
			end if
			response.write "</font></a>"
			%>
                    <br>
                  市场价：<s><%=formatnumber(rs("shichangjia"),2)&"元"%></s><br>
                  会员价：<font color=#FF3300><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font><br>
                <%rs.movenext%></td>
              </tr>
                  </table>
                <%end if%></td>
                <td width="120" valign="top">
                  <%if rs.eof then%>
                  <%else%>
                  <table cellspacing=0 cellpadding=0 width="100%" >
                    <tr valign="middle">
                      <td><div align="center"> </div></td>
                    </tr>
              <td height="113" align="center">
                  <TABLE onmouseover="this.style.backgroundColor='#FF4FAE'" onmouseout="this.style.backgroundColor=''" width=90 height=90 cellSpacing=1 cellPadding=2 bgColor=#e1e1e1 border=0>
                    <TBODY>
                      <TR>
                        <TD width=90 height=90 bgColor=#ffffff align=center>
                          <%if rs("bookpic")="" then 
	response.write "<div align=center><a href=goodsview.asp?bjxGid="&rs("bookid")&" ><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
	else%>
                          <a href=goodsview.asp?bjxGid=<%=rs("bookid")%> ><img src="<%=trim(rs("bookpic"))%>" width=75 height=75 border=0 align=absmiddle></a>
                          <%end if%>
                        </TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr><tr>
                <td align="center"><%response.write "<a class=a4 href=goodsview.asp?bjxGid="&rs("bookid")&" ><font color=#FF6600>"
			if len(trim(rs("bookname")))>10 then
			response.write left(trim(rs("bookname")),9)&".."
			else
			response.write trim(rs("bookname"))
			end if
			response.write "</font></a>"
			%>
                    <br>
                  市场价：<s><%=formatnumber(rs("shichangjia"),2)&"元"%></s><br>
                  会员价：<font color=#FF3300><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font><br>
                <%rs.movenext%></td>
              </tr>
                  </table>