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

　　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

　　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