checksql.asp

网络办公系统

<%
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 
%>