【正文】
eamp。 p=c end if unicode=unicodeamp。amp。amp。jamp。 end if next end function function cutline(str,linelen) dim i,j,c,k cutline= j=0 for i=1 to len(str) c=mid(str,i,1) if asc(c)0 or asc(c)127 then k=2 else if asc(c)32 then k=0 if asc(c)=13 then j=0 cutline=cutline+br/+c c= end if