利用函数省略中间字符

假使我有一个列名字为 title ，内容有20个字符，我是想通过asp 方式 把内容显示出头和尾，而中间的就省略为引号，请问如何编写！？

例如：我现在正在 ... 你还好吗？

在蓝色理想看到一个不错的帖子，以后可能会用到相关的东西，特收藏保存。

很简单的利用left和right函数，为此可以写个简单的函数。

<%
Function Cut(sContent, iLeft, iRight)
    If Len(sContent)>(iLeft+iRight) Then
        Cut = Left(sContent, iLeft) & "..." & Right(sContent, iRight)
    Else
        Cut = sContent
    End If
End Function
'示例：
Response.Write Cut("我现在正在上网，好久没有联系了，你还好吗？", 5, 5)
%>