ad.asp

发布整站源码 可以再开发~ 本人实用中 效果嗷嗷滴~

<%
set rsad = server.createobject("adodb.recordset")
sqlad="select top 7 * from topad order by id asc"
rsad.open sqlad,conn,1,1
%>
<div align="center">
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#000000 cellSpacing=0 cellPadding=3 width=1002 border=1 height="80">
  <TBODY>
    <TR>
      <TD align="center" bgcolor="#FFFFFF" width="20">
	  
	  <font color="#FF0000">广告位置</font></TD>
      <TD align="center" bgcolor="#FFFFFF">
	  
	  &nbsp;<%
do while not rsad.eof
if rsad("imglink")="" or isnull(rsad("imglink")) or rsad("imglink")="无" then
response.write " <img src="&rsad("imgurl")&" border=0 title='"&rsad("title")&"'>"
else
response.write " <a href="&rsad("imglink")&" target=_blank><img src="&rsad("imgurl")&" border=0 title='"&rsad("title")&"'></a>"
end if
rsad.movenext
loop
rsad.close
set rsad=nothing
%></TD>      <TD align="center" bgcolor="#FFFFFF" width="20">
	  
	  <font color="#FF0000">广告位置</font></TD>
    </TR>
  </TBODY>
</TABLE>
</div>
<table width="1002" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="10"></td>
  </tr>
</table>