tejiainfo.asp

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

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"><%set rs=server.CreateObject("adodb.recordset")
		rs.open "select Top 4 * from BJX_goods 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_1,i_count
		i_1=int((rs.recordcount+1)/2)
		if i_1>3 then 
		i_1=3
		end if
		'response.write i_1
		for i_count=1 to i_1%>
          <tr>
            <td width="33%" valign=top><table cellspacing=0 cellpadding=0 width="100%" class="table-xia">
                <tr>
                  <td width="40%" 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=90 height=90 border=0></a></div>"
	else%>
                              <a href=goodsview.asp?bjxGid=<%=rs("bookid")%> ><img src="<%=trim(rs("bookpic"))%>" width=90 height=90 border=0 align=absmiddle></a>
                              <%end if%>
                          </TD>
                        </TR>
                      </TBODY>
                  </TABLE>
                    <table width="95%" border="0" cellspacing="0" cellpadding="3">
                      <tr>
                        <td><img src="images/ring01.gif" width="9" height="9">
                            <%response.write "<a class=a4 href=goodsview.asp?bjxGid="&rs("bookid")&" ><font color=#FF6600>"
			if len(trim(rs("bookname")))>12 then
			response.write left(trim(rs("bookname")),10)&".."
			else
			response.write trim(rs("bookname"))
			end if
			response.write "</font></a>"
			%>
                        </td>
                      </tr>
                      <tr>
                        <td><FONT color=#3366cc>市场价：<%=formatnumber(rs("shichangjia"),2)&"元"%></font></td>
                      </tr>
                      <tr>
                        <td><FONT color=#ff6600>会员价：<%=formatnumber(rs("huiyuanjia"),2)&"元"%></font></td>
                      </tr>
                      <tr>
                        <td><FONT color=#ff0000>VIP 价：<%=formatnumber(rs("vipjia"),2)&"元"%></font></td>
                      </tr>
                    </table></td>
                  <td width="60%"><%rs.movenext%>
                  </td>
                </tr>
            </table></td>
            <td width="33%" valign="top" class="table-zuo"><%if rs.eof then%>
                <%else%>
                <table cellspacing=0 cellpadding=0 width="100%" class="table-xia">
              <td width="40%" 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=90 height=90 border=0></a></div>"
	else%>
                            <a href=goodsview.asp?bjxGid=<%=rs("bookid")%> ><img src="<%=trim(rs("bookpic"))%>" width=90 height=90 border=0 align=absmiddle></a>
                            <%end if%>
                        </TD>
                      </TR>
                    </TBODY>
                </TABLE>
                  <table width="95%" border="0" cellspacing="0" cellpadding="3">
                    <tr>
                      <td><img src="images/ring01.gif" width="9" height="9">
                          <%response.write "<a class=a4 href=goodsview.asp?bjxGid="&rs("bookid")&" ><font color=#FF6600>"
			if len(trim(rs("bookname")))>12 then
			response.write left(trim(rs("bookname")),10)&".."
			else
			response.write trim(rs("bookname"))
			end if
			response.write "</font></a>"
			%>
                      </td>
                    </tr>
                    <tr>
                      <td><FONT color=#3366cc>市场价：<%=formatnumber(rs("shichangjia"),2)&"元"%></font></td>
                    </tr>
                    <tr>
                      <td><FONT color=#ff6600>会员价：<%=formatnumber(rs("huiyuanjia"),2)&"元"%></font></td>
                    </tr>
                    <tr>
                      <td><FONT color=#ff0000>VIP 价：<%=formatnumber(rs("vipjia"),2)&"元"%></font></td>
                    </tr>
                  </table></td>
                  <%rs.movenext%>
              </tr>
                </table>
                <%end if%>
            </td>
          </tr>
          <%next%>
          <%
rs.close
set rs=nothing%>
        </table>
        <%end if%>
    </td>
  </tr>
</table>