asp中用正则表达式过滤字符，避免注入攻击

' ============================================
' 正则表达式
' 参数patrn 规则
' 参数strng 字符
' 常用过滤纯数字ID 方法 RegExpStr("[0-9]", id)
' ============================================
Function RegExpStr(patrn, strng)
 Dim regEx, Match, Matches ' 建立变量。
 Set regEx = New RegExp ' 建立正则表达式。
 regEx.Pattern = patrn ' 设置模式。
 regEx.IgnoreCase = True ' 设置是否区分字符大小写。
 regEx.Global = True ' 设置全局可用性。
 Set Matches = regEx.Execute(strng) ' 执行搜索。
 For Each Match in Matches ' 遍历匹配集合。
  'RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
  RetStr = RetStr & Match.Value
 Next
 RegExpStr = RetStr
End Function

用正则表达式过滤id
newsid = RegExpStr("[0-9]", Request.QueryString("newsid"))