upfile_class_old.asp
资源名称:imail.rar [点击查看]
上传用户:lwb168
上传日期:2021-10-31
资源大小:722k
文件大小:5k
源码类别:
Email服务器
开发平台:
ASP/ASPX
- <%
- '----------------------------------------------------------------------
- '转发时请保留此声明信息,这段声明不并会影响你的速度!
- '******************* 无惧上传类 V1.2 ************************************
- '作者:梁无惧
- '网站:http://www.25cn.com
- '电子邮件:yjlrb@21cn.com
- '版权声明:版权所有,源代码公开,各种用途均可免费使用,但是修改后必须把修改后的文件
- '发送一份给作者.并且保留作者此版权信息
- '**********************************************************************
- '----------------------------------------------------------------------
- Dim oUpFileStream
- '----------------------------------------------------------------------
- '文件上传类
- Class UpFile_Class
- Dim Form,File,Version,Err
- Private Sub Class_Initialize
- Version = "无惧上传类 Version V1.2"
- Err = -1
- End Sub
- Private Sub Class_Terminate
- '清除变量及对像
- If Err < 0 Then
- Form.RemoveAll
- Set Form = Nothing
- File.RemoveAll
- Set File = Nothing
- oUpFileStream.Close
- Set oUpFileStream = Nothing
- End If
- End Sub
- Public Sub GetData (MaxSize)
- '定义变量
- Dim RequestBinData,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
- Dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
- Dim iFindStart,iFindEnd
- Dim iFormStart,iFormEnd,sFormName
- '代码开始
- If Request.TotalBytes < 1 Then '如果没有数据上传
- Err = 1
- Exit Sub
- End If
- If MaxSize > 0 Then '如果限制大小
- If Request.TotalBytes > MaxSize Then
- Err = 2 '如果上传的数据超出限制
- Exit Sub
- End If
- End If
- Set Form = Server.CreateObject ("Scripting.Dictionary")
- Form.CompareMode = 1
- Set File = Server.CreateObject ("Scripting.Dictionary")
- File.CompareMode = 1
- Set tStream = Server.CreateObject ("ADODB.Stream")
- Set oUpFileStream = Server.CreateObject ("ADODB.Stream")
- oUpFileStream.Type = 1
- oUpFileStream.Mode = 3
- oUpFileStream.Open
- oUpFileStream.Write Request.BinaryRead (Request.TotalBytes)
- oUpFileStream.Position = 0
- RequestBinData = oUpFileStream.Read
- iFormEnd = oUpFileStream.Size
- bCrLf = ChrB (13) & ChrB (10)
- '取得每个项目之间的分隔符
- sSpace = MidB (RequestBinData,1, InStrB (1,RequestBinData,bCrLf)-1)
- iStart = LenB (sSpace)
- iFormStart = iStart+2
- '分解项目
- Do
- iInfoEnd = InStrB (iFormStart,RequestBinData,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,RequestBinData,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 = Mid (sFileName,InStrRev (sFileName, ".")+1)
- iFindStart = InStr (iFindEnd,sInfo,"Content-Type: ",1)+14
- iFindEnd = InStr (iFindStart,sInfo,vbCr)
- oFileInfo.FileType = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
- oFileInfo.FileStart = iInfoEnd
- oFileInfo.FileSize = iFormStart -iInfoEnd -2
- oFileInfo.FormName = sFormName
- 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
- End If
- tStream.Close
- iFormStart = iFormStart+iStart+2
- '如果到文件尾了就退出
- Loop Until (iFormStart+2) >= iFormEnd
- RequestBinData = ""
- Set tStream = Nothing
- End Sub
- End Class
- '----------------------------------------------------------------------------------------------------
- '文件属性类
- Class FileInfo_Class
- Dim FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt
- '保存文件方法
- Public Function SaveToFile (Path)
- On Error Resume Next
- Dim oFileStream
- 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 Function
- '取得文件数据
- Public Function FileData
- oUpFileStream.Position = FileStart
- FileData = oUpFileStream.Read (FileSize)
- End Function
- End Class
- %>