ASP动态网页实例：表单多文件上传类

        Private Function CheckFile
            Dim oBoolean : oBoolean = True
            If cFields = "" Then
               oBoolean = oBoolean And True
            Else
               For i = 0 To itemCount - 1
                   If extenArr(i) <> "" Then
                      If InStr(1, Ucase(cFields), "" & Ucase(Mid(extenArr(i), 2)) & "") > 0 Then
                         oBoolean = oBoolean And True
                      Else
                         sErrors = sErrors & "表单[ " & itemName(i) & " ]的文件格式错误！\n" & _
                                             "支持的格式为：" & Replace(Mid(cFields, 2, Len(cFields) - 1), "", " ") & "\n\n"
                         oBoolean = oBoolean And False    
                      End If
                   End If
               Next
            End If

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:学习ASP有用的文本框过滤函数

下一篇:ASP实现的日历代码实例程序