[ASP] Dateiupload scheitert an verbotener Operation

<%


Class FileUploader
	Public  Files
	Private mcolFormElem


	Private Sub Class_Initialize()
		Set Files = Server.CreateObject("Scripting.Dictionary")
		Set mcolFormElem = Server.CreateObject("Scripting.Dictionary")
	End Sub

	Private Sub Class_Terminate()
		If IsObject(Files) Then
			Files.RemoveAll()
			Set Files = Nothing
		End If
		If IsObject(mcolFormElem) Then
			mcolFormElem.RemoveAll()
			Set mcolFormElem = Nothing
		End If
	End Sub


	Public Property Get Form(sIndex)
		Form = ""
		If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex))
	End Property


	Public Default Sub Upload()
		Dim biData, sInputName
		Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
		Dim nPosFile, nPosBound
'****************************************HIER IST ZEILE 46*********
biData = Request.BinaryRead(Request.TotalBytes)
'****************************************************************
		nPosBegin = 1
		nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

		If (nPosEnd-nPosBegin) <= 0 Then Exit Sub

		vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
		nDataBoundPos = InstrB(1, biData, vDataBounds)

		Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--"))

			nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition"))
			nPos = InstrB(nPos, biData, CByteString("name="))
			nPosBegin = nPos + 6
			nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
			sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
			nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename="))
			nPosBound = InstrB(nPosEnd, biData, vDataBounds)

			If nPosFile <> 0 And  nPosFile < nPosBound Then
				Dim oUploadFile, sFileName
				Set oUploadFile = New UploadedFile

				nPosBegin = nPosFile + 10
				nPosEnd =  InstrB(nPosBegin, biData, CByteString(Chr(34)))
				sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
				oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\"))


				nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))
				nPosBegin = nPos + 14
				nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

				oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))

				nPosBegin = nPosEnd+4
				nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
				oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)

				If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile
			Else
				nPos = InstrB(nPos, biData, CByteString(Chr(13)))
				nPosBegin = nPos + 4
				nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
				If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
			End If


			nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds)
		Loop
	End Sub


	'String to byte string conversion
	Private Function CByteString(sString)
		Dim nIndex
		For nIndex = 1 to Len(sString)
		   CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))
		Next
	End Function


	'Byte string to string conversion
	Private Function CWideString(bsString)
		Dim nIndex
		CWideString =""
		For nIndex = 1 to LenB(bsString)
		   CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1))) 
		Next
	End Function
End Class


Class UploadedFile
	Public ContentType
	Public FileName
	Public FileData

	Public Property Get FileSize()
		FileSize = LenB(FileData)
	End Property


	Public Sub SaveToDisk(sPath)
		Dim oFS, oFile
		Dim nIndex

		If sPath = "" Or FileName = "" Then Exit Sub
		If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"

		Set oFS = Server.CreateObject("Scripting.FileSystemObject")
		If Not oFS.FolderExists(sPath) Then Exit Sub

		Set oFile = oFS.CreateTextFile(sPath & FileName, True)

		For nIndex = 1 to LenB(FileData)
		    oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
		Next


		oFile.Close
	End Sub

	Public Sub SaveToDatabase(ByRef oField)
		If LenB(FileData) = 0 Then Exit Sub

		If IsObject(oField) Then
			oField.AppendChunk FileData
		End If
	End Sub


End Class
%>

' **************************
  ' Upload and save attachment


  if len(request("detach")) > 0 then
    DeleteItem Attachments, request("detach")
  end if

  Set FileSystem = CreateObject("Scripting.FileSystemObject")
  Set Folder = FileSystem.GetFolder(Server.MapPath(UploadPathWeb))

  ' Delete old files...
  For Each File in Folder.SubFolders
    If DateDiff("d", File.DateLastAccessed, Now) > 1 and strcomp(File.Name, "_vti_cnf", 1) <> 0 Then
      response.write "old Folders: " & File.Name & "
"
      File.Delete  
    End if
  Next


  TotalSize = 0
  Container = Attachments
  do while len(Container) > 0
    ' 0 = Name, 1 = Size, 2 = Type
    Item = split(PopItem(Container, 0), "|")
    TotalSize = TotalSize + int(Item(1))
  loop

  Dim Uploader, File
  Set Uploader = New FileUploader
  Uploader.Upload()
  If Uploader.Files.Count > 0 Then
    for Each File In Uploader.Files.Items
      if TotalSize + File.FileSize < (30000000000000000000000 * 1024) then
        StorePath = Server.MapPath(UploadPathWeb & "/" & Session("UserId") & "/")


		
        if not FileSystem.FolderExists(StorePath) then 
          FileSystem.CreateFolder StorePath
        end if
        if FileSystem.FileExists(StorePath & File.FileName) then 
          FileSystem.DeleteFile(StorePath & File.FileName)
        end if

        File.SaveToDisk StorePath

        if LookForKey(Attachments, File.FileName) = false then
          AddItem Attachments, File.FileName, File.FileSize & "|" & File.ContentType, 2
        end if
      end if
    next
  End If

  Session("Attachments") = Attachments