无组件上传.docx

1、无组件上传第一个文件Class_UpFiles.asp 内容%Dim UpFileStreamClass UpFile_Class Dim Form,File,Err Private Sub Class_Initialize Err = -1 End Sub Private Sub Class_Terminate 清除变量及对像 If Err 0 Then Form.RemoveAll Set Form = Nothing File.RemoveAll Set File = Nothing UpFileStream.Close Set UpFileStream = Nothing End If

2、 End Sub Public Sub GetData(MaxSize) 定义变量 Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo Dim iFileSize,sFilePath,sFileType,sFormValue,sFileName Dim iFindStart,iFindEnd Dim iFormStart,iFormEnd,sFormName 代码开始 If Request.TotalBytes 0 Then 如果限制大小 If Request.TotalBytes

3、 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 UpFileStream = Server.CreateObject (ADOD

4、B.Stream) UpFileStream.Type = 1 UpFileStream.Mode = 3 UpFileStream.Open UpFileStream.Write Request.BinaryRead (Request.TotalBytes) UpFileStream.Position = 0 RequestBinDate = UpFileStream.Read iFormEnd = UpFileStream.Size bCrLf = ChrB (13) & ChrB (10) 取得每个项目之间的分隔符 sSpace = MidB (RequestBinDate,1, InS

5、trB (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 UpFileStream.Position = iFormStart UpFileStream.CopyTo tStream,iInfoEnd-iFormStart tStream.Position = 0 tSt

6、ream.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 T

7、hen 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 (sF

8、ileName, ) 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 -iIn

9、foEnd -2 oFileInfo.FormName = sFormName file.add sFormName,oFileInfo Else 如果是表单项目 tStream.Close tStream.Type = 1 tStream.Mode = 3 tStream.Open UpFileStream.Position = iInfoEnd UpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2 tStream.Position = 0 tStream.Type = 2 tStream.CharSet = gb2312 sFormValue

10、= 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 RequestBinDate = Set tStream = Nothing End SubEnd Cl

11、ass-文件属性类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 UpFileStream.Position

12、 = FileStart UpFileStream.CopyTo oFileStream,FileSize oFileStream.SaveToFile Path,2 oFileStream.Close Set oFileStream = Nothing End Function 取得文件数据 Public Function FileData UpFileStream.Position = FileStart FileData = UpFileStream.Read (FileSize) End FunctionEnd Class%第二个文件 Form_UpFiles.asp内容上传文件 &n

13、bsp;是  否 第三个文件Save_UpFiles.asp %限制从外部非法提交，检测是否在同一域名（地址）下If Instr(Request.ServerVariables(http_referer),http:/ & Request.Servervariables(host) ) 1 Then http_referer是指来源页，host是指站内地址 Response.Write 处理 URL 时服务器上出错!请与管理员联系. Response.End End IfConst G_FS_FSO = Scripting.FileSystemObject FSO组件名称-

14、Dim AllowFileType 申明文件类型的变量 AllowFileType = jpg|gif|rar|zip|exe 给变量附值Dim AllowFileSize 申明文件大小的变量 AllowFileSize = 102400 给变量附值 Dim Create_DateCatalog 创建上传文件存储目录 Create_DateCatalog = True 是否开启创建日期目录-Dim AutoReName,UpFileObj,FileObject,FormName,FileName,FileExtStr,strFileNameDim Fso,SavePath,AutoSavePa

15、th,AppearErr,ClueOn_Msg,StrJsDim SameFileTF,No_UpFileTF,RealityPath-SavePath = uploading 保存所上传文件的目录If Right(SavePath,1) / Then 从路径的右边第一个取值如果不是“/”,那么- SavePath = SavePath & / 定义一个新的路径，即在远路径的目录下再建一目录End IfSet UpFileObj = New UpFile_ClassUpFileObj.GetData(10240000)AutoReName = Trim(UpFileObj.Form(AutoRename) 是否自动重命名文件ClueOn_Msg = No_UpFileTF = TrueAppearErr = FalseIf IsObjInstalled(G_FS_FSO) = True Then-Set Fso = Server.CreateObject(G_FS_FSO) - For Each FormName in UpFileObj.File 列出所有上传了的文件 Set FileObject = UpFileObj.File(FormName) 生成一个文件对象 SameFileTF = False FileName = FileObject.FileName