主题:  如何自动将标题中超过10个字的部分变成...？

happysep
职务：普通成员
等级：1
金币：1.0
发贴：245
#12003/6/20 19:12:53
请问ａｓｐ中有时候标题字数太多，要用程序控制了每个标题至多十个字，超过十个字就用“...”代替，请问这是怎么做的？网上有说这个问题的教程吗？



缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
#22003/6/20 19:36:14
function DoTrimProperly(str,leftlen)
dim strRet
strRet = str
strRet = Server.HTMLEncode(str)
strRet = replace(strRet, vbcrlf,"")
strRet = replace(strRet, vbtab,"")
If (LEN(strRet) > leftlen) Then
strRet = LEFT(strRet, leftlen) + "..."        
End If
DoTrimProperly = strRet
End Function


DoTrimProperly(rs("title"),10)