只读取贴子内容的前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)
%>