取标题多少字数，多出加上省略号

调用 ：<%=lefts(rs2("newsname"),12)%>

<%
function lefts(thers,num)
  if len(thers)>num then
  lefts=left(thers,num)&"..."
  else
  lefts=thers
  end if
 end function%>