<% opendata conn set gg=conn.execute("select top 5 title,id,lb,flag from textnews where lb='网站公告' order by id desc") set dc=conn.execute("select top 1 question,aa,bb,cc,dd from voting order by id desc") set yqlj=conn.execute("select * from yqlj order by id desc") set rs=server.createobject("adodb.recordset") rs.open"select title,flag,id from textnews where lb='博源新闻' and flag=true order by id desc",conn,1,1 %> Polytype
 
<% do while not gg.eof %>

<%response.write""&gg("title")&""%>

<% gg.movenext loop gg.close set gg=nothing %>
<% if not dc.eof then %> <% end if %>
<%=dc("question")%>
<%=dc("aa")%>
<%=dc("bb")%>
<%=dc("cc")%>
<%=dc("dd")%>
<% do while not yqlj.eof %> <% yqlj.movenext loop yqlj.close set yqlj=nothing %>
" title="<%=yqlj("sitename")%>" target="_blank"> <%if yqlj("sitelogo")<>"" then response.write""&yqlj("sitename")&"" else response.write yqlj("sitename") end if %>
More..
 

 
<% closedata conn %>