其实可以用查找asc码确定它是否为英文或中文(好在中文没有asc码^_^)比如
str="abcdefghijklmn"
redim i,j,k
j=0
for i=1 to 118 '如果您想查到英文为止,我记得大Z是118
for j=1 to len(str)
if instr(str,j)=chr(i) then
因为是英文,所以要做您的想做的语句
else
是中文,做您想做的语句
end if
next
next
<%
function putspace(content,a)
dim str,i,j,lenth
i=0
lenth=len(content)
for j=1 to lenth
if i=a then
str=str & " "
i=0
end if
str=str & mid(content,j,1)
i=i+1
next
putspace=str
end function
'像下面一样用
response.Write(putspace("bubuytzc",3))
%>