commend.asp

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

<TABLE width="518" 
border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD><img src="images/tj.gif" width="560" height="30" border="0" usemap="#Map1" /></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="518" border="0" align="center" cellpadding="0" cellspacing="0" >
  <tr>
    <%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select Top 12 * from products where bestbook=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="128" align="center" cellpadding="0" cellspacing="0" >
      <tr valign="middle">
        <td></td>
      </tr>
      <tr>
        <td height="113" align="center"><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"))%>" width="100" height="100" border="0" align="absmiddle" /></a> 
                    <%end if%>
                  </TD>
                </TR>
              </tbody>
            </table></td>
      </tr>
      <tr>
        <td align="center"><table width="95%" height="60" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="203" align="center" ><%response.write "<a class=a4 href=products.asp?id="&rs("bookid")&" ><font color=#FF0000>"
			if len(trim(rs("bookname")))>7 then
			response.write left(trim(rs("bookname")),7)&".."
			else
			response.write trim(rs("bookname"))
			end if
			response.write "</font></a>"
			%>
                    <br />
                    </b> </td>
          </tr>
          <tr>
            <td align="center" >市场价：<s><%=rs("shichangjia")&""%></s>元</td>
          </tr>
          <tr>
            <td align="center" >会员价：<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 4 = 0 then%>
  </tr>
  <%end if
	    rs.movenext
         i=i+1
    	 loop
		rs.close
		end if
		end if 
	%>
</table>
<map name="Map1" id="Map1">
  <area shape="rect" coords="413,8,502,16" href="class.asp?lx=hot" />
</map>