Ladda upp bilder till servern med ASP ?

Nä, det går ju inte att använda request.form, men det går ju att hämta ändå...

Använder oftast W3 upload och då skriver man bara typ:

set upLoad = Server.CreateObject ("w3.upload")
rutan=upload.Form("rutan")

I denna versionen (scriptet utan komponent) skriver man ju:

rutan = UploadRequest.Item("rutan").Item("Value")

Det ska funka (tror jag...)

Ska prova det med att skicka med javascript som Vide föreslog.

Tack!

------------------
Fredrik Klarqvist
fredrik.klarqvist@swipnet.se
www.streetwise.se/fredrik/

Hm, när jag använder fredriks script så går det bra att ladda upp vanlig text, men bilder blir oläsbara, varför??

------------------
/Nils Wikberg
-"Law and order are for weak minds. Chaos requires management.

hm....konstigt....för mig har det funkar överallt hitills och jag har använt den på flera ställen, både för bilder, databaser, excel m.m. filer

Säker på att koden är komplett?
vad är det för bild du försöker ladda upp? (filtyp) så kan jag testa om jag får den att funka hos mig.

------------------
Fredrik Klarqvist
fredrik.klarqvist@swipnet.se
www.streetwise.se/fredrik/

Jag har prövat med både .gif och .jpg filer, har även textat att ladda upp ett teckensnitt men även det blev korrupt.

Koden jag använde är den ovan, kopierad rakt av, men om du har någon nyare/annorlunda kod så skulle det kanske hjälpa.

------------------
/Nils Wikberg
-"Law and order are for weak minds. Chaos requires management.

nä...jag använder själv ovanstående kod och det funkar utmärkt....använder själv den på vissa produktioner som ligger ute....och allt funkar som det ska.

Vad kör du för OS?
...och browser?

Jag har för mig att det strulade lite för mig när jag testade den på Mac.

------------------
Fredrik Klarqvist
fredrik.klarqvist@swipnet.se
www.streetwise.se/fredrik/

Hejsan, jag använder win98 & har testat i både netscape och explorer, men utan framgång.

------------------
/Nils Wikberg
-"Law and order are for weak minds. Chaos requires management.

hmm...det var ju lite knepigare det...ja, det finns nog inget att göra åt det scriptet då...kan bara säga att det funkar fint hos mig och andra som provat det.

Du får väl köra med en komponent istället:
Jag kan rekommendera någon av följande: http://www.dimac.se
(klicka på komponenter och w3 upload, finns för gratis hemladdningt tror jag)

...eller: http://www.softartisans.com/

------------------
Fredrik Klarqvist
fredrik.klarqvist@swipnet.se
www.streetwise.se/fredrik/

Ok, will do.

Tack för hjälpen iaf :)

------------------
/Nils Wikberg
-"Law and order are for weak minds. Chaos requires management.

Testade det för första gången idag, fungerade klockrent. Behöver nu hjälp av en vänlig skäl att få scriptet att ladda upp ca 8 bilder samtidigt via formulär, är detta möjligt?

Andreas

Jag använder ditt script Fredrik och laddar upp en bild till en mapp på servern. Det funkar utmärkt.

Mitt problem är nu precis som AG's att man ska kunna ladda upp fler. Går det med ditt script Fredrik?

Jadå, det ska inte vara några problem, har dock inte testat själv, men borde funka att använda följande del:

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("test/"&filename))
response.write(Server.mappath(filename)) 

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

flera gånger. Byt bara ut namnet "blob" till det andra namnet på din "file"-ruta. Bygg gärna in det i en metod för att spara utrymme.
------------------
Fredrik Klarqvist
fredrik.klarqvist@swipnet.se
http://server.webwerkstaden.se/fredde/

[Redigerat av fredrik den 26 jun 2001]

Problemet kommer när man inte fyller i varje fil-fält.

Går att komma runt med On Error Resume Next

Följande kod funkar för att ladda upp flera filer:
Upload flera filer

Kolla att alla sökvägar är korrekta och stämmmer överens med de som ni har och att fil fälten måste vara döpta till:
txt_File1
txt_File2
txt_File3
etc.

Man kanske skulle kunna göra ngt med javascript på klientsidan för att kolla om vilka fält som har värden med sig och på det sättet komma runt on error resume next, fast det överlåter jag till någon som kan javascript *ler*

cya,
PatrikB

------------------
*Det tar sig sa han som hade eld i håret*

[Redigerat av PatrikB den 26 jun 2001]

Jag förstår inte varför jag inte kan få upload att fungera på Win XP och den IIS som finns där.
Det funkar på Win98 och PWS.

Det "hänger sig" och sedankommer följande felmeddelande :

"Active Server Pages, ASP 0113 (0x80004005)
Den maximala tiden att köra ett skript överskreds. Du kan ändra den här gränsen genom att ange ett nytt värde för Server.ScriptTimeout eller genom att ändra värdet i IIS-administrationsverktyget."

Jag har provat flera olika uploadscript (utan komponenter) som jag funnit, men med samma resultat.

Är det någon som kan ge mig några tips på hur man fixar detta?

MvH

David

Fixade det själv.

IIS hängde sig för att jag hade Norton Antivirus Script Blocking aktiverad.

Stänger man av den funktionen så funkar det!!!

David