<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Response.buffer = true%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Billedgalleri</title>
<style type="text/css">
<!--
a:link {
color: #FF0000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #FF0000;
}
a:hover {
text-decoration: underline;
color: #CC0000;
}
a:active {
text-decoration: none;
color: #cC000C;
}
body,td,th {
color: #000000;
}
body {
background-color: #336699;
}
-->
</style></head>
<body>
<%
strmode = request.QueryString("mode")
UploadPics = 10
if strmode="flere" or strmode="" or strmode="done" then
if strmode="done" then
response.write "File(n/rne) blev uploaded"
end if
iAntal = Cint(request.form("antal"))
if iAntal < 1 or iAntal = "" then
iAntal = 1
end if
response.write "<center><a href='visbilleder.asp'>Se billederne</a></center>"
response.write "<form action='?mode=upload' method='post' enctype='multipart/form-data'>"
for ie = 1 to iAntal
response.write "<input type='file' name='billede" & ie & "'>"
response.write " Beskrivelse: <input type='text' name='description" & ie & "'><br>"
next
response.write "<input type='submit' value='Upload!'>"
response.write "</form><br>"
response.write "upload flere filer på en gang:<br>"
response.write "<form action='?' method='post'>"
response.write "<select name='antal'>"
for ie = 1 to UploadPics
response.write "<option value='" & ie & "'>" & ie & "</option>"
Next
response.write "</select><input type='submit' value='Opdater'></form>"
elseif strmode="upload" then
dim oUpload
set oUpload = server.CreateObject("aspSmartUpload.SmartUpload")
oUpload.MaxFileSize = 300001 '300kb
oUpload.AllowedFilesList = "jpg,JPG,gif,GIF,bmp,BMP,jpeg,JPEG"
on Error resume next
dim strUploadPath
dim strFile
dim strExt
dim i
i = 1
strUploadPath = "/"
oUpload.upload
for each File in oUpload.files
strFile = File.FileName
if strFile = "" then
response.write "Du skal vælge en fil!"
else
set conn = server.CreateObject("adodb.connection")
set rs = server.CreateObject("adodb.recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("billeder.mdb")
sql="select * from billeder where name='" & strFile & "'"
set rs = conn.execute(sql)
if rs.eof then
File.SaveAs(server.MapPath(Lcase(strUploadpath & strFile)))
if Err then
response.write "Der skete en fejl: " & err.description
else
sql ="insert into billeder(name, description, path, uploaded) VALUES('" & strFile & "', '" & oUpload.form.item("description" & i) & "', '" & strUploadpath & strFile & "', #" & now() & "#)"
conn.execute(sql)
end if
else
response.write "En fil med dette navn findes allerede, omdøb filen og prøv igen"
end if
end if
i = i+1
next
if not err then
response.redirect "upload.asp?mode=done"
end if
On Error goto 0
rs.close
conn.close
set rs = nothing
set conn = nothing
set oUpload = nothing
end if
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
