当前位置:96看吧 > 技术文档 > ASP编程 > asp函数控制显示内容长度

asp函数控制显示内容长度

时间:2009/05/11
作者:诚心
来源:网络转载
查看:
标签:asp函数

'text 内容
'length 需要的长度
Function InterceptString(text,length) '函数名
 dim text_length
 dim count_length
 dim count
 dim ii
 text=trim(text)
 text_length= len(text) '求字符串的长度
 count_length = 0
 if text_length >= 1 then
 for count= 1 to text_length '这一个循环计算要截取的字符串
 if asc(mid(text,count,1)) < 0 or asc(mid(text,count,1)) >255 then '如果是汉字
 count_length = count_length + 2
 else
 count_length = count_length + 1
 end if
 if count_length >= length then
 text = left(trim(text),count)&"..." '字符串限长
 exit for
 end if
 next
 InterceptString = text '函数返回值
 else
 InterceptString = ""
 end if
End Function 
 

上一篇:过滤HTML代码的asp函数
下一篇:asp函数gb2312转unicode解决中文乱码问题
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门