Как проверить, является ли форма полем входного файла?Асп Классик

Question

У меня есть код, который проверяет входные значения, прежде чем вставить его в БД. И он работает как надо, он проверяет все входные данные формы, но я хотел бы, чтобы он исключил все входные данные для загрузки файлов, поэтому он не проверяет значения входных данных для файлов при загрузке изображения. Но я не знаю, как заставить это работать, поэтому любой вклад действительно приветствуется. Спасибо.

Это то, что у меня сейчас есть.

    Dim BlackList, ErrorPage
    BlackList = Array("#","$","%","^","&","|",_
                      "<",">","'","""","(",")",_
                      "--", "/*", "*/", "@@",_
                      "cursor","exec","execute",_
                      "nchar", "varchar", "nvarchar", "iframe", "char", "alter", "begin", "cast", "create", "insert","delete", "drop", "table"_
                      )

        Function CheckStringForSQL(str,varType) 
          On Error Resume Next 
          Dim lstr 
          ' If the string is empty, return false that means pass
          If ( IsEmpty(str) ) Then
            CheckStringForSQL = false
            Exit Function
          ElseIf ( StrComp(str, "") = 0 ) Then
            CheckStringForSQL = false
            Exit Function
          End If

          lstr = LCase(str)
          ' Check if the string contains any patterns in our black list
          For Each s in BlackList
            If(IsExceptionList(s,varType)=False) then
                If ( InStr (lstr, s) <> 0 ) Then
                  CheckStringForSQL = true
                  Exit Function
                End If
            End If
          Next
          CheckStringForSQL = false
        End Function 

        CookieExceptionList = Array("""","(",")","!")
        Function IsExceptionList(str,varType)
            If(varType="cookie") then
                For Each item in CookieExceptionList
                    If(item=str) then
                        IsExceptionList=True
                        Exit Function
                    End If
                Next
            End If
            IsExceptionList=False
        End Function

--SO HERE I NEED TO CHECK IF IT IS A FILE INPUT, AND IF SO, NOT RUN THE BELOW--
        For Each s in Request.form
          If ( CheckStringForSQL(Request.form(s),"form") ) Then

            feltext="Fel"
          End If
        Next