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 %>

　　推荐阅读

　　ASP小偷(远程数据获取)程序的入门教程

这里所说的“小偷”指的是在ASP中运用XML中的XMLHTTP组件提供的强大功能，把远程网站上的数据（图片，网页及其他文件）抓取到本地，经过各种处理后显示到页面上或者存储进数据库的一类程序。你可以通过这种小偷程序>>>详细阅读

本文标题：截取实际长度字符串，并用空格替换

地址：http://www.17bianji.com/kaifa2/ASP/33325.html

 1/2    1