如何在动态显示新闻时控制显示出来字数
如何在动态显示新闻时控制显示出来字数不超过12,并将其他未显示出来的用...代替?请高手指教 问题点数：100、回复次数：7Top
1 楼julyclyde（Java初学（大学不教只好自己学））回复于 2002-05-04 18:04:27 得分 50
if len(...)>12 then 输出left(..) & "……" else 输出....Top
2 楼tonnycncn（托尼)(weiw.com）回复于 2002-05-05 12:32:55 得分 0
Function LeftTrue(str,n)
If len(str)<=(n+2)/2 Then
LeftTrue=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0
for i=1 to l
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
If t>n Then exit for
TStr=TStr&(mid(str,i,1))
next
LeftTrue = TStr&"..."
End If
End Function
<% str=RS.Fields(1).Value
Response.Write LeftTrue(str,33)%>Top
3 楼popcode（枫.net）回复于 2002-05-05 13:00:37 得分 30
if len(centent)>12 then
response.write"left(centent),12)……"
else
response.write cententTop
4 楼lovingkiss（桃花影落飞神贱，碧海潮生<吹>玉箫 坦白从良 抗拒强奸）回复于 2002-05-05 15:28:04 得分 20
我自己做的子程序：
Function strLeft(s, slen As Long)
Dim l As Long
If IsNull(s) Then
strLeft = ""
Exit Function
End If
l = Len(s)
If l = 0 Then
strLeft = ""
Else
If l <= slen Then
strLeft = s
Else
If slen > 3 Then
strLeft = Left(s, slen - 3) + "..."
Else
strLeft = Left(s, slen)
End If
End If
End If
End Function
很早了，写得不规范，你自己改动一下吧；Top
5 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2002-05-05 15:36:17 得分 0
关键是left(str,num)函数Top
6 楼dtmyou（）回复于 2002-05-05 16:44:13 得分 0
是这样的了，只是我自己想的太多而已了，谢谢各位了，只有这多分了Top
7 楼dengwei007（邓蔚）回复于 2002-05-05 16:46:13 得分 0
一行代码就搞定
response.write iif(len(strNews)<=12,strNews,left(strNews,12)+"...")Top
