本文章提供这款asp字符串截取函数原是是先用定义字符串判别函数判断字符串长度以及中英文再把字符截取后定义超出部分内容的显示方式
function strvalue(strlennum)
dim p_num
dim i
if strlen(str)<=lennum then
strvalue=str
else
p_num=
x=
do while not p_num > lennum
x=x+
if asc(mid(strx))< then
p_num=int(p_num) +
else
p_num=int(p_num) +
end if
strvalue=left(trim(str)x)&"…" 截取后定义超出部分内容的显示方式
loop
end if
end function
定义字符串判别函数
function strlen(str)
dim p_len
p_len=
strlen=
if trim(str)<>"" then
p_len=len(trim(str))
for xx= to p_len
if asc(mid(strxx))< then
strlen=int(strlen) +
else
strlen=int(strlen) +
end if
next
end if
end function
截取字符串包括前后字符串不包括前后字符串
function strcut(strcontentstartstrendstrcuttype)
dim ss
on error resume next
select case cuttype
case
s = instr(strcontentstartstr)
s = instr(sstrcontentendstr)+len(endstr)
case
s = instr(strcontentstartstr)+len(startstr)
s = instr(sstrcontentendstr)
end select
if err then
strcute = "<p align=center ><font size=>截取字符串出错</font></p>"
errclear
exit function
else
strcut = mid(strcontentsss)
end if
end function
