<script language="vbscript">
function BRFilter(sStr)
Dim regEx
Set regEx=new RegExp
regEx.Global=true
regEx.Pattern="(wj\d{2}-消\d{4}){1}"
BRFilter = regEx.test(sStr)
Set regEx=nothing
End function
Dim str,str2
str="wj22-消3333"
str2="wj20-消3435"
alert(BRFilter(str))
alert(BRFilter(str2))
</script>
<script language="vbscript">
function BRFilter(sStr)
Dim regEx
Set regEx=new RegExp
regEx.Global=true
regEx.Pattern="(wj\d{2}-消\d{4}){1}"
BRFilter = regEx.test(sStr)
Set regEx=nothing
End function
Dim str,str2
str="wj22-Ïû3333"
str2="wj20-Ïû3435"
alert(BRFilter(str))
alert(BRFilter(str2))
</script>
<script language="vbscript">
function BRFilter(sStr)
Dim regEx
Set regEx=new RegExp
regEx.Global=true
regEx.Pattern="(wj\d{2}-Ïû\d{4}){1}"
BRFilter = regEx.test(sStr)
Set regEx=nothing
End function
Dim str,str2
str="wj22-Ïû3333"
str2="wj20-Ïû3435"
alert(BRFilter(str))
alert(BRFilter(str2))
</script>