www.gusucode.com > 山寨版广告信息招贴网源码程序 > 山寨版广告信息招贴网源码程序/ewuyi/dir_发布/left.asp

    <table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:3px;">
 <tr><td class="f60b14">最新信息</td>
 </tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 10 * from ewuyi_info where type>0 order by adid desc"
rs.open sql,conn,1,1
If rs.bof and rs.eof then
response.write "暂无最新信息"
end if
do until rs.eof
iii=iii+1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:3px;">
 <tr>
<td valign="top"><span class=""gray""><%=iii%>.</span>&nbsp;<a href="/info/info.asp?id=<%=rs("adid")%>" target="_blank" onClick="chk_stat(<%=rs("adid")%>);" title="查看此信息"><%=rs("title")%></a> <span class="greenDomain"><%=rs("time")%></span><span class="small"> - </span><a href="/info/info.asp?id=<%=rs("adid")%>" class="siteinfo" title="详细信息" onClick="chk_stat(<%=rs("adid")%>);"><img src="/img/site_info.gif" alt="详细信息" width="13" height="13" hspace="3" border="0" align="absmiddle"></a></td>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:6px;margin-bottom:6px;">
<tr>
<td class="h1"></td>
</tr>
</table>