<script language=vbscript>
function cuted(types,num)
dim ctypes,cnum,ci,tt,tc
ctypes=types:cnum=int(num):cuted="":tc=0
if cnum<=0 then
cuted=ctypes
exit function
end if
for ci=1 to len(ctypes)
if cnum<0 then exit for
tt=mid(ctypes,ci,1)
if int(asc(tt))>=0 then
cuted=cuted&tt:tc=tc+1
if tc=2 then tc=0:cnum=cnum-1
else
cnum=cnum-1
if cnum<0 then exit for
cuted=cuted&tt
end if
next
End Function
document.write cuted("视 觉:《A艺1》--西方唱片美术设计(1 ",10)
document.write "<br>"
document.write cuted("经营管理厚黑学英国经典服装板型(英国)",10)
</script>