最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
新闻中限制显示字数目
时间：2008-01-12 编辑：简简单单 来源：一聚教程网
这个用在里面限制字体个数的东西：
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
这个市临时写得，写得比较差！谁要是有好的，别忘记交流阿！
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
这个市临时写得，写得比较差！谁要是有好的，别忘记交流阿！
-
上一个： 最优化ASP程序性能（转）
-
下一个： ASP编程要点ABC之一
相关文章
- 魅族PRO 7亮相工信部 副屏像智能冰箱显示器 07-20
- 显示器画面抖动是什么原因 怎么解决画面抖动 07-15
- CAD中标题栏显示不全怎么解决 07-10
- word单页显示效果怎么做 07-04
- 针对不同显示器 微软Xbox One X智能适配4K材质包 06-27
- ps如何绘制一个复古风格的CRT显示器故障图 06-20