截取实际长度字符串，并用空格替换


            function cutstr(thestr,strlen)dim l,t,cl=len(thestr)t=0for dxy=1 to lc=Abs(asc(Mid(thestr,dxy,1)))if c>255 thent=t+2elset=t+1end ifif t>=strlen thenthev=left(thestr,dxy)exit forelsebu=strlen-tfor bui=1 to bustrbu=" "strbuall=strbuall&strbunextthev=thestr&strbuallstrbu=""strbuall=""end ifnextcutstr=thevend function 

<%'============================'函数名w_cut(type,num)'作用：字符串截取'参数type,num'type:字符串内容'num:字符串被截取的长度'=============================

Function w_cut(types,num)  dim ctypes,cnum,ci,tt,tc,cc  ctypes=types:cnum=int(num):w_cut="":tc=0:cc=0  for ci=1 to len(ctypes)    if cnum<0 then w_cut=w_cut&"...":exit for    tt=mid(ctypes,ci,1)    if int(asc(tt))>=0 then      w_cut=w_cut&tt      tc=tc+1:cc=cc+1      if tc=2 then        tc=0:cnum=cnum-1      end if      if cc>5 then cnum=cnum-1:cc=0    else      cnum=cnum-1      if cnum<=0 then w_cut=w_cut&"...":exit for      w_cut=w_cut&tt    end if  nextEnd Function

%>