Upload af billede

Her er en sourcecode til et upload system lavet i ASP med password :)
http://asp.dk/sources.asp?mode=view_source&tech_id=1&id=1552

Bedre kan det da ikke blive ?

2 løsninger - en god og en dårlig.

enten går du ind på www.activedeveloper.dk og finder et script der hedder "upload uden komponent - dette er lidt svært og uhensigtsmæssigt at arbejde med men det kan lade sig gøre.

Den bedste løsning er hvis du finder ud af hvilket upload-komponent dit webhotel understøtter og så finder frem til komponentens hjemmeside hvor der plejer at være god dokumentation og gode eksempler

Jeg skulle gerne kunne uploade til min egen IIS 5.0 - skal der installeres nogen komponenter for at dette kan virke?

hvis du finder det omtalte script fra www.activedeveloper.dk skal der ikke installeres nogle komponenter - men det er som sagt ikke helt let at arbejde med.

Det han mener keysersoze er at han vil have at de uploadede filer skal gemmes på hans egen server (IIS 5.0)

Scriptet virker fint nok, men er det ikke muligt at ændre placeringen, så billeder kommer i en mappe?

Set MyFile = ScriptObject.CreateTextFile(Server.mappath(""&filename))

-aco- >> ja, det kan jeg godt læse mig frem til. Og hvor i mit svar mener du at jeg skriver noget andet?

obhat >> jeg har aldrig selv arbejdet med scriptet - men hvis ovenstående er taget direkte fra koden kan du vel bare sætte noget mappe-struktur på - fx;

Set MyFile = ScriptObject.CreateTextFile(Server.mappath("../dinmappe/"&filename))

Af en eller anden grund kan man ikke sætte mappe-struktur på :(

Der opstod en Microsoft VBScript-kørselsfejl (0x800A0046)
Tilladelse nægtet
/billeder/outputFile.asp, line 27

det lyder mere som manglende skrive-rettigheder end at scriptet ikke tillader det.

Jeg ved det ikke, alla rettigheder er slået til på diverse mapper

det kan også betyde at henvisningen bare er forkert - men tør ikke komme med et endeligt svar på det da jeg ikke har arbejdet med scriptet selv.

Ok, lader spørgsmålet stå åbent 1 - 2 dage, måske kommer der et bud på det :)

www.aspsmart.com - kør evt med aspsmartupload som er gratis.

Scriptet her virker pånær ved en mindre ændring af request.form
Nogen der kan se en løsning på dette? - jeg får denne fejl:

BinaryRead kan ikke kaldes, når Request.Form-samling er brugt.

<%
kat = request.form("katagori")

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest(RequestBin)
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")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
'Response.Write (Request.ServerVariables("PATH_INFO"))


Set MyFile = ScriptObject.CreateTextFile(Server.mappath("../fotos/" & kat & "/"&filename))
 

For i = 1 to LenB(value)
    MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
response.redirect("showpic.asp")

    %>

<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest(RequestBin)
kat = UploadRequest.form("katagori")
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")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
'Response.Write (Request.ServerVariables("PATH_INFO"))


Set MyFile = ScriptObject.CreateTextFile(Server.mappath("../fotos/" & kat & "/"&filename))
 

For i = 1 to LenB(value)
    MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
response.redirect("showpic.asp")
%>

Fejler på:

Objektet understøtter ikke denne egenskab eller metode: 'form'
kat = UploadRequest.form("katagori")

Jeg har prnu prøvet at sende data videre både med request.querystring og request.form - querystring forsvinder undervejs, virker kun ved "get data" og request.form tillades ikke af upload scriptet, noget med "request binære" blokeres.???

Hvordan for jeg så serverdata over i scriptet, så jeg kan lave en variabel mappe eks. ""C:/Inetpub/www/billeder/" & kat & ""  ???

Ok, fik ikke noget videre ud af spørgsmålet, men lukker alligevel og fordeler points :)