代码问题

[gdwebinfo]

如何保证一个字符串只是由英文或数字组成的？
用 VBScript 代码怎么写？急~~~

[胡萝卜ss]

Function ttt(s)
Dim reg
Set reg = New RegExp
reg.Pattern = "^[a-zA-Z0-9][a-zA-Z0-9]*$ "
reg.Global = True
ttt = reg.Test(s)
Set reg = Nothing
End Function

a = ????
If ttt(a) Then
'ok
Else
'failed
End If

[gdwebinfo]

ok啦~