这个用在里面限制字体个数的东西:
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
这个市临时写得,写得比较差!谁要是有好的,别忘记交流阿! 
|