原創著作,產權保護 政府、投票、評選、公安、學校、問卷、視頻會議專注發展中小企事業 系統報價 | 支付帳號 | 授權查證
    計算機著作版權登記號:2014SR032463 手機:+86-1373066-4304 | QQ:1213920482 歡迎選擇智睿軟件系統 歡迎選擇智睿軟件系統
智睿軟件系統
ASP SQL防注入過濾函數,過濾SQL注入
來源:智睿 瀏覽:529 次 發布時間:2019-09-07 07:49:12
Function Checkstr(Str)
 If Isnull(Str) Then
  CheckStr = ""
  Exit Function 
 End If
 Str = Replace(Str,Chr(0),"", 1, -1, 1)
 Str = Replace(Str, """", """, 1, -1, 1)
 Str = Replace(Str,"<","&lt;", 1, -1, 1)
 Str = Replace(Str,">","&gt;", 1, -1, 1) 
 Str = Replace(Str, "script", "&#115;cript", 1, -1, 0)
 Str = Replace(Str, "SCRIPT", "&#083;CRIPT", 1, -1, 0)
 Str = Replace(Str, "Script", "&#083;cript", 1, -1, 0)
 Str = Replace(Str, "script", "&#083;cript", 1, -1, 1)
 Str = Replace(Str, "object", "&#111;bject", 1, -1, 0)
 Str = Replace(Str, "OBJECT", "&#079;BJECT", 1, -1, 0)
 Str = Replace(Str, "Object", "&#079;bject", 1, -1, 0)
 Str = Replace(Str, "object", "&#079;bject", 1, -1, 1)
 Str = Replace(Str, "applet", "&#097;pplet", 1, -1, 0)
 Str = Replace(Str, "APPLET", "&#065;PPLET", 1, -1, 0)
 Str = Replace(Str, "Applet", "&#065;pplet", 1, -1, 0)
 Str = Replace(Str, "applet", "&#065;pplet", 1, -1, 1)
 Str = Replace(Str, "[", "&#091;")
 Str = Replace(Str, "]", "&#093;")
 Str = Replace(Str, """", "", 1, -1, 1)
 Str = Replace(Str, "=", "&#061;", 1, -1, 1)
 Str = Replace(Str, "'", "''", 1, -1, 1)
 Str = Replace(Str, "select", "select", 1, -1, 1)
 Str = Replace(Str, "execute", "&#101xecute", 1, -1, 1)
 Str = Replace(Str, "exec", "&#101xec", 1, -1, 1)
 Str = Replace(Str, "join", "join", 1, -1, 1)
 Str = Replace(Str, "union", "union", 1, -1, 1)
 Str = Replace(Str, "where", "where", 1, -1, 1)
 Str = Replace(Str, "insert", "insert", 1, -1, 1)
 Str = Replace(Str, "delete", "delete", 1, -1, 1)
 Str = Replace(Str, "update", "update", 1, -1, 1)
 Str = Replace(Str, "like", "like", 1, -1, 1)
 Str = Replace(Str, "drop", "drop", 1, -1, 1)
 Str = Replace(Str, "create", "create", 1, -1, 1)
 Str = Replace(Str, "rename", "rename", 1, -1, 1)
 Str = Replace(Str, "count", "co&#117;nt", 1, -1, 1)
 Str = Replace(Str, "chr", "c&#104;r", 1, -1, 1)
 Str = Replace(Str, "mid", "m&#105;d", 1, -1, 1)
 Str = Replace(Str, "truncate", "trunc&#097;te", 1, -1, 1)
 Str = Replace(Str, "nchar", "nch&#097;r", 1, -1, 1)
 Str = Replace(Str, "char", "ch&#097;r", 1, -1, 1)
 Str = Replace(Str, "alter", "alter", 1, -1, 1)
 Str = Replace(Str, "cast", "cast", 1, -1, 1)
 Str = Replace(Str, "exists", "e&#120;ists", 1, -1, 1)
 Str = Replace(Str,Chr(13),"<br>", 1, -1, 1)
 CheckStr = Replace(Str,"'","''", 1, -1, 1)
End Function
【刷新頁面】【加入收藏】【打印此文】 【關閉窗口】
上一篇:xss跨站腳本攻擊漏洞防注入安全修復方案 下一篇:智睿錄取查詢報名系統 V 10.0.1 學校報名系統,學校錄取系統,學校招生系統
海南4十1中奖规则