function.asp

非常一般

<%
  '过滤危险字符
    Function Eck(InChar)
        Dim NewChar
        NewChar = Replace(Inchar,"and","")
        NewChar = Replace(Inchar,"1=1","")
        NewChar = Replace(Inchar,"or","")
        NewChar = Replace(Inchar,"=","")
        NewChar = Replace(Inchar,"'","")
        NewChar = Replace(NewChar,"_","")
        NewChar = Replace(NewChar,"*","")
        NewChar = Replace(NewChar,"	","")
        NewChar = Replace(NewChar,chr(34),"")
        NewChar = Replace(NewChar,chr(39),"")
        NewChar = Replace(NewChar,chr(37),"")
        NewChar = Replace(NewChar,"{","")
        NewChar = Replace(NewChar,"}","")
        ' 中括号 NewChar = Replace(NewChar,chr(91),"")
        ' 中括号 NewChar = Replace(NewChar,chr(93),"")
        ' 冒号 NewChar = Replace(NewChar,chr(58),"")
        NewChar = Replace(NewChar,chr(59),"")
        ' 加号 NewChar = Replace(NewChar,chr(43),"")
        Eck = NewChar
    End Function 
%>