作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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

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

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

相关软件：