shangping_j.asp

php 语言写的c2c商城网站程序

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" HEIGHT="150"> 
<tr> <%set rs=server.createobject("adodb.recordset")
		rs.open "select Top 6 * from shop_books where bestbook=1 order by bookid desc",conn,1,1
		if rs.recordcount=0 then 
		%> </tr> <%
		else
		while not rs.eof
		%> <tr> <td width="33%" valign=top> <table width="95%" height="116" border="0" align="center" cellpadding="2" cellspacing="0"> 
<tr> </tr><tr><td width="40%" ><TABLE HEIGHT=99 CELLSPACING=0 CELLPADDING=0 WIDTH=99 BORDER=0 ALIGN="center"> 
<TBODY> <TR> <TD BACKGROUND=images/xt_bj.gif ALIGN=center VALIGN="MIDDLE"> <%if rs("bookpic")="" then 
response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" target=_blank><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
else%> <A HREF=list.asp?id=<%=rs("bookid")%> TARGET=_blank><IMG SRC="<%=trim(rs("bookpic"))%>"  WIDTH=75 BORDER=0 HEIGHT="75"></A> 
<%end if%> </TD></TR> </TBODY> </TABLE></td></tr><tr><td width="40%" HEIGHT="35" VALIGN="TOP" BGCOLOR="#FFFFFF" ><DIV ALIGN="CENTER"><FONT COLOR="#999999"><%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" target=_blank><font color=#FF6600>"
				if len(trim(rs("bookname")))>22 then
				response.write left(trim(rs("bookname")),20)&"..."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</font></a>"
				%></FONT></DIV></td></tr><tr><td width="40%" ><DIV ALIGN="CENTER"><FONT COLOR="#FF0000">￥</FONT><S><%=formatnumber(rs("shichangjia"),0)%></S> 
<FONT COLOR="#FF0000">-&gt;</FONT> <FONT COLOR=#FF6600><%=formatnumber(rs("huiyuanjia"),0)&"元"%></FONT></DIV></td></tr> 
</table><%rs.movenext%> </td><td width="33%" valign="top" > <%if rs.eof then%> 
<%else%> <TABLE WIDTH="95%" HEIGHT="116" BORDER="0" ALIGN="center" CELLPADDING="2" CELLSPACING="0"> 
<TR><TD WIDTH="40%" ><TABLE HEIGHT=99 CELLSPACING=0 CELLPADDING=0 WIDTH=99 BORDER=0 ALIGN="center"> 
<TBODY> <TR> <TD BACKGROUND=images/xt_bj.gif ALIGN=center> <%if rs("bookpic")="" then 
response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" target=_blank><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
else%> <A HREF=list.asp?id=<%=rs("bookid")%> TARGET=_blank><IMG SRC="<%=trim(rs("bookpic"))%>"  WIDTH=75 BORDER=0 HEIGHT="75"></A> 
<%end if%> </TD></TR> </TBODY> </TABLE></TD></TR><TR><TD WIDTH="40%" HEIGHT="35" VALIGN="TOP" BGCOLOR="#FFFFFF" ><DIV ALIGN="CENTER"><FONT COLOR="#999999"><%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" target=_blank><font color=#FF6600>"
				if len(trim(rs("bookname")))>22 then
				response.write left(trim(rs("bookname")),20)&"..."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</font></a>"
				%></FONT></DIV></TD></TR><TR><TD WIDTH="40%" ><DIV ALIGN="CENTER"><FONT COLOR="#FF0000">￥</FONT><S><%=formatnumber(rs("shichangjia"),0)%></S> 
<FONT COLOR="#FF0000">-&gt;</FONT> <FONT COLOR=#FF6600><%=formatnumber(rs("huiyuanjia"),0)&"元"%></FONT></DIV></TD></TR> 
</TABLE><%rs.movenext%> <%end if%> </td><td width="34%" valign="top" ><%if rs.eof then%> 
<%else%> <TABLE WIDTH="95%" HEIGHT="116" BORDER="0" ALIGN="center" CELLPADDING="2" CELLSPACING="0"> 
<TR><TD WIDTH="40%" ><TABLE HEIGHT=99 CELLSPACING=0 CELLPADDING=0 WIDTH=99 BORDER=0 ALIGN="center"> 
<TBODY> <TR> <TD BACKGROUND=images/xt_bj.gif ALIGN=center> <%if rs("bookpic")="" then 
response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" target=_blank><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
else%> <A HREF=list.asp?id=<%=rs("bookid")%> TARGET=_blank><IMG SRC="<%=trim(rs("bookpic"))%>"  WIDTH=75 BORDER=0 HEIGHT="75"></A> 
<%end if%> </TD></TR> </TBODY> </TABLE></TD></TR><TR><TD WIDTH="40%" HEIGHT="35" VALIGN="TOP" BGCOLOR="#FFFFFF" ><DIV ALIGN="CENTER"><FONT COLOR="#999999"><%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" target=_blank><font color=#FF6600>"
				if len(trim(rs("bookname")))>22 then
				response.write left(trim(rs("bookname")),20)&"..."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</font></a>"
				%></FONT></DIV></TD></TR><TR><TD WIDTH="40%" ><DIV ALIGN="CENTER"><FONT COLOR="#FF0000">￥</FONT><S><%=formatnumber(rs("shichangjia"),0)%></S> 
<FONT COLOR="#FF0000">-&gt;</FONT> <FONT COLOR=#FF6600><%=formatnumber(rs("huiyuanjia"),0)&"元"%></FONT></DIV></TD></TR> 
</TABLE><%rs.movenext%> <%end if%> </td></tr> <%
		wend
		end if%> </table>