<% for i=1 to UBOUND(arrMenu_code) if arrMenu_code(i)="04" then strCurrMenu=arrMenu_id(i) strCurrmenuName=arrMenu(i) strCurrmenuHref=arrMenu_Href(i) %> <% '开始输出最新新闻 strSQL="Select Top 6 * From web_news Where mn_id=" & strCurrMenu & " Order by id Desc" Set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSQL,conn,1,1 for j=1 to rs.recordcount if rs.eof then exit For %> ◇&mnid=<%=strCurrMenu%>&classname=<%=strCurrMenuName%>" target="_blank"><%=trim(rs("nTitle"))%>(<%=Year(rs("nTime"))%>/<%=Month(rs("nTime"))%>/<%=day(rs("nTime"))%>/) <% rs.movenext next %> 更多>>> <%end if next %>