’******************************************
’ str1 允许的字符串列表
’ str2 外部输入字符串列表
’******************************************
Function isValid(str1,str2)
’Dim strText
isValid = False
For i = 1 to Len(Trim(str2))
If i = 1 Then
If (Mid(str2,i,1) = "_") Or (Mid(str2,i,1) = "-")   Then
isValid = False
Exit For
End If
End If
If InStr(str1,Mid(str2,i,1)) > 0 Then
isValid = True
Else
isValid = False
Exit For
End If
Next
End Function
str1 = "0123456789"
if not isValid(str1,request("id")) Then
response.write "
警告！请不要尝试提交非法字符！你的IP已经被记录！
本页3秒后自动 返回
"
Response.end

End if
’******************************************
’ str1 允许的字符串列表
’ str2 外部输入字符串列表
’******************************************