日期:2014-05-17  浏览次数:20880 次

只读取贴子内容的前50个字(在线急等)
我现在设计一网页。做为向导栏。想只读取贴子内容的前50个字该怎么实现?
还有就是标题栏如果有很多字。要让它显示的时候多余的字用省略号代替该如何实现呢》?

ASP网页

------解决方案--------------------
fstring=帖子内容
if len(fstring)> 50 then
fstring=left(fstring,50)& "... "
else
fstring=fstring
end if
------解决方案--------------------
<%
'字母算一个字符,汉字算两个字符


Function CutStr(byVal Str,byVal StrLen)
Dim l,t,c,i
l=Len(str)
t=0
For i=1 To l
c=AscW(Mid(str,i,1))
If c <0 Or c> 255 Then t=t+2 Else t=t+1
IF t> =StrLen Then
CutStr=left(Str,i)& "… "
Exit For
Else
CutStr=Str
End If
Next
End Function

response.Write CutStr( "sls旱烟何时要求有要在粗茶淡饭 ",10)
%>