ASPupload

Jag får fel när jag laddar upp bilder med det här scriptet, (skrivet av FinalWorld :))

felmeddelande:

Object required: 'File'
/himlen/asp/upload.asp, line 20

script:

<%

Set Upload = Server.CreateObject("Persits.Upload")

Upload.Save "c:\inetpub\wwwroot\himlen\asp\upload\"
Set File = Upload.Files("file")

For Each File in Upload.Files
   If File.ImageType <> "JPG" Then
      Response.Write "Du kan bara ladda upp JPG bilder."
      File.Delete
      Response.End
   End If
next

Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")&";pwd=lösen"
SQL = "SELECT * FROM members where id =" &session("id")
set RS = Connection.Execute(SQL)
SQL = "UPDATE members Set bild = '"&File.FileName&"' where id ="&session("id")
Connection.Execute(SQL)
response.redirect "whois.asp?checkid="&session("id")
%>

jag installerade nyss komponenten ASPupload...
förstår inte varför jag får detta felmeddelande..hoppas ni gör det :)

Problemet ligger i att uppdateringen av databasen ligger utanför din for each-loop. Eftersom du loopar igenom hela uppsättningen av 'file' i samlingen 'upload.files', så finns det inge kvar att hämta när denna rad körs:

SQL = "UPDATE members Set bild = '"&[b]File.FileName[/b]&"' where id ="&session("id")

Om användaren laddar upp flera bilder borde detta skapa ett problem i ditt script. Eller? Jag tror du har ett designproblem i koden, men jag vågar inte svara på hur du vill ha det. :) Förklara mer!

haha, okej, jag ska förklara hur jag vill ha det :)
jag vill att man ska kunna ladda upp en bild, jag tänkte försöka göra en sida som visar alla uppladdade bilder, (admin sida), sen ska jag godkänna dom, eller inte :)

och om jag godkänner dom, så kommer den bilden visas i deras presentation etc, om inte, kommer default bilden tillbaka!! :D

Försöker du ladda upp fler bilder i samma operation eller är det bara en?

bara en bild :)

If File.ImageType <> "JPG" Then
  Response.Write "Du kan bara ladda upp JPG bilder."
  File.Delete
  Response.End
End If

Byt ut for each-loopen mot detta då, så får vi se. :)

haha, tänka sig!! :D
det funkar ju!!
nu ska jag försöka mig på en sida där jag kan godkänna bilderna eller inte :)
om det blir några problem vet jag vart jag ska vända mig!!
thnx a million m8y!! :D :D