newproduct.asp

网页源码,是最好的网店代码。可以支持批量上传产品等功能。

<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="images/np.gif" width="100%" height="30" border="0" usemap="#Map4"></td>
  </tr>
  <tr>
    <td><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" >
      <tr>
        <%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select Top 9 * from products 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
		  %>
        <%
		if not rs.eof then
		i=1
		do while not rs.eof%>
        <td height="110" valign="top" ><table width="222" height="110" align="center"  cellpadding="0" cellspacing="0">
            <tr>
              <td width="110" align="center" valign="middle"><table  width="140" height="142" cellspacing="1" cellpadding="2"  border="0">
                    <tbody>
                      <TR> 
                        <TD align=middle 
                      background="./images/136.jpg"
                        height=140> 
                          <%if rs("bookpic")="" then 
	response.write "<div align=center><a href=products.asp?id="&rs("bookid")&" ><img src=images/emptybook.gif width=90 height=90 border=0></a></div>"
	else%>
                          <a href="products.asp?id=<%=rs("bookid")%>" ><img src="<%=trim(rs("bookpic"))%>" alt="点击查看商品:<%=rs("bookname")%>" width="100" height="100" border="0" align="absmiddle" /></a> 
                          <%end if%>
                        </TD>
                      </TR>
                    </tbody>
                  </table></td>
              <td width="60%"><table width="95%" height="60" align="center" cellpadding=0 cellspacing=0>
                  <tr>
                    <td width="203" >
<%response.write "<a class=a4 href=products.asp?id="&rs("bookid")&" ><font color=#FF0000>"
			if len(trim(rs("bookname")))>15 then
			response.write left(trim(rs("bookname")),15)&".."
			else
			response.write trim(rs("bookname"))
			end if
			response.write "</font></a>"
			%>
                    <br></b>					 </td>
                  </tr>
                  <tr>
                    <td >市场价：<s><%=rs("shichangjia")&""%></s>元</td>
                  </tr>
                  <tr>
                    <td >会员价：<font color="#FF0000"><%=rs("huiyuanjia")%></font>元 </td>
                  </tr>
                  <tr>
                    <td height="1" background="images/body/lineld.gif"></td>
                  </tr>
                               </table></td>
            </tr>
        </table></td>
        <%if i mod 3 = 0 then%>
      </tr>
      <%end if
	    rs.movenext
         i=i+1
    	 loop
		rs.close
		end if
		end if 
	%>
    </table></td>
  </tr>
</table>


<map name="Map4" id="Map4">
  <area shape="rect" coords="68,7,80,15" href="class.asp?lx=news" />
</map>