<% call ShowUserLogin() %> <% 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.movenext loop rslist.close set rslist=nothing %>       新闻资讯 "><%=rslist("BigClassName")%>

<% 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 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 %>