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

新闻资讯     首页 >> 公司新闻   <% BigClass="公司新闻" 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 %> " target="_blank"><%= 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 %> ">更多>>>