ASP实现新闻中限制显示字数目

这个用在里面限制字体个数的东西：

Dim rsTitle,tmpLeft

rsTitle=Rs("Title")

If Len(rsTitle)>intTitLen Then

????rsLeft=rsTitle

????Do While Len(rsLeft)>intTitLen 'Or Len(Right(rsTitle,intTitLen*j))>intTitLen

?????Response.Write Left(rsLeft,intTitLen)&"

"

?????rsLeft=Right(rsLeft,Len(rsLeft)-intTitLen)

????Loop

????If Not IsNull(rsLeft) Then

?????Response.Write rsLeft

????End If

???Else

????Response.Write rsTitle

???End If

这个市临时写得，写得比较差！谁要是有好的，别忘记交流阿！