Vet inte om det här varit uppe mycket innan, men hittar inget så jag testar ifall man kan få lite hjälp
Jag vill ladda upp en bild, får inte vara större än en speciell storlek samt man skall bestämma i vilken katalog den skall ligga...
Jag har testar med upload från ASP-kod, nu sitter jag och testar med Persits ASPUpload.
Största problemet är att skicka med i vilken katalog filen skall ligga, får typ fel som:
An error occurred: Wrong Content-Type. Make sure you have included the attribute ENCTYPE="multipart/form-data" in your form.
... Hur kan jag komma igenom det här ? ...
Kan man skicka den strängen på något annat sätt?
Detta är iallafall koden för att ladda upp
<%
Dim Upload, subdir, Path, File, MyID
Set Upload = Server.CreateObject("Persits.Upload")
MyID = Session("MyID")
On Error Resume Next
If len(Upload.Form("subdir")) = 0 Then
response.Redirect "http://localhost/my_upload.asp?FEL=catalog"
End If
' we use memory uploads, so we must limit file size
Upload.SetMaxSize 100000, True
' Save to memory. Path parameter is omitted
Upload.Save
' access subdirectory specified by user
subdir = Upload.Form("subdir")
' Build path string
Path = "c:\upload\" & subdir
' Create path, ignore "already exists" error
Upload.CreateDirectory Path, True
' 8 is the number of "File too large" exception
If Err.Number = 8 Then
Response.Write "Your file is too large. Please try again."
Else
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
Else
For Each File in Upload.Files
If Right(UCase(File.FileName, 3)) = "JPG" Then
File.SaveAs Path & "\" & File.FileName
Else
response.Redirect "http://localhost/my_upload.asp?FEL=filformat"
End If
Next
End If
End If
Response.Redirect "http://localhost/user_main.asp"
%>
Väljer jag att inte skicka med en fil och inte väljer en katalog ur selecboxen så funkar det...
Men ifall jag tar en fil eller väljer fil och katalog så funkar det inte. Kan komma undan det om jag tar bort If-satsen, men då hamnar inte filerna där de skall (om man då inte väljer en katalog)