Upload af billede

Gemmer du virkelig billedfilerne i databasen?

Nej navnet på billedet og derefter river jeg navnet ud igen?

Hvorfor?

Okay! bedre.
Hvordan ser navnet i db'en ud efter det er indsat?

Det indeholder mellemrum.
Jeg bruger derefter AspImage til at lave en thumbnail...

trim()

Kan du vise mig hvordan?

cablenet.dk>> trim() virker sgudda ikke inde midt i en streng!

sesam>> Du bliver nødt til at specificere _præcist_ hvad der går galt hvornår. "Billedet vises ikke rigtigt" - kan jeg ikke bruge. Hvad mener du med det helt præcist?
Hvor opstår fejlen osv.
Ellers bliver det svært at hjælpe dig

Jamen billedet bliver ikke vist -> du ved det røde kryds...

Jeg har tjekket og det er fordi at navnet har mellemrum. Jeg ved ikke hvordan jeg ellers skal forklare mit problem.

Er der ikke en funktion der kan trække navnet sammen?

prøv denne:

function RemoveSpaces(Text)
  S = ""
  for I = 1 to Len(Text)
    if Mid(Text, I, 1)<>" " then
      s = s + Mid(Text, I, 1)
  next
  removespaces = s
end function

Og hvordan skal jeg så lige bruge den?

Heh - dig kan jeg sku li!
"Er der ikke en funktion der kan trække navnet sammen?" og så gi'r jeg dig en funktion. Så spørger du næsvist hvordan du "så lige" skal bruge den.
I stedet for File.ExtractFileName ovenfor skriver du:

RemoveSpaces(File.ExtractFileName)

Næsvist hvad mener du, jeg er mega grøn indenfor det her:-

Sorry - jeg har bare oplevet tusind gange før at få at vide: "Det virker ikke". Jeg mener bare, hvis jeg forsøger at hjælpe, skal personen også forsøge selv.
Så det er muligt jeg blot generaliserer og at bemærkningen slet ikke var ment til dig.

Anyway fungerer funktionen eller melder den stadig fejl? I så fald prøv at højreklikke på billedet med det røde kryds og fortæl mig præcist hvad der står som URL

Det er helt okay - funktionen virker fint, den gemmer trækker navnet sammen, men nu har jeg et andet problem og der er at selve billedet bliver gemt med original billedets navn. Jeg har forsøgt selv at fikse problemet men jeg kan ikke få den til at gemme billedet korrekt.

Vil du hjælpe?

Her er hele koden:

------------------------------
<%
function RemoveSpaces(Text)
  S = ""
  for I = 1 to Len(Text)
    if Mid(Text, I, 1)<>" " then
      s = s + Mid(Text, I, 1)
      end if
  next
  removespaces = s
end function
%>
<%
On Error Resume Next
set conn = Server.CreateObject("ADODB.Connection")   
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.OverwriteFiles = false
      Upload.SetMaxSize 100000, True
      Upload.SaveVirtual ("images/profiler/")
      set persistfil_billede = upload.files("file1")
If Err.Number = 8 Then
  Response.Write "<table border=0 width=500 cellpadding=0 cellspacing=0><tr><td align=center><b>Dit billede fylder for meget, prøv venligst igen.</b></td></tr><tr><td align=center><a href=java script:history.back();>Tilbage</a></td></tr></table>"
else   
  Response.Write "<table border=0 width=500 cellpadding=0 cellspacing=0><tr><td align=center><b>Du skal vælge et billede.</b></tr></td><tr><td align=center><a href=java script:history.back();>Tilbage</a></td></tr></table>"
end if
MyConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("profiles/profiles.mdb")   
    For Each File in Upload.Files   
        File.ToDatabase MyConn, "insert into Images(images, username) " &_
        "values('" & RemoveSpaces(File.ExtractFileName) & "', '" & upload.form("username") & "')"
        if Err <> 0 Then
          Response.Write headerfont & "<br>Der er sket en fejl! : " & Err.Description
    Else
    'response.write "hej"
          Response.Redirect "add_billede.asp?user="& upload.form("username") &""
    End If
    Next    


%>

Jeg kigger på det

Du vil gerne have gemt selve filen i et bibliotek og så navnet på billedfilen i databasen ikke?

Er det meningen det skal være muligt at uploade flere billeder ad gangen?

Jo lige præcis...

Men kun ét billede right?

Ja, 1 billede

Ville det ikke være smart hvis filnavnet var HELT unikt, sådan at flere brugere ikke kom til at overskrive hinandens billeder, hvis nu fx både du og jeg uploadede billeder med navnet "mig.jpg"

Jo, kan man automatisk generere et navn? fx et tal?

<%
  Function MakeTemp(Count)
    Dim randchars, S
    randchars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ012345678901234567890123456789"
    S = ""
    Randomize
    For I=1 To Count
      S = S + Mid(RandChars, CLng( Rnd * (Len(RandChars)-1) ), 1)
    Next
    MakeTemp = S
  End Function
 
  Function ExtractExt(FN)
    ExtractExt = Mid(FN, InStr(FN, "."))
  End Function
 
  On Error Resume Next
  Set Conn = Server.CreateObject("ADODB.Connection")
  Set Upload = Server.CreateObject("Persits.Upload.1")
  Upload.SetMaxSize 100000, True
 
  Set ImgFile = Upload.Files("file1")
  If Err.Number = 8 Then
    Response.Write "<table border=0 width=500 cellpadding=0 cellspacing=0><tr><td align=center><b>Dit billede fylder for meget, prøv venligst igen.</b></td></tr><tr><td align=center><a href=java script:history.back();>Tilbage</a></td></tr></table>"
  Else
    if Err.Number <> 0 Then
      Response.Write "<table border=0 width=500 cellpadding=0 cellspacing=0><tr><td align=center><b>Du skal vælge et billede.</b></tr></td><tr><td align=center><a href=java script:history.back();>Tilbage</a></td></tr></table>"
    End If
  End If
 
  Dim FName, UploadURL
  FName = MakeTemp(20) & ExtractExt(ImgFile.OriginalFileName)
  UploadURL = "images/profiler/" & FName
  ImgFile.SaveAsVirtual UploadURL
 
  MyConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("profiles/profiles.mdb")
  MyConn.Execute("INSERT INTO images (images, username) VALUES ('" & UploadURL & "', '" & Upload.Form("username") & "')")

  If Err <> 0 Then
    Response.Write headerfont & "<br>Der er sket en fejl! : " & Err.Description
  Else
    Response.Redirect "Add_Billede.asp?user=" & Upload.Form("username")
  End If

%>

Jeg får denne fejlmeddelse:
---------------------------
Der er sket en fejl! : Object required

Hvis jeg fjerne -  On Error Resume Next

Får jeg denne fejl:

Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'Mid'

Oh! Ændr lige den første af MyConn-linjerne til:

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("profiles/profiles.mdb")

og den følgende linje ændrer du MyConn til Conn

Nu får jeg denne fejl:

Microsoft VBScript runtime (0x800A01A8)
Object required: 'ImgFile'

Og jeg går ud fra at det er når du sender en fil til scriptet ... ?

Ja

som 'file1'

Ja

rundt om denne linje:
Set ImgFile = Upload.Files("file1")

put da følgende kode (som er midlertidig - altså blot for at vi kan finde fejlen):

Dim ImgFile
Set ImgFile = Upload.Files("file1")
If ImgFile is Null Then
  Response.Write "null"
ElseIf ImgFile is Nothing Then
  Response.Write "nothing"
ElseIf ImgFile is Empty Then
  Response.Write "empty"
Else
  Response.Write "god"
End If
Response.End

og send så en fil til den

Det skal selvfølgelig være samme fil du bruger hele tiden

samme fejl

okay udskift nu dennelinje:
Set ImgFile = Upload.Files("file1")

med disse:
Upload.Save
Set ImgFile = Upload.Files("file1")

og du kan godt fjerne den midlertidige kode

Fejlen er Object required linie 31 og i den linie står der: If ImgFile is Null Then

Denne fejl:

Invalid procedure call or argument: 'Mid'

Linie 14: = S = S + Mid(RandChars, CLng( Rnd * (Len(RandChars)-1) ), 1)

S = S + Mid(RandChars, CLng( Rnd * (Len(RandChars)-2) +1 ), 1)

Fejl i linie 46:  Conn.Execute("INSERT INTO images (images, username) VALUES ('" & UploadURL & "', '" & Upload.Form("username") & "')")

Object required: 'Conn'

de to linjer efter Img.SaveAsVirtual... skal se sådan ud:

Conn.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("profiles/profiles.mdb"))
Conn.Execute("INSERT INTO images (images, username) VALUES ('" & UploadURL & "', '" & Upload.Form("username") & "')")

Det virker nu...Lige 2 sek...

@

Desværre cms:
Jeg har lige uploadet og kørt scriptet, men det virker sku' ik -> men lokat gør det?

Jeg får denne fejl
------------------------------------------
Wrong number of arguments or invalid property assignment: 'Save'

linie 27:  Upload.Save

Du skal nok få nogle flere point

Upload.SaveToMemory

Nu får jeg denne fejl:

Object doesn't support this property or method: 'ImgFile.OriginalFileName'

Du må umdskylde at jeg er lidt fat svag....

Det er såmændt fordi din server bruger en ældre version. Jeg har ikke mere tid idag, måske du kunne stille dette nye spørgsmål igen i denne kategori

Ok tusinde tak for hjælpen - selvom det ikke virker...:)

Arh - det virker da til den nyeste ASPUpload :) I virkeligheden burde du tale med din udbyder og be' dem opgradere deres version.

Fat du nogensinde en løsning?

Han oprettede en opgave på sharksforum, som nu er lukket, så det vil jeg tro

Ja jeg fik Erik the man Jacobsen til at hjælpe mig...

Må man se scriptet?