[ASP]File upload - Softwareontwikkeling

dinsdag 23 december 2003 04:49

Acties:

Verwijderd

Topicstarter

Ik heb een file uploader "gemaakt"

Simpel form post naar onderstaande code:

code:

<html><body>
<%
    ' This code is needed to "initialize" the 
    ' retrieved data
    Dim q
    q = Chr(34)
    ' All data
    Dim aAllDataB, aAllData, x, aHdr
    aAllDataB = Request.BinaryRead(Request.TotalBytes)
    ' It comes in as unicode, so convert it to ascii
    For x = 1 To LenB(aAllDataB)
        aAllData = aAllData & Chr(AscB(MidB( _
            aAllDataB, x, 1)))
    Next
    ' The "header" is a unique string generated by the 
    ' system to indicate the beginning
    ' and end of file data
    aHdr = Left(aAllData, Instr(aAllData,vbCrLf)+1)
%>

<%
    ' Here's where your code goes.
    ' In this example, "file1" and "file2" are the 
    ' field names specified within the form of the 
    ' upload submission page.
    Response.Write "file1: Filename = " & _
        GetFilename("file1") & "<br>"
    Response.Write ("file1") _
& "<br><br>"


    ' Writing out the file data like this only looks 
    ' OK when the uploaded file is some kind of text 
    ' &#8212; images and things like that probably just need 
    ' to be saved or otherwise acted upon.
    'Response.Write Replace(aAllData,vbCrLf,"<br>")

    Dim aFilename
    ' aFilename equates to the original filename, 
    ' except saved in the root path of the server. 
    ' The root path must have Change rights for the 
    ' default Internet user.
    aFilename = ("d:/pathnaarmapmetuploadrechten")
        GetFileName("file1")
        response.write afilename
    Call SaveFile("file1", aFilename)

%>
</body></html>


<%
    ' These are functions used to retrieve the data
Function GetFileName(aField)
    Dim x2, i
    x = Instr(aAllData, aHdr & _
        "Content-Disposition: form-data; name=" & _
        q & aField & q)
    x = Instr(x, aAllData, "filename=" & q)
    x2 = Instr(x, aAllData, vbCrLf)
    For i = x2 To x Step -1
        If Mid(aAllData,i,1) = "\" Then
            x = i - 9
            Exit For
        End If
    Next
    GetFileName = Mid(aAllData, x+10, x2-(x+11))
End Function
Function GetFileData(aField)
    Dim x2
    x = Instr(aAllData, aHdr & _
        "Content-Disposition: form-data; name=" & _
        q & aField & q)
    x = Instr(x, aAllData, vbCrLf)
    x = Instr(x+1, aAllData, vbCrLf)
    x = Instr(x+1, aAllData, vbCrLf) + 2
    x2 = Instr(x, aAllData, Left(aHdr,Len(aHdr)-2))
    GetFileData = Mid(aAllData, x+2, x2-x-4)
End Function
Function SaveFile(aField, aFilename)
    Dim FSO, TS
    Set FSO = _
        server.CreateObject( _
        "Scripting.FileSystemObject")
    Set TS = FSO.CreateTextFile(aFilename, True, _
        False)
    TS.Write GetFileData(aField)
    TS.Close
    Set TS = Nothing
    Set FSO = Nothing
End Function
%>

Hij zegt alleen:
permision denied. Meestal betekend dit dat er niet genoeg rechten op de betreffende map.
Maar die rechten staan in mijn geval wel goed, omdat een ander scriptje wel kan uploaden in die map.

De regel waar de fout in staat is:

code:

1 2	Set TS = FSO.CreateTextFile(aFilename, True, _ False)

Ik heb dit script niet zelf gemaakt, dus ik vraag me ook af waarom hij een textfile gaat maken. Maar weglaten gaat ook niet. Het lijkt mij dat hier een ander commando moet staan, omdat dit script bestemd is voor images en niet voor text.

dinsdag 23 december 2003 09:00

Acties:

TeeDee

CQB 241

Lijkt mij het handigst als je de maker van het originele script hierover mailt.

Heart..pumps blood.Has nothing to do with emotion! Bored

dinsdag 23 december 2003 09:06

Acties:

sig69

Waarom gebruik je dat andere script niet, als dat wel werkt?

Roomba E5 te koop

dinsdag 23 december 2003 09:17

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

Meestal betekend dit dat er niet genoeg rechten op de betreffende map.

Les 1 in debuggen: Trek alle bestaande gegevens in twijfel. Welke rechten staan er op je upload map?

Ik heb dit script niet zelf gemaakt, dus ik vraag me ook af waarom hij een textfile gaat maken

Kijk eens 2 regels verder; hij 'misbruikt' een textfile.

Ow ja, en als je een script download, kopieert, etc.; wie zegt dat dit script werkt en goed is?

[ Voor 14% gewijzigd door gorgi_19 op 23-12-2003 09:19 ]

Digitaal onderwijsmateriaal, leermateriaal voor hbo

woensdag 24 december 2003 00:40

Acties:

Verwijderd

Topicstarter

sig69 schreef op 23 december 2003 @ 09:06:
Waarom gebruik je dat andere script niet, als dat wel werkt?

Ik kan met dit component meer doen als met die andere.

woensdag 24 december 2003 00:42

Acties:

Verwijderd

Topicstarter

gorgi_19 schreef op 23 december 2003 @ 09:17:
[...]

Les 1 in debuggen: Trek alle bestaande gegevens in twijfel. Welke rechten staan er op je upload map?

[...]

Kijk eens 2 regels verder; hij 'misbruikt' een textfile.

Ow ja, en als je een script download, kopieert, etc.; wie zegt dat dit script werkt en goed is?

De rechten in die upload map staan goed, een ander upload script werkt er wel op.

Ik zeg niet dat dit script goed is. Daarom post ik het ook hier.

woensdag 24 december 2003 01:31

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

De rechten in die upload map staan goed, een ander upload script werkt er wel op.

Mja.. Als dit je principe is van debuggen, dan kan het nogal een lang karwei gaan worden....

Impersonation bijvoorbeeld, anyone?

offtopic:
Anders gezegd: Ik ken het andere script niet, weet dus niet hoe het intern werkt en hoe hij een en ander regelt, dus is het niet uit te sluiten dat er een rechtenprobleem zit

[ Voor 48% gewijzigd door gorgi_19 op 24-12-2003 01:45 ]

Digitaal onderwijsmateriaal, leermateriaal voor hbo

woensdag 24 december 2003 02:51

Acties:

Verwijderd

Topicstarter

gorgi_19 schreef op 24 december 2003 @ 01:31:
[...]

Mja.. Als dit je principe is van debuggen, dan kan het nogal een lang karwei gaan worden....

Impersonation bijvoorbeeld, anyone?

offtopic:
Anders gezegd: Ik ken het andere script niet, weet dus niet hoe het intern werkt en hoe hij een en ander regelt, dus is het niet uit te sluiten dat er een rechtenprobleem zit

Ik ben er al uit, maar je had al in mijn soortgelijke topic gepost, dus dat wist je al