<%
'For Each r In Request.QueryString
If RegExpTest("[%<>\s';]+",Request.QueryString) then
Response.Write("<script language='javascript'>alert('信息有誤！');</script>")
Response.End()
end If
'Next
'vbscript正則表達式測試方法
function RegExpTest(patrn, strng)
Dim regEx ' 建立變量。
Set regEx = New RegExp ' 建立正則表達式。
regEx.Pattern = patrn ' 設置模式。
regEx.IgnoreCase = False ' 設置是否區分大小寫。
RegExpTest = regEx.Test(strng) ' 執行搜索測試。
end Function
%>
