Avatar billede bobbedude Nybegynder
08. juni 2002 - 11:20 Der er 7 kommentarer og
1 løsning

ASP Upload

'Check if user is all ready in the database If he is tell him else add him to the database.

  Set Upload = Server.CreateObject("Persits.Upload")
  Upload.OverwriteFiles = True
  Upload.SetMaxSize 900000, True
 
'For Each item in Upload.Form 

Set  Str_name = Upload.form("name")
Set  Str_alder  = Upload.form("alder")
Set  Str_email  = Upload.form("email")

Set rs = Connect.Execute("SELECT email FROM hotnot WHERE email = '" & Str_email & "'")
if rs.eof then



  Upload.SaveVirtual "/Copyright"

For Each File in Upload.Files

  Dim FileName
  FileName = File.ExtractFileName

  if Err <> 0 Then

      Response.Write "Der er sket en fejl! : " & Err.Description

  Else
 
    Response.Write "Filen "&FileName&" er uploaded!<br>"
End If
Next



             
else
response.write "Some one with the same Email is all ready signed up"
end if

end select

Hvis en bruger er signet up så skriver den
response.write "Some one with the same Email is all ready signed up"
men den uploader billedet aligevel, hvordan får jeg den til at lade være med det.
Avatar billede zyberworm Nybegynder
08. juni 2002 - 11:29 #1
ved ikke med prøv:
'Check if user is all ready in the database If he is tell him else add him to the database.

  Set Upload = Server.CreateObject("Persits.Upload")
  Upload.OverwriteFiles = True
  Upload.SetMaxSize 900000, True
 
'For Each item in Upload.Form 

Set  Str_name = Upload.form("name")
Set  Str_alder  = Upload.form("alder")
Set  Str_email  = Upload.form("email")

Set rs = Connect.Execute("SELECT email FROM hotnot WHERE email = '" & Str_email & "'")
if rs.eof then


  Set Upload = Server.CreateObject("Persits.Upload")
  Upload.OverwriteFiles = True
  Upload.SetMaxSize 900000, True

  Upload.SaveVirtual "/Copyright"

For Each File in Upload.Files

  Dim FileName
  FileName = File.ExtractFileName

  if Err <> 0 Then

      Response.Write "Der er sket en fejl! : " & Err.Description

  Else
 
    Response.Write "Filen "&FileName&" er uploaded!<br>"
End If
Next



             
else
response.write "Some one with the same Email is all ready signed up"
end if

end select
Avatar billede bobbedude Nybegynder
08. juni 2002 - 11:34 #2
den gør det samme
Avatar billede bobbedude Nybegynder
08. juni 2002 - 11:38 #3
Lige en rettelse

'Check if user is all ready in the database If he is tell him else add him to the database.

  Set Upload = Server.CreateObject("Persits.Upload")
  Upload.OverwriteFiles = True
  Upload.SetMaxSize 900000, True
  Upload.SaveVirtual "/Copyright"
 
'For Each item in Upload.Form 

Set  Str_name = Upload.form("name")
Set  Str_alder  = Upload.form("alder")
Set  Str_email  = Upload.form("email")

Set rs = Connect.Execute("SELECT email FROM hotnot WHERE email = '" & Str_email & "'")
if rs.eof then


For Each File in Upload.Files

  Dim FileName
  FileName = File.ExtractFileName

  if Err <> 0 Then

      Response.Write "Der er sket en fejl! : " & Err.Description

  Else
 
    Response.Write "Filen "&FileName&" er uploaded!<br>"
End If
Next



             
else
response.write "Some one with the same Email is all ready signed up"

end if

men aligevel samme fejl den uploader billedet uanset hvad...
Avatar billede goose Nybegynder
08. juni 2002 - 11:40 #4
Som jeg ser det, så bliver filen jo uploadet til serveren iden du checker om brugeren findes, så hvis brugeren findes, skal du nok slette filen igen med: file.delete

/Goose
Avatar billede bobbedude Nybegynder
08. juni 2002 - 11:50 #5
men Goose det ser ud som om at uanset hvad der sker så hopper den ind og kører det der står i
if rs.eof then
Og det var meningen at der der inde også skulle være en Insert Into sætning men den vil vel  også blive udført lige meget om brugeren eksister eller hvad ?
ps hvordan laver jeg det Delete file ?
Avatar billede bobbedude Nybegynder
08. juni 2002 - 11:55 #6
ok har lige testet, den kører åbenbart ikke noget hvis email eksister så det ser ud til at jeg kan bruge det der delete.
Hvordan gør jeg det ?
Avatar billede goose Nybegynder
08. juni 2002 - 12:26 #7
Jeg har ikke lige tid til at flette det ind for dig, men jeg bruger selv følgende for at slette upload der ikke er af jpg format, det må give dig et hint:

for each file in Upload.Files
If File.ImageType <> "JPG" Then
file.delete
response.write "Billedet var ikke jpg!"
else


/Goose
Avatar billede bobbedude Nybegynder
08. juni 2002 - 13:17 #8
Det virker 100%
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