原创著作,产权保护 政府、投票、评选、公安、学校、问卷、视频会议专注发展中小企事业 系统报价 | 支付帐号 | 授权查证
    计算机著作版权登记号:2014SR032463 手机:+86-1373066-4304 | QQ:1213920482 欢迎选择智睿软件系统 欢迎选择智睿软件系统
智睿软件系统
asp输出文字超出字数使用省略号结尾
来源:智睿 浏览:1398 次 发布时间:2020-05-13 17:34:43
asp输出文字超出字数使用省略号结尾
'字数输出省略号控制开始
Function Strleft(Str002,L001) 
Temp_Str=Len(Str002) 
For I002=1 To Temp_Str 
Test_Str=(Mid(Str002,I002,1)) 
Strleft=Strleft&Test_Str
If Asc(Test_Str)>0 Then 
lens001=lens001+1
Else 
lens001=lens001+2
End If
    If lens001>L001 Then
    Strleft=Strleft&"..."
    Exit For 
    End if
Next 
'Strleft=Strleft&"..."
End Function 

'字数输出省略号控制结束
【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
上一篇:智睿政府网站管理系统 V 10.0.3 政府网站系统,政府公众信息网站 下一篇:智睿公安公众信息管理系统 V 10.2.6 公安系统网,公安内网信息系统