Avatar billede ducks Nybegynder
31. juli 2003 - 03:57 Der er 3 kommentarer og
1 løsning

ASPSmartUpload brug samme filnavn og tjek for eksistens

Kan nogen hjælpe mig med, hvordan jeg får den her til at bruge samme filnavn som før, og kun gemme billedet hvis det er *.gif eller *.jpg og ikke eksisterer?

<html>
<head></head>
<body>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  On Error Resume Next
  '  Object creation
  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  'Max størrelse i bytes
  upload.MaxFileSize = 20000
 
  'Upload filerne til memory
  upload.Upload

  For each file In upload.Files
    If not file.IsMissing Then
      file.saveas Server.MapPath(".") &"\billeder\"& '__FILNAVN__
    end if
  next

  '  Trap errors
  If Err Then
    Response.Write("<b>Wrong selection : </b>" & Err.description)
  End If
   
%>
<center> Filen er nu uploaded og gemt.</center>
<%
else
%>

<form method="post" action="" ENCTYPE="multipart/form-data">
<input type="file" name="fil1">
<input type="submit" name="Upload" value="Upload">
</form>

</body>
</html>
<% end if %>
Avatar billede thomas_yde Nybegynder
31. juli 2003 - 09:25 #1
Til at acceptere typer af jpg og gif kan du lave mySmartUpload styre det:
mySmartUpload.AllowedFilesList = "GIF,JPG"

Til at checke om filen eksistere skal du bruge FSO (File System Object)
og se om filen eksistere på det angivne sted.
if not FileExists("sti_og_navn") then
upload
End if
Avatar billede ducks Nybegynder
31. juli 2003 - 15:04 #2
Hvordan gemmer jeg med samme navn som oprindeligt?

upload.AllowedFilesList = "GIF,JPG" skal det bare stå under upload.MaxFilesSize?

Kan jeg ikke få lidt mere hjælp til FSOen, man skriver vel ikke bare If not FileExists(Server.MapPath(".") &"\billeder\" & Filnavn ?!?!)
Avatar billede thomas_yde Nybegynder
31. juli 2003 - 17:43 #3
Ducks >
  upload.AllowedFilesList = "GIF,JPG" skal det bare stå under upload.MaxFilesSize?
- Ja.

Hjælp til FSO:
Først www.w3schools.com er din ven!

<copy-paste fra http://www.w3schools.com/asp/showfile.asp?filename=demo_fileexists>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

If (fs.FileExists("c:\winnt\cursors\3dgarro.cur"))=true Then
      Response.Write("File c:\winnt\cursors\3dgarro.cur exists.")
Else
      Response.Write("File c:\winnt\cursors\3dgarro.cur does not exist.")
End If

set fs=nothing
%>
</copy-paste>

Håber det hjælper dig lidt på vej.

filnavn er bare
For each file In upload.Files
    If not file.IsMissing Then
      file.saveas Server.MapPath(".") &"\billeder\"& file.Filename&file.FileExt
    end if
  next
Avatar billede ducks Nybegynder
02. august 2003 - 02:34 #4
takker
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