新闻中限制显示字数目

最新推荐文章于 2024-07-07 06:00:00 发布

最新推荐文章于 2024-07-07 06:00:00 发布 · 115 阅读

博客分享了一段用于限制字体个数的代码，代码中定义了变量，通过判断标题长度进行相应处理，作者表示代码是临时所写质量欠佳，希望与他人交流更好的实现方法。

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

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

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