bobindex2.asp

采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 美观、友好的展示铺面 设计中应用了多种网络安全技术 顾客可以方便的查询并订购商品 用户可以方便的定义各种商品信息

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 {
	font-size: 14px;
	font-weight: bold;
}
-->
</style>
<TABLE width=778 border=0 align=center cellPadding=0 cellSpacing=0 background="images/content.gif" bgcolor="#EDF0DB">
  <TBODY>
  
  <TR>
    <TD class=b width=10></TD>
    <TD  class=b vAlign=top align=left width=761 bgColor=#ffffff></TD>
    <TD class=b width=10></TD>
  </TR>
  <TR>
    <TD class=b></TD>
    <TD height="30" align=left vAlign=middle background="images/midbg.gif" class=b><div align="center" class="style1">
      <div align="left">&nbsp; <font color="#003300;">新 品 上 架</font></div>
    </div></TD>
    <TD class=b width=10></TD>
  </TR>
  <TR>
    <TD class=b width=10></TD>
    <TD class=b vAlign=top align=left bgColor=#ffffff><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EDF0DB">
<tr> 
<td align="center"> 
<%set rs=server.CreateObject("adodb.recordset")
		rs.open "select Top 9 * 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%">
<%
		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>
<%if rs.eof then%>
<%else%> 
<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=#EDF0DB align=center> 
<%if rs("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" ><img src=images/emptybook.gif width=90 height=90 border=0></a></div>"
	else%>
<a href=list.asp?id=<%=rs("bookid")%> ><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="95%" border="0" cellspacing="0" cellpadding="3">
<tr> 
<td><img src="images/ring01.gif" width="9" height="9">
<%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" ><font color=#666633>"
			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=#666633>会员价：<%=formatnumber(rs("huiyuanjia"),2)&"元"%></font></td>
</tr>
<tr>
  <td><FONT color=#ff0000>VIP 价：<%=formatnumber(rs("vipjia"),2)&"元"%></font></td>
</tr>
</table>
<%rs.movenext%>
</td>
</tr>
</table>
<%end if%>
</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=#EDF0DB align=center>
<%if rs("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" ><img src=images/emptybook.gif width=90 height=90 border=0></a></div>"
	else%>
<a href=list.asp?id=<%=rs("bookid")%> ><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="95%" border="0" cellspacing="0" cellpadding="3">
  <tr>
    <td><img src="images/ring01.gif" width="9" height="9">
        <%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" ><font color=#666633>"
			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=#666633>会员价：<%=formatnumber(rs("huiyuanjia"),2)&"元"%></font></td>
  </tr>
  <tr>
    <td><FONT color=#ff0000>VIP 价：<%=formatnumber(rs("vipjia"),2)&"元"%></font></td>
  </tr>
</table>
<%rs.movenext%>
</td>
</tr>
</table>
<%end if%>
</td>
<td 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=#EDF0DB align=center>
<%if rs("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" ><img src=images/emptybook.gif width=90 height=90 border=0></a></div>"
	else%>
<a href=list.asp?id=<%=rs("bookid")%> ><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="95%" border="0" cellspacing="0" cellpadding="3">
    <tr>
      <td><img src="images/ring01.gif" width="9" height="9">
          <%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" ><font color=#666633>"
			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=#666633>会员价：<%=formatnumber(rs("huiyuanjia"),2)&"元"%></font></td>
    </tr>
    <tr>
      <td><FONT color=#ff0000>VIP 价：<%=formatnumber(rs("vipjia"),2)&"元"%></font></td>
    </tr>
  </table>
  <%rs.movenext%>
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
<%next%>
<%
rs.close
set rs=nothing%>
</table>
<%end if%>
</td>
</tr>
</table></TD>
    <TD class=b>&nbsp;</TD>
  </TR>
  <TR>
    <TD class=b</TD>
    <TD height="5" align=left vAlign=top bgColor=#EDF0DB class=b></TD>
    <TD class=b width=7></TD>
  </TR>
  </TBODY>
</TABLE>