Jag har ett bildarkiv med AspUpload men skulle vilja ha det som AspSmartUpload. Är det någon som kan hjälpa mig med det?
Här är koden i "bildupload". Tror att det är den enda som behövs.
<%
If not session("login") = True then
Response.redirect "Admin.asp"
end if
if Request.QueryString("add")="ja" then
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
' markerades en fil?
Set File = Upload.Files("file")
If Not File Is Nothing Then
' filnamnet
filename = file.Filename
' kollar om filen finns i samma katalog (ÄNDRA SÖKVÄGEN HÄR)
If Upload.FileExists("bilder/uppskickade\" & filename ) Then
if filename="ingen" then
' spara (ÄNDRA SÖKVÄGEN HÄR)
File.SaveAsVirtual "bilder/uppskickade/" & File.Filename
Session("medelande")= "Filen sparades i " & File.Path
else
Session("medelande")= "En fil med samma namn finns redan i katalogen, döp om den."
Response.Redirect("add_ok.asp?fel=2")
end if
Else
' annars spara (ÄNDRA SÖKVÄGEN HÄR)
File.SaveAsVirtual "bilder/uppskickade/" & File.Filename
Session("medelande")= "Filen sparades i " & File.Path
End If
Else ' ingen fil markerad
Session("medelande")= "Du glömde markera filen, försök igen."
Response.Redirect("add_ok.asp?fel=3")
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/bilder.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL="SELECT*From bilder ORDER BY ID asc"
RecSet.Open SQL, Conn, 3, 3
RecSet.AddNew
RecSet("info")=Upload.Form("info")
Recset("kategori") =Upload.Form("kat")
RecSet("sokvag")=filename
RecSet.Update
RecSet.Close
Set RecSet=nothing
Conn.Close
Set Conn=nothing
Response.Redirect("changebild.asp")
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/bilder.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Set RecSet1 = Server.CreateObject("ADODB.Recordset")
SQL1="SELECT*From kat ORDER BY ID asc"
SQL="SELECT*From bilder ORDER BY ID asc"
RecSet.Open SQL, Conn, 3, 3
RecSet1.Open SQL1, Conn, 3, 3
%>
<html>
<head>
</head>
<body>
<!-- #include file="settings.asp" -->
<font size="2"><a href="login.asp">Adminstrations-startsida</a>|<a href="bildarkiv.asp">Startsida</a></font>
<h3>Ladda upp bild</h3>
<table><tr><td>
<form name="MyForm" action="bildupload.asp?add=ja&ID=<%=Request.QueryString("ID")%>" method="post" enctype="multipart/form-data">
Kategori</td><td>
<SELECT name="kat">
<%
'loopar runt datan i databasen
Do While Not RecSet1.EOF
%><OPTION value="<%=RecSet1("kategori")%>"><%=RecSet1("kategori")%></OPTION>
<%
Recset1.movenext
Loop
%>
</SELECT></td></tr><tr><td>
Kort information om bilden.</td><td><input type="text" name="Info"></td></tr><tr><td>
Ladda upp bild</td><td><input type="file" name="file"></td></tr><tr><td>
<tr><td colspan="2" align="center">
<input type="submit" value="Lägg till">
</td></tr>
</table>
<br><%=copynotis%>
</body>
</html>