Avatar billede Oldiees Novice
18. maj 2012 - 20:31

Opload

Hejsa.

Nogen der lige kan fortælle mig hvordan..

Jeg har denne opload, som virker som den skal. der er kun en ting jeg godt kunne tænke mig og som jeg ikke kan få den til..

Det er når den har oploadet filen, at den så kan skrive hvad den fil man oploadet hed.
Eks.
Badwomen.gif / badwomen.jpg

Her er min opload kode. det er kun navnet jeg ikke kan få til at virke


Dim intFile

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

objUpload.SetMaxSize 9000000, True

'objUpload.AllowedFilesList = "gif,bmp,jpg,png"

On Error Resume Next

Dim strUploadPath

strUploadPath = "/upload/"

Dim intFileCount

intFileCount = objUpload.Save(Server.MapPath(strUploadPath))
                                                           
If Err.Number = 8 Then
  Response.Write "Filen er for stor. Prøv igen."
Else
  If Err <> 0 Then
    Response.Write "Der opstod en fejl : " & Err.Description
  Else
         
    Response.Write intFileCount & " fil(er) uploadet.<br>" & vbCrLf
    Response.Write "<br>Vent et øjeblik og du bliver stillet tilbage til opload filer<br>" & vbCrLf
    Response.Write "<br>" & vbCrLf
        Response.Write strFileName & ""
   
  End If
End If

On Error Goto 0

Set objUpload = Nothing
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