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

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

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