过滤所有不健康不合法的文字和字符（ASP函数）

Function ie521(a)
checkstr=request(a)
'网络信息安全过滤词
siftwords="过滤词一|过滤词二|过滤词三|过滤词四|过滤词五"
sift_word=split(siftwords,"|")
sift_num=ubound(sift_word)
for i=0 to sift_num
    if InStr(checkstr,sift_word(i))>0 then
        response.Write "<script>alert('对不起，含有网络信息安全过滤词："& sift_word(i) &"');history.back();</script>"
        response.End()
        exit for
    end if
next
end function