function cutLength(str,length)
str=trim(str)
str=replace(str," "," ")
str=replace(str,"<br>","")
str=replace(str,""","""")
if len(str)>length then
str=left(str,(length-3))&"..."
end if
cutLength=str
end function
用法：<%=cutlength(str,10)%>