selfhtml.de - Alles für den Webmaster!

 

Empfehlung:

wix.com

Kostenlose Homepage

Besuchen Sie auch:

Jobs:

Bildupload auf einen anderen Server im gleichen Netz

Autor: Theorie
Datum: 16.06.2010 13:46:47

Guten Tag allerseits,

Ich habe ein Script welches mir ein Bild hinauflädt.
Es funktioniert auch wenn ich den Pfad auf dem gleichen Server zuweise. Nun möchte ich aber das die Bilder auf einen anderen, Freigegeben Server die Bilder hinauflädt. Funktionieren tut es aber nicht. Was mache ich falsch?

P.s Das Respons.Write jeweils am Schluss brauche ich für den CKEditor, sprich überflüssig.

<%@ Language=VBScript %>
<!-- #include file="upLoadFunctions.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 = "\serverDokumente8Datenknowhowdbbilder"&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('Dateiname: "& File.FileName &" wird schon verwendet.')</script>")
    writepath = "\\server\Dokumente\8Daten\knowhowd\bbilder" & File.FileName
    Response.Write ("<script>window.parent.CKEDITOR.tools.callFunction('1','"& writepath &"');</script>")
        else
            ' Else Save the file
    File.SaveToDisk "\\server\Dokumente\8Daten\knowhowdb\bilder"
         Response.Write("<script>alert('Datei wurde gespeichert')</script>")  
    writepath = "\\server\Dokumente\8Daten\knowhowdb\bilder" & File.FileName
    Response.Write ("<script>window.parent.CKEDITOR.tools.callFunction('1','"& writepath &"');</script>")
        end if
    Next

End If

%>