shj_tejia.asp

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

<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr> 
<td align="center"> 
<%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select Top 10 * from shop_books where shjiaid="&id&" and tejiabook=1 order by adddate,bookid desc",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "<p align=center>对不起，暂无特价商品！</p>"
		  '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 valign=top width="50%"> 
<table cellspacing=3 cellpadding=0 width="100%">
<tr> 
<td width="40%" align="center">
<TABLE onmouseover="this.style.backgroundColor='#FF4FAE'" onmouseout="this.style.backgroundColor=''" width=100 height=100 cellSpacing=1 cellPadding=2 bgColor=#e1e1e1 border=0>
<TBODY>
<TR> 
<TD width=100 height=100 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=100 border=0 height="100"></a> 
<%end if%>
</TD>
</TR>
</TBODY>
</TABLE>
</td>
<td width="60%"><img src="../images/ring01.gif">
<a href=../list.asp?id=<%=rs("bookid")%> target=_blank>
<%if len(trim(rs("bookname")))>12 then
	response.write left(trim(rs("bookname")),10)&".."
	else
	response.write trim(rs("bookname"))
	end if%>
</a>
<br><font color="#999999"> 
<%if len(trim(rs("bookcontent")))>12 then
	response.write left(trim(rs("bookcontent")),10)&"..."
	else
	response.write trim(rs("bookcontent"))
	end if%>
</font><br>
市场价：<s><%=formatnumber(rs("shichangjia"),2)&"元"%></s><br>
会员价：<font color=#FF6600><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font>
<table cellpadding=0 cellspacing=0>
<tbody> 
<tr> 
<td><a href="../gouwu.asp?id=<%=rs("bookid")%>&action=add"><img src="../images/goumai.gif" width="65" height="20" border=0></a>&nbsp;<a href="../shoucang.asp?id=<%=rs("bookid")%>&action=add"><img src="../images/shoucang1.gif" width="65" height="20" border=0></a></td>
</tr>
</tbody> 
</table>
<%rs.movenext%>
</td>
</tr>
</table>
</td>
<td valign="top" width="50%"> 
<%if rs.eof then%>
<%else%>
<table cellspacing=3 cellpadding=0 width="100%">
<tr> 
<td width="40%" align="center">
<TABLE onmouseover="this.style.backgroundColor='#FF4FAE'" onmouseout="this.style.backgroundColor=''" width=100 height=100 cellSpacing=1 cellPadding=2 bgColor=#e1e1e1 border=0>
<TBODY>
<TR> 
<TD width=100 height=100 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=100 border=0 height=100></a> 
<%end if%>
</TD>
</TR>
</TBODY>
</TABLE>
</td>
<td width="60%"><img src="../images/ring01.gif">
<a href=../list.asp?id=<%=rs("bookid")%> target=_blank>
<%if len(trim(rs("bookname")))>12 then
	response.write left(trim(rs("bookname")),10)&".."
	else
	response.write trim(rs("bookname"))
	end if%>
</a>
<br><font color="#999999"> 
<%if len(trim(rs("bookcontent")))>12 then
	response.write left(trim(rs("bookcontent")),10)&"..."
	else
	response.write trim(rs("bookcontent"))
	end if%>
</font><br>
市场价：<s><%=formatnumber(rs("shichangjia"),2)&"元"%></s><br>
会员价：<font color=#FF6600><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font>
<table cellpadding=0 cellspacing=0>
<tbody> 
<tr> 
<td><a href="../gouwu.asp?id=<%=rs("bookid")%>&action=add"><img src="../images/goumai.gif" width="65" height="20" border=0></a>&nbsp;<a href="../shoucang.asp?id=<%=rs("bookid")%>&action=add"><img src="../images/shoucang1.gif" width="65" height="20" border=0></a></td>
</tr>
</tbody> 
</table>
<%rs.movenext%>
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
<%next%>
<%
rs.close
set rs=nothing%>
</table>
<%end if%>
</td>
</tr>
</table>