Anzeige: Goneo - Du machst das Web!
Anzeige: united-domains - Die ganze Welt der Domains
Einfache & schnelle Domain-Registrierung zu fairen Preisen ohne Einrichtungsgebühren. Mehr als 250 Domain-Endungen aus einer Hand inklusive E-Mail- & Web-Weiterleitung. Einzigartiges Domain-Portfolio zur bequemen & sicheren Verwaltung Ihrer Domain-Namen.
Jetzt Domain-Check bei united-domains!
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
%>
