<% function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"..." else cutstr=tempstr end if end function%>
<% set rs_news=server.createobject("adodb.recordset") sqltext4="select top " & New_count & " * from news where BigClassName='公司新闻' order by AddDate desc" rs_news.open sqltext4,conn,1,1 %> <%i=0 do while not rs_news.eof%> <%rs_news.movenext i=i+1 loop rs_news.close %>