WEB源码(ASP,PHP,...)

开发平台：
DOS

newproduct.asp：源码内容
							<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="skin/skin<%=skinid%>/np.gif" width="100%"  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 "&xinpin&"  * from products where newsbook=1 and zhuangtai=0 order by adddate 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="232" 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 <% if probg=0 then %>
                      background="skin/skin<%=skinid%>/136.jpg" <%end if %>
                        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=<%=ksu%> height=<%=csu%> 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>

						