<%
set rs2=server.CreateObject("adodb.recordset")
sql2 = "Select top 9 ID,title From article where typeID=9 order by ID desc"
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
response.write "暂时没有信息"
else
do while not rs2.eof
%>
- &typeID=1" target="_blank"><%=rs2("title")%>
<%
rs2.movenext
loop
rs2.close
end if
%>
<%
sql = "Select * From adv Where ID=1"
Set rs = conn.Execute( sql )
%>
" target="_blank">
<% rs.close %>
<%
sql = "Select * From adv Where ID=2"
Set rs = conn.Execute( sql )
%>
" target="_blank">
<% rs.close %>
<%
sql = "Select * From adv Where ID=3"
Set rs = conn.Execute( sql )
%>
" target="_blank">
<% rs.close %>
金银币投资收藏大家谈
银章艺术荟萃
投资理财大家谈
<%
sql = "Select * From adv Where ID=4"
Set rs = conn.Execute( sql )
%>
" target="_blank">
<% rs.close %>
<%
sql = "Select * From adv Where ID=6"
Set rs = conn.Execute( sql )
%>
" target="_blank">
<% rs.close %>