selfhtml.de - Alles für den Webmaster!

Anzeige: Goneo - Du machst das Web!

Anzeige: united-domains - Die ganze Welt der Domains

Bildupload auf einen anderen Server im gleichen Netz

Autor: Theorie [Beiträge: 1]
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

%>

Antwort schreiben

Username:	Usernamen registrieren
Passwort:	Passwort vergessen?
Thema:
	Bitte benutze für deinen Beitrag die Groß-/Kleinschreibung!
Beitrag:	> 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 > > %>
Link (URL):
Titel für Link:
Grafik (URL):
	Die Breite der Grafik darf 468 Pixel nicht überschreiten.

E-Mail-Benachrichtigung:

wenn auf einen Beitrag zu diesem Thema geantwortet wird
nur wenn auf meinen eigenen Beitrag geantwortet wird
nie

Zum Abschicken deines Beitrags bitte die Schaltfläche "Abschicken" nur einmal anklicken und warten. Der Server braucht manchmal einige Zeit, bis er den Beitrag in die Datenbank übernommen hat. Wenn du die Schaltfläche mehrmals drückst, erscheint dein Beitrag auch mehrmals im Forum.

Bewerten Sie Ihren Webhosting-Provider

Wie zufrieden sind Sie mit Ihrem Webhosting-Provider? Gibt es Probleme beim Service, mit der Performance oder der Abrechnung?

Teilen Sie jetzt Ihre Erfahrungen mit anderen Webmastern und schreiben Sie eine Provider-Bewertung. Mit etwas Glück können Sie ein Apple iPad gewinnen!

Weitere Informationen und Teilnahme...