请教高手,判断一个字符串是否由小写字母和数字共8位数组成,并且该字符串必由小写字母或数字,不能全是小写字母或数字

我想用关正则表达式写,
function isNumbOrLett( s )'判断是否是小写字母、数字组成
set re = new RegExp
re.pattern = "[0-9a-z]{8}"
re.Global = True
re.IgnoreCase =false
re.MultiLine = True
if re.test(s)then isNumbOrLett=true
end function

这是我写的好象不对,请教高手

"不能全是小写字母或数字"这一点比较麻烦

function check(s)
if len(s)<>8 then
check=false
else
set regEx=new RegExp
regEx.pattern="((\d+\w+)|(\w+\d+))+"
regEx.Global=true
regEx.IgnoreCase=false
if regEx.replace(s)="" then
check=true
else
check=false
end if
end if
end function

感觉上好像可以，你试试看

如果以上的不行，就只有笨的方法了，可以这样处理
function check(s)
if len(s)<>8 then
check=false
else
set regEx=new RegExp
regEx.Global=true
regEx.IgnoreCase=false
regEx.pattern="\d"
s=regEx.replace(s)
if s="" or len(s)=8 then
check=false
else
regEx.pattern="\w"
s=regEx.replace(s)
if s="" then
check=true
else
check=false
end if
end if
end if
end function

[此贴子已经被作者于2006-10-13 16:36:32编辑过]

谢谢斑竹,我试试

好象不行啊,我测试了下
1. 这个w,它包含'_',有'_'也行

2. 8位都是数字也行的
我改了一个,好象还行的,不知道有没有漏洞,呵呵

function isNumbOrLett( s )'判断是否是小写字母、数字组成
if len(s)<>8 then exit function
set re = new RegExp
re.pattern = "[0-9a-z]{8}"
re.Global = True
re.IgnoreCase =false
re.MultiLine = True
if re.test(s) then
re.pattern = "\d"
if re.test(s) then
re.pattern = "[a-z]"
if re.test(s) then isNumbOrLett=true
end if
end if
end function