asp 截取字符串函数

最新推荐文章于 2021-06-05 02:59:16 发布

最新推荐文章于 2021-06-05 02:59:16 发布 · 309 阅读

文章标签：

#ASP

简单的一种

以下是代码片段：
       <%
      if len(rs("title")) > 10 then  ’判断字符串的长度
       response.Write left(rs("title"),9)&" ..."
       else
       response.write rs("title")
       end if

函数的：

   Function InterceptString(text,length) ’函数名
   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,ii,1)) < 0 or asc(mid(text,ii,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