checksql.asp

来自「功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来」· ASP 代码 · 共 24 行

<%
Function checksql(sstring)
        Dim TempStr
        if Not isNull(sstring) then
                TempStr = sstring
                TempStr = LCase(TempStr)
                TempStr = Replace(TempStr,"select","xxxxxx")
                TempStr = Replace(TempStr,"insert","xxxxxx")
                TempStr = Replace(TempStr,"update","xxxxxx")
                TempStr = Replace(TempStr,"delete","xxxxxx")
                TempStr = Replace(TempStr,"'","''")
                TempStr = Replace(TempStr,";","")
                TempStr = Replace(TempStr," ","")
                TempStr = Replace(TempStr,"　","")
                TempStr = Replace(TempStr,"*","")
                TempStr = Replace(TempStr,"%","")
        Else
                TempStr = ""
        End if
        checksql = TempStr
End Function 
%>