asp字符串截取函数[网站编程]

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

function strvalue(str,lennum)  
dim p_num  
dim i  
if strlen(str)<=lennum then  
strstrvalue=str  
else  
p_num=0 
x=0 
do while not p_num > lennum-2  
xx=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.111cn.net  
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