<% 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 6 * from news where BigClassName='最新动态' order by id 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 %> · <%=cutstr(rs_news("title"),16)%> <%=Copyright%>