Jquery中文网 www.jquerycn.cn
Jquery中文网 >  脚本编程  >  Asp.net  >  正文 asp字符串截取函数

asp字符串截取函数

发布时间:2016-09-25   编辑:www.jquerycn.cn
jquery中文网为您提供asp字符串截取函数等资源,欢迎您收藏本站,我们将为您提供最新的asp字符串截取函数资源

'本文章提供这款asp字符串截取函数原是是先用定义字符串判别函数判断字符串长度以及中英文,再把字符截取后定义超出部分内容的...显示方式

<blockquote>

function strvalue(str,lennum)
dim p_num
dim i
if strlen(str)<=lennum then
strvalue=str
else
p_num=0
x=0
do while not p_num > lennum-2
x=x 1
if asc(mid(str,x,1))<0 then
p_num=int(p_num) 2
else
p_num=int(p_num) 1
end if
strvalue=left(trim(str),x)&"…" '截取后定义超出部分内容的显示方式
loop
end if
end function

'定义字符串判别函数www.jquerycn.cn
function strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) 2
else
strlen=int(strlen) 1
end if
next
end if
end function

''截取字符串,1.包括前后字符串,2.不包括前后字符串
function strcut(strcontent,startstr,endstr,cuttype)
dim s1,s2
on error resume next
select case cuttype
case 1
  s1 = instr(strcontent,startstr)
  s2 = instr(s1,strcontent,endstr) len(endstr)
case 2
  s1 = instr(strcontent,startstr) len(startstr)
  s2 = instr(s1,strcontent,endstr)
end select
if err then
  strcute = "<p align='center' ><font size=-1>截取字符串出错.</font></p>"
  err.clear
  exit function
else
  strcut = mid(strcontent,s1,s2-s1)
end if
end function

</blockquote>

您可能感兴趣的文章:
php如何截取字符串后四位
php截取字符串(无乱码 utf8)
asp字符截取函数
asp字符串截取函数
php中文字符截取函数(自用)
php中文截取字符串mb_substr的用法
php中文截取字符串函数(很好用)
php 字符串截取函数(可以自动清除网页标签)
php中文字符串截取方法
php截取中文字符串的二个函数(iconv_substr和mb_substr)

[关闭]