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 公安系统网,公安内网信息系统 |