Upload von Dateien

[haene]

Tach

Ich such schon lange nach einer Lösung, wie man mit ASP (ohne zusätzliche Komponenten) einen Datei Upload (from Client to Server) hinkriegt. Da es einmal im Selfhtml einen Artikel darüber gegeben hat, sollte das ja Dokumentiert sein. Also, falls jemand noch etwas darüber weiss, soll er sich bitte melden.

Danke

[Capior]

Tach

tach auch!

Ich such schon lange nach einer Lösung, wie man mit ASP (ohne zusätzliche Komponenten) einen Datei Upload (from Client to Server) hinkriegt. Da es einmal im Selfhtml einen Artikel darüber gegeben hat, sollte das ja Dokumentiert sein. Also, falls jemand noch etwas darüber weiss, soll er sich bitte melden.

schau das mal an...

Danke

<%
Response.Expires = 0
Response.Buffer = true
Server.ScriptTimeOut = 300
laenge = Request.TotalBytes

maxsize = 150000

uploadfolder = Server.MapPath(Request.ServerVariables("URL"))
uploadfolder = Replace(Left(uploadfolder,len(uploadfolder)-(len(uploadfolder)-InstrRev(uploadfolder,"")+1)),"update","Ueberbauungen",1,-1,1) & "\images" & Session("ub_name")

if laenge > 0 then
 ProcessUpload
else
 DoRedirect
end if

sub DoRedirect
 Response.Redirect "edit_pics_ueberbauung.asp?ID=" & Session("ub_id") & ""
end sub

sub ProcessUpload
 if laenge > maxsize then
  muell = Request.BinaryRead(laenge)
 else
  set util = Server.CreateObject("ixsso.Util")
  rawpost = ""
  for x=1 to laenge
   bytedata = (util.GetArrayElement(Request.BinaryRead(1),0))
   rawpost = rawpost + chr(bytedata)
  next
  set util = Nothing

findstart = InStr(rawpost, vbCrLf & vbCrLf)
  if findstart>0 then
   rawfiledata = mid(rawpost, findstart+4)
   headerdata = left(rawpost, findstart)
   delimiter = left(headerdata, 40)

startpos = InstrRev(headerdata, "filename=")
   startpos = Instr(startpos, headerdata, """")
   endpos = Instr(startpos+1, headerdata, """")
   filename = mid(headerdata, startpos+1, endpos-startpos-1)
   if filename = "" then
    DoRedirect
   end if

startpos = Instr(rawfiledata, delimiter)
   rawfiledata = left(rawfiledata, startpos-3)

set fs = Server.CreateObject("Scripting.FileSystemObject")

if not right(uploadfolder,1)="" then
    uploadfolder = uploadfolder + ""
   end if

fileownname = fs.GetFileName(filename)
   if not fs.FolderExists(uploadfolder) then
    DoRedirect
   end if
   set fh = fs.CreateTextFile(uploadfolder & fileownname, vbTrue)
   fh.Write rawfiledata
   fh.close

set fh = Nothing
   set fs = Nothing
   DoRedirect
  end if
 end if
end sub
%>

[Stampferl]

Hallo Capior!

Weisst du wie man mit dem Script _mehrere_ Dateien hochladen und abfragen kann?
Habe ein ähnliches script, was auch gut funktioniert, allerdings scheitere ich, wenn es darum geht mehrere Dateien hochzuladen....
Wäre Klasse, wenn du was weisst.

Viele Grüsse
Alex!

[Capior]

Hallo Capior!

tschö!

Weisst du wie man mit dem Script _mehrere_ Dateien hochladen und abfragen kann?
Habe ein ähnliches script, was auch gut funktioniert, allerdings scheitere ich, wenn es darum geht mehrere Dateien hochzuladen....
Wäre Klasse, wenn du was weisst.

hehe, sorry...keine ahnung :-)
noch nie versucht...weiss ned obs geht

Viele Grüsse
Alex!

schöne, cu
  capior

[haene]

Danke für deine Hilfe

Es funktioniert nun sogar.

Ich wollte noch fragen, ob es vieleicht noch eine schnellere möglichkeit gibt, um files hochzuladen.

gruss

[Stefan Falz]

Tach

Auch ;)

Ich such schon lange nach einer Lösung, wie man mit ASP (ohne zusätzliche Komponenten) einen Datei Upload (from Client to Server) hinkriegt. Da es einmal im Selfhtml einen Artikel darüber gegeben hat, sollte das ja Dokumentiert sein. Also, falls jemand noch etwas darüber weiss, soll er sich bitte melden.

http://www.asp-solutions.de/i-service/?EntryID=42

Danke

Bitte,

Stefan