Jag har nu försökt skapa en liten uploadsida där man ska kunna ladda upp loggos till en sida.
Loggon ska sparas som samma namn som ett ID den får i databasen.
Varje gång jag försöker ladda upp en fil får jag dock felmeddelandet
aspSmartUpload.File error '80040460'
Unable to save file (Error 1120)
logo.asp line 87
Mappen som bilden ska laddas upp i och mappen som logo.asp ligger i har skrivrättigheter.
Rad 87 är raden med blå text.
ElseIf Request("page") = "add" Then
If Request("action") = "" Then
%>
<form name="addform" method="post" action="logos.asp?page=add&action=addlogo" enctype="multipart/form-data">
<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td>
Välj bild(775x75px):
</td>
<td>
<input type="file" name="file">
</td>
</tr>
<tr>
<td colspan="2">
<a href="javascript:addform.submit()">Ladda upp</a>
</td>
</tr>
</table>
</form>
<%
ElseIf Request("action") = "addlogo" Then
SQL = "INSERT INTO logos(ext) VALUES('')"
Connect.Execute(SQL)
Set rs = Connect.Execute("SELECT @@IDENTITY")
filename = rs(0)
Dim upload
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.Upload
ext = objUpload.files.item(1).fileext
[blue]objUpload.Save("D:\en massa mappar\images\logos\" & filename & "." & ext)[/blue]
Set upload = Nothing
rs.Close
Set rs = Nothing
SQL = "UPDATE logos SET ext = '" & ext & "' WHERE LID = " & filename & ""
Connect.Execute(SQL)
Response.Write("Loggon har laddats upp!<br><br style=""line-height: 4px;""><a href=""logos.asp?page=add""><-- Tillbaka</a>")
End If
Någon som kan se något fel för det kan inte jag? :(
objUpload.Files.Item(1).SaveAs("D:\en massa mappar\images\logos\" & filename & "." & ext)
Fungerade inte, samma felmeddelande. :l
@nders: Jag ska kolla upp ännu en gång med rättigheterna, jag har ingen fysisk tillgång till servern(står i Portland ;) ) så man vet ju aldrig.
Sen har jag kollat upp så mycket dokumentation jag bara kan samt att jag har småterroriserat dig på MSN. ;)
Kan du inte arbeta lokalt, och sedan när det är klart ladda upp? Det är svårt att felsöka när man inte har tillgång till servern, och inte vet om det fungerar egentligen.
Fan Sebbe, jag älskar dig! :f :D :f ;) :f
Det fungerade nu helt plötsligt, vet inte vad som var fel förut men jaja, det fungerar iallafall. ;)
@nders: Kan tyvärr inte jobba lokalt på det här då vi är två som jobbar på den och behöver ha senast uppdaterade filerna tillgängliga hela tiden. ;) :)
Förresten, jag ska ställa en massa frågor till dig resten av dagen nu. §e ;)
VALUES(' ') <- tom?????
Ska denna rad se ut så här? Isåna fall vad läggs in i databasen? Undrar bara?
Jag lägger till en post för att få ett ID att döpa bilden efter, sedan när bilden har blivit uppladdad så uppdateras fältet med ett värde(filändelsen på bilden). :)
VALUES(' ') <- tom?????
Ska denna rad se ut så här? Isåna fall vad läggs in i databasen? Undrar bara?
Jag lägger till en post för att få ett ID att döpa bilden efter, sedan när bilden har blivit uppladdad så uppdateras fältet med ett värde(filändelsen på bilden). :)
Hmmm, nu har jag problem igen, dock inte med att ladda upp bilder utan att ta bort dom(lika bra att fortsätta skriva i den här tråden istället för att skapa en ny). ;)
Tänkte använda FSO till detta ändamål men det vill inte riktigt fungera. :l
Jag får inget felmeddelande utan allt verkar fungera fast när jag kollar på ftpn så ligger bilden kvar. :l
ElseIf Request("page") = "del" Then
Set rs = Connect.Execute("SELECT ext FROM logos WHERE LID = " & Request("LID") & "")
If rs.EOF Then
Response.Write("Filen kunde hittas!<br><br style=""line-height: 4px;""><a href=""javascript:history.go(-1)""><-- Tillbaka</a>")
Else
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists("../images/logos/" & Request("LID") & "." & rs("ext")) then
fso.DeleteFile("../images/logos/" & Request("LID") & "." & rs("ext"))
End If
Set fso = Nothing
End If
rs.Close
Set rs = Nothing
SQL = "DELETE FROM logos WHERE LID = " & Request("LID") & ""
Connect.Execute(SQL)
Response.Write("Loggon har tagits bort!<br><br style=""line-height: 4px;""><a href=""logos.asp""><-- Tillbaka</a>")
