日期:2013-03-10  浏览次数:20687 次

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

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

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