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

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

<%

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

%>