asp截取字符串的两种应用 原创

答案：1、纯粹的截取字符串
[复制此代码]CODE:

function cutstr(thestr1,strlen) 
dim l,t,c 
l=len(thestr1) 
if l<1 then exit function 
t=0 
for dxy1=1 to l 
c=Abs(asc(Mid(thestr1,dxy1,1))) 
if c>255 then 
t=t+2 
else 
t=t+1 
end if 
if t>=strlen then 
thev=mid(thestr1,1,dxy1) 
exit for 
else 
thev=thestr1 
end if 
next 
cutstr=thev 
end function

2、截取字符串，不足用空格补上
[复制此代码]CODE:

function cutstr(thestr,strlen) 
dim l,t,c 
l=len(thestr) 
t=0 
for dxy=1 to l 
c=Abs(asc(Mid(thestr,dxy,1))) 
if c>255 then 
t=t+2 
else 
t=t+1 
end if 
if t>=strlen then 
thev=left(thestr,dxy) 
exit for 
else 
bu=strlen-t 
for bui=1 to bu 
strbu=" " 
strbuall=strbuall&strbu 
next 
thev=thestr&strbuall 
strbu="" 
strbuall="" 
end if 
next 
cutstr=thev 
end function

上一个：jb51内容分页函数 原创
下一个：用ASP应用程序实现自己的UrlDeCode