请选择 进入手机版 | 继续访问电脑版
查看: 419|回复: 0

[.NET开发] asp 截取字符串函数

3万

主题

3万

帖子

10万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
100197
发表于 2015-11-23 17:52:14
如果标题过长,因为页面布局的限制,只能列表10个字符,这个函数会帮你实现的

  1. '截取字符串 strvalue(标题,字数)
  2. function strvalue(str,lennum)
  3. dim p_num
  4. dim i
  5. if strlen(str)<=lennum then
  6. strvalue=str
  7. else
  8. p_num=0
  9. x=0
  10. do while not p_num > lennum-2
  11. x=x+1
  12. if asc(mid(str,x,1))<0 then
  13. p_num=int(p_num) + 2
  14. else
  15. p_num=int(p_num) + 1
  16. end if
  17. strvalue=left(trim(str),x)&"…"
  18. loop
  19. end if
  20. end function
  21. function strlen(str)
  22. dim page_len
  23. page_len=0
  24. strlen=0
  25. if trim(str)<>"" then
  26. page_len=len(trim(str))
  27. for xx=1 to page_len
  28. if asc(mid(str,xx,1))<0 then
  29. strlen=int(strlen) + 2
  30. else
  31. strlen=int(strlen) + 1
  32. end if
  33. next
  34. end if
  35. end function
复制代码
  1. <%=strvalue("准确的编程语言,可正确对代码语法着色,输入简单几个字的代码片段说明",10)%>
复制代码


回复

使用道具 举报