上传功能FilePath错误

Question

嘿家伙在这里有一个asp脚本的麻烦。下面是我使用的上传功能，让用户上传图片的代码

<% 
' Create the FileUploader 
Dim Uploader, File, FileSys, FilePath 
Set Uploader = New FileUploader 

' This starts the upload process 
Uploader.Upload() 

' Check if any files were uploaded 

If Uploader.Files.Count = 0 Then 
    Response.Write "File(s) not uploaded." 
Else 
    ' Loop through the uploaded files 
    For Each File In Uploader.Files.Items 

     ' Set upload Path and Filename to check if that file already exists 
     FilePath = "C:\inetpub\wwwroot\coursework2\database\uploads\"&File.FileName 
     Set FileSys = CreateObject("Scripting.FileSystemObject") 

     ' If intended uploaded file already exists in the specified directory do alert and redirect previous page 
     If FileSys.FileExists(FilePath) then 
      Response.Write("<script>alert('Sorry FileName:"& File.FileName &" Already Used!! Please Rename Your Local File')</script>") 
      Response.Write("<script>window.location.href='index.asp'</script>") 
     else 
      ' Else Save the file 
      File.SaveToDisk "C:\inetpub\wwwroot\coursework2\database\uploads" 
     end if 
    Next 
    ' Confirm file saved and redirect to previous page if more files to be uploaded 
    Response.Write("<script>alert('File Saved')</script>") 
    Response.Write("<script>window.location.href='index.asp'</script>") 
End If 

%> 

这是连接字符串我试图上传的文件过

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source="& Server.MapPath("/dek0272/coursework2/database/uploads") 

这是服务器我想，当我和文件路径来file.save磁盘位置改变到这个地址来设置文件路径和File.save磁盘位置作为

http://focserver.londonmet.ac.uk/dek0272/coursework2/database/uploads/ 

。该功能不会上传任何内容。我相信我在写错误的路径。我尝试过很多方法来写它，但仍然没有运气。

任何建议

感谢

这是upLoadFunctions.asp文件

<% 

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 

     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 

Answer 1

你得到任何ASP错误信息？如果是的话，什么错误代码？如果没有，请尝试一个无效的文件路径以引发错误（查看文件路径是否是问题）。

AFAIK此行

Set FileSys = CreateObject("Scripting.FileSystemObject") 

应该

Set FileSys = Server.CreateObject("Scripting.FileSystemObject") 

错误的另一个可能的来源： 你检查的文件路径文件夹是否得到了适当的书面许可？对于如何设置IIS 7.5书写权限（=赢服务器2008R2）看到：

How do I give ASP.NET permission to write to a folder in Windows 7?