浏览模式: 普通 | 列表
6月, 2006 | 1

中英文混合字符串的截取函数

[ 2006-06-22 15:58:51 | 作者: admin ]
Function gotTopic(str,strlen)
        if str="" then
               gotTopic=""
               exit function
        end if
        dim l,t,c, i
        str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
        l=len(str)
        t=0
        for i=1 to l
               c=Abs(Asc(Mid(str,i,1)))
               if c>255 then
                    t=t+2
               else
                    t=t+1
               end if
               if t>=strlen then
...

阅读全文…
分类: ASP | 永久链接 | 评论: 0 | 引用: 0 | 浏览: 2285
1