新闻中限制显示字数目

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

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

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

本文地址：http://com.8s8s.com/it/it8854.htm