需要判断每个字符吗??还是只要有一个英文字母就算英文
你得说明白呀
给你个判断所有字符必须都是英文的吧,你可以把它写成一个函数,直接调用就可以了
dim a
a="12355515"
isword=true
for i=1 to len(a)
if asc(lcase(mid(a,i,1)))<97 or asc(lcase(mid(a,i,1)))>122 then
isword=false
exit for
end if
next
if isword=true then
response.write a&"是英文"
else
response.write a&"不是英文"
end if