该类能够从文件的内部判断文件的类型，避免了通过文件名判断文件类型的bug
Upload.inc
< %文件上传类 ' ---------------------------------------------------------------------- ' 添加以下属性： ' InceptFileType 允许上传的文件类型，以英文逗号“,”分隔。 ' 添加以下方法： ' FileWidth 图片宽度 ' FileHeight 图片高度 ' ---------------------------------------------------------------------- ' *********************************************************************** Dim oUpFileStreamClass UpFile_Class Public Form,File,Version,Err Private CHK_FileType,CHK_MaxSize Private Sub Class_Initialize Version = " 上传类 Version V1.0 " Err = - 1 CHK_FileType = "" CHK_MaxSize = - 1 Set Form = Server.CreateObject ( " Scripting.Dictionary " ) Set File = Server.CreateObject ( " Scripting.Dictionary " ) Set oUpFileStream = Server.CreateObject ( " Adodb.Stream " ) Form.CompareMode = 1 File.CompareMode = 1 oUpFileStream.Type = 1 oUpFileStream.Mode = 3 oUpFileStream.Open End Sub Private Sub Class_Terminate ' 清除变量及对像 Form.RemoveAll Set Form = Nothing File.RemoveAll Set File = Nothing oUpFileStream.Close Set oUpFileStream = Nothing End Sub Public Property Get InceptFileType InceptFileType = CHK_FileType End Property Public Property Let InceptFileType(Byval vType) CHK_FileType = vType End Property Public Property Get MaxSize MaxSize = CHK_MaxSize End Property Public Property Let MaxSize(vSize) If IsNumeric (vSize) Then CHK_MaxSize = Int (vSize) End Property Public Sub GetDate() ' 定义变量 Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoEnd,tStream,iStart,oFileInfo Dim sFormValue,sFileName,sFormName,RequestSize Dim iFindStart,iFindEnd,iFormStart,iFormEnd,FileBlag ' 代码开始 RequestSize = Int (Request.TotalBytes) If RequestSize < 1 Then Err = 1 Exit Sub End If Set tStream = Server.CreateObject ( " Adodb.Stream " ) oUpFileStream.Write Request.BinaryRead (RequestSize) oUpFileStream.Position = 0 RequestBinDate = oUpFileStream.Read iFormEnd = oUpFileStream.Size bCrLf = ChrB ( 13 ) & ChrB ( 10 ) ' 取得每个项目之间的分隔符 sSpace = MidB (RequestBinDate, 1 , InStrB ( 1 ,RequestBinDate,bCrLf) - 1 ) iStart = LenB (sSpace) iFormStart = iStart + 2 ' 分解项目 Do iInfoEnd = InStrB (iFormStart,RequestBinDate,bCrLf & bCrLf) + 3 tStream.Type = 1 tStream.Mode = 3 tStream.Open oUpFileStream.Position = iFormStart oUpFileStream.CopyTo tStream,iInfoEnd - iFormStart tStream.Position = 0 tStream.Type = 2 tStream.CharSet = " gb2312 " sInfo = tStream.ReadText ' 取得表单项目名称 iFormStart = InStrB (iInfoEnd,RequestBinDate,sSpace) - 1 iFindStart = InStr ( 22 ,sInfo, " name="" " , 1 ) + 6 iFindEnd = InStr (iFindStart,sInfo, " "" " , 1 ) sFormName = Mid (sinfo,iFindStart,iFindEnd - iFindStart) ' 如果是文件 If InStr ( 45 ,sInfo, " filename="" " , 1 ) > 0 Then Set oFileInfo = new FileInfo_Class ' 取得文件属性 iFindStart = InStr (iFindEnd,sInfo, " filename="" " , 1 ) + 10 iFindEnd = InStr (iFindStart,sInfo, " "" " , 1 ) sFileName = Mid (sinfo,iFindStart,iFindEnd - iFindStart) oFileInfo.FileName = Mid (sFileName, InStrRev (sFileName, " " ) + 1 ) oFileInfo.FilePath = Left (sFileName, InStrRev (sFileName, " " )) oFileInfo.FileExt = Lcase ( Mid (sFileName, InStrRev (sFileName, " . " ) + 1 )) iFindStart = InStr (iFindEnd,sInfo, " Content-Type: " , 1 ) + 14 iFindEnd = InStr (iFindStart,sInfo,vbCr) oFileInfo.FileType = Ucase ( Mid (sinfo,iFindStart,iFindEnd - iFindStart)) oFileInfo.FileStart = iInfoEnd oFileInfo.FileSize = iFormStart - iInfoEnd - 2 oFileInfo.FormName = sFormName If Instr (oFileInfo.FileType, " IMAGE/ " ) Or Instr (oFileInfo.FileType, " FLASH " ) Then FileBlag = GetImageSize oFileInfo.FileExt = FileBlag( 0 ) oFileInfo.FileWidth = FileBlag( 1 ) oFileInfo.FileHeight = FileBlag( 2 ) FileBlag = Empty End If If CHK_MaxSize > 0 Then If oFileInfo.FileSize > CHK_MaxSize Then Err = 2 Exit Sub End If End If If CheckErr(oFileInfo.FileExt) = False Then Exit Sub End If File.Add sFormName,oFileInfo Else ' 如果是表单项目 tStream.Close tStream.Type = 1 tStream.Mode = 3 tStream.Open oUpFileStream.Position = iInfoEnd oUpFileStream.CopyTo tStream,iFormStart - iInfoEnd - 2 tStream.Position = 0 tStream.Type = 2 tStream.CharSet = " gb2312 " sFormValue = tStream.ReadText If Form.Exists (sFormName) Then _ Form (sFormName) = Form (sFormName) & " , " & sFormValue _ Else _ Form.Add sFormName,sFormValue End If tStream.Close iFormStart = iFormStart + iStart + 2 ' 如果到文件尾了就退出 Loop Until (iFormStart + 2 ) = iFormEnd RequestBinDate = "" Set tStream = Nothing End Sub ' ==================================================================== ' 验证上传类型 ' ==================================================================== Private Function CheckErr(Byval ChkExt) CheckErr = False If CHK_FileType = "" Then CheckErr = True : Exit Function Dim ChkStr ChkStr = " , " & Lcase (CHK_FileType) & " , " If Instr (ChkStr, " , " & ChkExt & " , " ) > 0 Then CheckErr = True Else Err = 3 End If End Function ' ==================================================================== ' 图像宽高类型读取 ' ==================================================================== Private Function Bin2Str(Byval Bin) Dim i, Str, Sclow For i = 1 To LenB(Bin) Sclow = MidB(Bin,i, 1 ) If ASCB(Sclow) < 128 Then Str = Str & Chr (ASCB(Sclow)) Else i = i + 1 If i <= LenB(Bin) Then Str = Str & Chr (ASCW(MidB(Bin,i, 1 ) & Sclow)) End If Next Bin2Str = Str End Function Private Function Num2Str(Byval num,Byval Base,Byval Lens) Dim ImageSize ImageSize = "" While (num >= Base) ImageSize = (num mod Base) & ImageSize num = (num - num mod Base) / Base Wend Num2Str = Right ( String (Lens, " 0 " ) & num & ImageSize,Lens) End Function Private Function Str2Num(Byval str,Byval Base) Dim ImageSize,i ImageSize = 0 For i = 1 To Len (str) ImageSize = ImageSize * Base + Cint ( Mid (str,i, 1 )) Next Str2Num = ImageSize End Function Private Function BinVal(Byval bin) Dim ImageSize,i ImageSize = 0 For i = lenb(bin) To 1 Step - 1 ImageSize = ImageSize * 256 + ASCB(Midb(bin,i, 1 )) Next BinVal = ImageSize End Function Private Function BinVal2(Byval bin) Dim ImageSize,i ImageSize = 0 For i = 1 To Lenb(bin) ImageSize = ImageSize * 256 + ASCB(Midb(bin,i, 1 )) Next BinVal2 = ImageSize End Function Private Function GetImageSize() Dim ImageSize( 2 ),bFlag bFlag = oUpFileStream.Read( 3 ) Select Case Hex (BinVal(bFlag)) Case " 4E5089 " : oUpFileStream.Read( 15 ) ImageSize( 0 ) = " png " ImageSize( 1 ) = BinVal2(oUpFileStream.Read( 2 )) oUpFileStream.Read( 2 ) ImageSize( 2 ) = BinVal2(oUpFileStream.Read( 2 )) Case " 464947 " : oUpFileStream.Read( 3 ) ImageSize( 0 ) = " gif " ImageSize( 1 ) = BinVal(oUpFileStream.Read( 2 )) ImageSize( 2 ) = BinVal(oUpFileStream.Read( 2 )) Case " 535746 " : Dim BinData,sConv,nBits oUpFileStream.Read( 5 ) BinData = oUpFileStream.Read( 1 ) sConv = Num2Str(ASCB(BinData), 2 , 8 ) nBits = Str2Num( Left (sConv, 5 ), 2 ) sConv = Mid (sConv, 6 ) While ( Len (sConv) < nBits * 4 ) BinData = oUpFileStream.Read( 1 ) sConv = sConv & Num2Str(ASCB(BinData), 2 , 8 ) Wend ImageSize( 0 ) = " swf " ImageSize( 1 ) = Int ( ABS (Str2Num( Mid (sConv, 1 * nBits + 1 ,nBits), 2 ) - Str2Num( Mid (sConv, 0 * nBits + 1 ,nBits), 2 )) / 20 ) ImageSize( 2 ) = Int ( ABS (Str2Num( Mid (sConv, 3 * nBits + 1 ,nBits), 2 ) - Str2Num( Mid (sConv, 2 * nBits + 1 ,nBits), 2 )) / 20 ) Case " 535743 " : ' flashmx ImageSize( 0 ) = " swf " ImageSize( 1 ) = 0 ImageSize( 2 ) = 0 Case " FFD8FF " : Dim p1 Do Do : p1 = BinVal(oUpFileStream.Read( 1 )): Loop While p1 = 255 And Not oUpFileStream.EOS If p1 > 191 and p1 < 196 Then Exit Do Else oUpFileStream.Read(BinVal2(oUpFileStream.Read( 2 )) - 2 ) Do :p1 = BinVal(oUpFileStream.Read( 1 )): Loop While p1 < 255 And Not oUpFileStream.EOS Loop While True oUpFileStream.Read( 3 ) ImageSize( 0 ) = " jpg " ImageSize( 2 ) = BinVal2(oUpFileStream.Read( 2 )) ImageSize( 1 ) = BinVal2(oUpFileStream.Read( 2 )) Case Else : If Left (Bin2Str(bFlag), 2 ) = " BM " Then oUpFileStream.Read( 15 ) ImageSize( 0 ) = " bmp " ImageSize( 1 ) = BinVal(oUpFileStream.Read( 4 )) ImageSize( 2 ) = BinVal(oUpFileStream.Read( 4 )) Else ImageSize( 0 ) = " (UNKNOWN) " End If End Select GetImagesize = ImageSize End Function End Class ' 文件属性类 Class FileInfo_Class Public FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt,FileWidth,FileHeight Private Sub Class_Initialize FileWidth = 0 FileHeight = 0 End Sub ' 保存文件方法 Public Sub SaveToFile (Byval Path) Dim Ext,oFileStream Ext = LCase ( Mid (Path, InStrRev (Path, " . " ) + 1 )) If Ext <> FileExt Then Exit Sub If Trim (Path) = "" or FileStart = 0 or FileName = "" or Right (Path, 1 ) = " / " Then Exit Sub ' On Error Resume Next Set oFileStream = CreateObject ( " Adodb.Stream " ) oFileStream.Type = 1 oFileStream.Mode = 3 oFileStream.Open oUpFileStream.Position = FileStart oUpFileStream.CopyTo oFileStream,FileSize oFileStream.SaveToFile Path, 2 oFileStream.Close Set oFileStream = Nothing End Sub ' 取得文件数据 Public Function FileData oUpFileStream.Position = FileStart FileData = oUpFileStream.Read (FileSize) End Function End Class% >