Public Function CheckRegExp(sources,para)
  If para="[username]" Then
   para="^[.A-Za-z0-9u4e00-u9fa5]+$"
  End If
  If para="[password]" Then
   para="^[a-z0-9]+$"
  End If
  If para="[email]" Then
   para="^([0-9a-zA-Z]([-.w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-w]*.)+[a-zA-Z]*)$"
  End If
  If para="[homepage]" Then
   para="^[a-zA-Z]+://[a-zA-z0-9-./]+?/*$"
  End If
  If para="[nojapan]" Then
   para="[u3040-u30ff]+"
  End If
  If para="[guid]" Then
   para="^w{8}-w{4}-w{4}-w{4}-w{12}$"
  End If
  If para="[idcard]" Then
   para="^\d{17}(\d|x)$"
  End If
  Dim re
  Set re = New RegExp
  re.Global = True
  re.Pattern = para
  re.IgnoreCase = False
  CheckRegExp = re.Test(sources)
 End Function
 %>