Avatar billede JAA1972DK Praktikant
31. oktober 2010 - 15:12 Der er 4 kommentarer

Hjælp til ASP kode ???

Hej Alle ASP nørder

Er der nogen som kan hjælpe mig med lidt kode ?

Jeg har følgende 2 ASP script filer, som jeg gerne vil have til at vise de nyeste poster først og de ældste sidst, lige nu gør den det modsat ældste først og nyeste sidst.

Derudover vil jeg gerne have tilknyttet muligheden for, at kunne skrive både et emne og en beskrivelse til billederne og ikke kun beskrivelse som nu.

Kan man også lave en funktion så jeg kan rette eller slette en post der ikke skal være der mere ?

På forhånd tak for hjælpen.



Her er det upload.asp

<%@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 = 5000001 '5000kb
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 = "foto1/foto1"

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>

og her er det visbilleder.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!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>Vis billeder</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: #cc000c;
}
a:active {
    text-decoration: none;
    color: #cc000c;
}
body,td,th {
    color: #000000;
}
body {
    background-color: #FFFFFF;
}
-->
</style></head>
<body>
<%
set conn = server.CreateObject("adodb.connection")
set rs = server.CreateObject("adodb.recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("billeder.mdb")

strPageSize = 1 'antal billeder på hver linie

sql="select * from billeder"
set rs = conn.execute(sql)

response.write "<a href='upload.asp'>Upload nyt billede</a><br>"
if rs.eof then
response.write "Der er ingen billeder gemt i databasen!"
else
ArrBeskrivelse = ""
ArrUploaded = ""
rs.movefirst
do while not rs.eof
beskrivelse = beskrivelse & rs("description") & ","
uploaded = uploaded & rs("uploaded") & ","
rs.movenext
loop
ArrBeskrivelse = Split(beskrivelse, ",")
ArrUploaded = Split(uploaded, ",")
rs.movefirst
i = 0
total = 0
response.write "<table><tr>"
do while not rs.eof
i = i + 1
total = total + 1
response.write "<td width='125' height='150'><img width='125' height='150' src='" & rs("path") & "'"
response.write " alt='" & rs("description") & "'></td>"

if i = strPageSize then
response.write "</tr><tr>"
iNummer = Cint(total)-Cint(strPageSize)
for ie = 1 to strPageSize
response.write "<td width='125' height='150'>"
if ArrBeskrivelse(iNummer) = "" then
response.write "Ingen beskrivelse"
else
response.write ArrBeskrivelse(iNummer)
end if
response.write "<br>Uploaded: " & ArrUploaded(iNummer) & "</td>"
iNummer = iNummer + 1
next
response.write"</tr><tr>"
i = 0
end if
rs.movenext
loop

if i < strPageSize then
iNummer = Cint(total-i)
response.write "</tr><tr>"
for ie = 1 to i
response.write "<td width='125' height='150'>"
if ArrBeskrivelse(iNummer) = "" then
response.write "Ingen beskrivelse"
else
response.write ArrBeskrivelse(iNummer)
end if
response.write "<br>Uploaded: " & ArrUploaded(iNummer) & "</td>"
iNummer = iNummer + 1
next
response.write "</tr>"
end if
response.write "</table>"
end if
%>

</body>
</html>
Avatar billede claes57 Ekspert
31. oktober 2010 - 15:36 #1
i visbilleder - find stykket

sql="select * from billeder"
set rs = conn.execute(sql)

response.write "<a href='upload.asp'>Upload nyt billede</a><br>"
if rs.eof then
response.write "Der er ingen billeder gemt i databasen!"
else
ArrBeskrivelse = ""
ArrUploaded = ""
rs.movefirst
do while not rs.eof
beskrivelse = beskrivelse & rs("description") & ","
uploaded = uploaded & rs("uploaded") & ","
rs.movenext
loop


der skal du tilføje en sortering, så data vises i rækkefølge - du har felt med uploaded, der er dato/tid - den tager vi:
den første linje i stykket skal så være

sql="select * from billeder order by uploaded desc"

order by = sorter efter
desc = descending = faldende rækkefølge
Avatar billede JAA1972DK Praktikant
31. oktober 2010 - 15:53 #2
Hej Claes57

Tak det virkede, kan du også klare det andet problem ?
Avatar billede aero Nybegynder
31. oktober 2010 - 16:36 #3
Ang. dit andet spm. så synes jeg du skal kaste et blik på denne side
Slet af Record
http://www.html.dk/tutorials/asp/lektion21.asp

Rediger en Record
http://www.html.dk/tutorials/asp/lektion22.asp

ang. det ekstra felt så skal du add feltet i din database først og fremmest og så skal du sætte det ind i din kode

sql ="insert into billeder(name, DITNYENAVNIDB, description, path, uploaded) VALUES('" & strFile & "', '" & oUpload.form.item("description" & i) & "', '" & oUpload.form.item("nameofcat" & i) & "', '" & strUploadpath & strFile & "', #" & now() & "#)"

samt i din form
response.write "<input type='file' name='billede" & ie & "'>"
response.write "  Beskrivelse: <input type='text' name='description" & ie & "'><br>"
response.write "  Emne: <input type='text' name='nameofcat" & ie & "'><br>"


noget i den stil.
Avatar billede claes57 Ekspert
31. oktober 2010 - 19:17 #4
i tabellen med billeder skal der laves en slet-knap - men det må jo kun være administrator der kan slette. Hvordan er login? Der må være noget med rettigheder - ellers kan alle jo slette hinandens billeder.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester