rank.asp

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

<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookid,bookname,liulancount from shop_books order by liulancount desc",conn,1,1%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" class="table-zuoyou" bordercolor="#CCCCCC">
<tr> 
<td width="180" rowspan="2" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="180" height="60" background="images/guide04.gif"></td>
</tr>
<%i=0
do while not rs.eof%>
<tr> 
<td height="24" class="table-you" background="images/bg_guide02.gif" STYLE='PADDING-LEFT: 18px'>
<%response.write "<a href=list.asp?id="&rs("bookid")&" target=_blank title=此商品已被浏览过"&rs("liulancount")&"次>"
				if len(trim(rs("bookname")))>12 then
				response.write left(trim(rs("bookname")),11)&".."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</a>"
				%>
</td>
</tr>
<%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>
</table>
<%set rs=server.CreateObject("adodb.recordset")
	  rs.open "select top 10 * from shop_books order by chengjiaocount desc",conn,1,1%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="180" height="60" background="images/guide05.gif"></td>
</tr>
<%i=0
do while not rs.eof%>
<tr><td height="24" class="table-you" background="images/bg_guide02.gif" STYLE='PADDING-LEFT: 18px'>
<%response.write "<a href=list.asp?id="&rs("bookid")&" target=_blank title=此商品已成功销售"&rs("chengjiaocount")&"次>"
				if len(trim(rs("bookname")))>12 then
				response.write left(trim(rs("bookname")),11)&".."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</a>"
				%>
</td>
</tr>
<%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>
</table> </td>
<td width="580" height="30" bordercolor="#FFFFFF" background="images/bg61030.gif" bgcolor="#FFFFFF">　<img src="images/search01.gif" width="17" height="13" align="bottom">　<a href="class.asp?lx=hot" target="_blank">最热产品</a> <a href="class.asp?lx=news" target="_blank">最新产品</a> <a href="class.asp?lx=tejia" target="_blank">特价产品</a> <a href="class.asp" target="_blank">全部产品</a></td>
</tr>
<tr> 
<td valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> 
<td align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> 
<td align="center"> 
<%set rs=server.CreateObject("adodb.recordset")
		rs.open "select Top 10 * from shop_books 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 width="100%">
<%
		dim i_1,i_count
		i_1=int((rs.recordcount+1)/2)
		if i_1>5 then 
		i_1=5
		end if
		'response.write i_1
		for i_count=1 to i_1%>
<tr> 
<td width="50%" 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=list.asp?id="&rs("bookid")&" target=_blank><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="60%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td><img src="images/ring01.gif" width="9" height="9">
<%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" target=_blank><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="#999999"> 
<%if len(trim(rs("bookcontent")))>25 then
	response.write left(trim(rs("bookcontent")),25)&"..."
	else
	response.write trim(rs("bookcontent"))
	end if%>
</font></td>
</tr>
</table>
市场价：<s><%=formatnumber(rs("shichangjia"),2)&"元"%></s><br>
会员价：<font color=#FF3300><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font><br>
<%rs.movenext%>
</td>
</tr>
</table>
</td>
<td width="50%" 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=list.asp?id="&rs("bookid")&" target=_blank><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="60%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td><img src="images/ring01.gif" width="9" height="9">
<%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" target=_blank><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="#999999"> 
<%if len(trim(rs("bookcontent")))>25 then
	response.write left(trim(rs("bookcontent")),25)&"..."
	else
	response.write trim(rs("bookcontent"))
	end if%>
</font></td>
</tr>
</table>
市场价：<s><%=formatnumber(rs("shichangjia"),2)&"元"%></s><br>
会员价：<font color=#FF3300><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font><br>
<%rs.movenext%>
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
<%next%>
<%
rs.close
set rs=nothing%>
</table>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>