-- 新闻搜索 --

-- 新闻资讯 --
	<% Set rslist = Server.CreateObject("ADODB.Recordset") sql="select BigClassName from BigClass_New order by BigClassID" rslist.open sql,conn,1,3 do while not rslist.eof %> "><%=rslist("BigClassName")%> <% rslist.movenext loop rslist.close set rslist=nothing %>

<% If IsFlash2="Yes" Then %>

<% Else %>

<% end If%>

<% Set RsNews = Server.CreateObject("ADODB.Recordset") sql="select BigClassName from BigClass_New order by BigClassID" RsNews.open sql,conn,1,3 do while not RsNews.eof %>

首页 >> <%=RsNews("BigClassName")%>

<% BigClass=RsNews("BigClassName") n=6 If BigClass<>"" then sql="select top 6 * from News where BigClassName='"& BigClass &"' order by IsTop,IsElite,IsHot,Orderid asc,AddDate desc" set rs=conn.execute(sql) do while not rs.eof %>

<% if rs("FirstImageName")<>"" then response.write " 图片新闻

" end if %>

"><%= RS("TITLE") %>

[<%=FormatDateTime(RS("AddDate"),2)%>] (点击<%= RS("hits") %>)

<% n=n-1 if n<1 then exit do rs.movenext loop rs.close set rs=nothing %> <% End If %>

">更多>>>

<% RsNews.movenext loop RsNews.close set RsNews=nothing %>