shj_tj1.asp

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

<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr> 
<td align="center"> 
<%set rs_s=server.CreateObject("adodb.recordset")
		  rs_s.open "select Top 10 * from shop_books where shjiaid="&id&" and bestbook=1 order by adddate,bookid desc",conn,1,1
		  if rs_s.eof and rs_s.bof then
		  response.write "<p align=center>对不起，暂无推荐商品！</p>"
		  'response.End
		  else
		  %>
<table cellspacing=0 cellpadding=0 border=0 width="100%">
<%
			dim i1_1,i1_count
			i1_1=int((rs_s.recordcount+1)/2)
			if i1_1>5 then 
			i1_1=5
			end if
			'response.write i1_1
			for i1_count=1 to i1_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_s("bookpic")="" then 
response.write "<a href=../list.asp?id="&rs_s("bookid")&" target=_blank><img src=../images/emptybook.gif width=90 height=90 border=0></a>"
else%>
<a href=../list.asp?id=<%=rs_s("bookid")%> target=_blank><img src="../<%=trim(rs_s("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_s("bookid")%> target=_blank>
	<%if len(trim(rs_s("bookname")))>12 then
	response.write left(trim(rs_s("bookname")),10)&".."
	else
	response.write trim(rs_s("bookname"))
	end if%>
</a><br>
市场价：<s><%=formatnumber(rs_s("shichangjia"),2)&"元"%></s><br>
会员价：<font color=#FF6600><%=formatnumber(rs_s("huiyuanjia"),2)&"元"%></font><br>
<table cellpadding=0 cellspacing=0>
<tbody> 
<tr> 
<td><a href="../gouwu.asp?id=<%=rs_s("bookid")%>&action=add"><img src="../images/goumai.gif" width="65" height="20" border=0></a>&nbsp;<a href="../shoucang.asp?id=<%=rs_s("bookid")%>&action=add"><img src="../images/shoucang1.gif" width="65" height="20" border=0></a></td>
</tr>
</tbody> 
</table>
<%rs_s.movenext%>
</td>
</tr>
</table>
</td>
<td valign="top" width="50%"> 
<%if rs_s.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_s("bookpic")="" then 
				response.write "<a href=../list.asp?id="&rs_s("bookid")&" target=_blank><img src=../images/emptybook.gif width=90 height=90 border=0></a></div>"
				else%>
				<a href=../list.asp?id=<%=rs_s("bookid")%> target=_blank><img src="../<%=trim(rs_s("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_s("bookid")%> target=_blank>
<%if len(trim(rs_s("bookname")))>12 then
	response.write left(trim(rs_s("bookname")),10)&".."
	else
	response.write trim(rs_s("bookname"))
	end if%>
</a><br>
市场价：<s><%=formatnumber(rs_s("shichangjia"),2)&"元"%></s><br>
会员价：<font color=#FF6600><%=formatnumber(rs_s("huiyuanjia"),2)&"元"%></font><br>
<table cellpadding=0 cellspacing=0>
<tbody> 
<tr> 
<td><a href="../gouwu.asp?id=<%=rs_s("bookid")%>&action=add"><img src="../images/goumai.gif" width="65" height="20" border=0></a>&nbsp;<a href="../shoucang.asp?id=<%=rs_s("bookid")%>&action=add"><img src="../images/shoucang1.gif" width="65" height="20" border=0></a></td>
</tr>
</tbody> 
</table>
<%rs_s.movenext%>
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
<%next%>
<%
rs_s.close
set rs_s=nothing%>
</table>
<%end if%>
</td>
</tr>
</table>