function f_CutString(str,n)
    '截取部分字符显示
    If Len(str)>n then
        f_CutString=Left(str,n) & "<a href='#' title='"&str&"'>…</a>"
    Else
        f_CutString=str
    End If
end function

截取后用...表示还有数据。