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

开发平台：
DOS

special.asp：源码内容
							<TABLE width="518" 
border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD><img src="skin/skin<%=skinid%>/tejia.gif" width="560"   border="0" usemap="#Map2" /></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 "&tejia&"  * from products where tejiabook=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="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 <% 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>
      </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="Map2" id="Map2">
  <area shape="rect" coords="417,9,502,18" href="class.asp?lx=tejia" />
</map>

						