function.asp

来自「非常一般」· ASP 代码 · 共 25 行

<%
  '过滤危险字符
    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 
%>