关于判断正则的问题，快来帮下！

[chong6]

这个代码应该如何写哦？
我要弄判断当有包含数字就显示有包含数字，没有就没有！
正确应该如何写？

<%
str="6565656"

if RegExpfind("[\da-z]*", str) then
Response.write "有包含数字"
else
Response.write "没有包含数字"
end if
%>

[Atai-Lu]

正则：\d+

[Atai-Lu]

'//--正则检测--//
Function isMach(str,reg)
	if isnull(str) or str="" then isMach=false:exit function
	Set regEx = New RegExp
	regEx.Pattern = reg
	regEx.IgnoreCase = true
	regEx.Global = true
	isMach = regEx.test(str)
	Set reg=nothing
End Function
if isMach("sdfd333", "\d+") then
Response.write "有包含数字"
else
Response.write "没有包含数字"
end if

[chong6]

能给下具体代码吗？
帮改下~~~不要单独给一点，我怕我套错~

[gw6328]

[\d+]看这个行不行

[hookee]

<%
str="6565656"

if RegExpfind("[\d]+", str) then
Response.write "有包含数字"
else
Response.write "没有包含数字"
end if

Function RegExpfind(p, s)
	Dim re
	Set re = New RegExp
	re.Pattern = p
	re.Global = True
    RegExpfind = re.Test(s)
End Function

%>