• 20-12-2014, 19:42:08
    #1
    merhaba

    asp ile multi upload var ama resim adlarını ekrana yazdıramadım.

    <%
    Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
    PID = UploadProgress.CreateProgressID()

    Session.CodePage = 1254

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

    ' This is needed to enable the progress indicator
    Upload.ProgressID = Request.QueryString("PID")
    Upload.IgnoreNoPost = True ' to use upload script in the same file as the form.

    Upload.SetMaxSize 52428, false

    Upload.OverwriteFiles = false
    Path = Server.MapPath("resim")
    Upload.Save(Path)


    If Upload.Files.Count > 0 Then

    Res = " " & Upload.Files.Count & " resim yüklendi. "

    Else
    Res = ""
    End If

    %>

    resim adlarını ekrana nasıl yazdırabilirim.


    tüm dosyalar
    support.persits.com/upload/progress_ajax.zip
    teşekkürler
  • 23-12-2014, 21:22:03
    #2
    Upload.Filename resim adıdır ama çoklu upload da çalışırmı bilmem.
    Çünkü ard arda yazdırmak gerek for each ile resimadını
  • 24-12-2014, 23:00:50
    #3
    k12webtr adlı üyeden alıntı: mesajı görüntüle
    merhaba

    asp ile multi upload var ama resim adlarını ekrana yazdıramadım.

    <%
    Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
    PID = UploadProgress.CreateProgressID()

    Session.CodePage = 1254

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

    ' This is needed to enable the progress indicator
    Upload.ProgressID = Request.QueryString("PID")
    Upload.IgnoreNoPost = True ' to use upload script in the same file as the form.

    Upload.SetMaxSize 52428, false

    Upload.OverwriteFiles = false
    Path = Server.MapPath("resim")
    Upload.Save(Path)


    If Upload.Files.Count > 0 Then

    Res = " " & Upload.Files.Count & " resim yüklendi. "

    Else
    Res = ""
    End If

    %>

    resim adlarını ekrana nasıl yazdırabilirim.


    tüm dosyalar
    support.persits.com/upload/progress_ajax.zip
    teşekkürler
    Res = " " & Upload.Files.Count & " resim yüklendi. "

    satırının altına

    For Each File in Upload.Files
    response.write "<br>" & File.Filename & "<br>"
    next

    yazarsanız muhtemelen olur.kodları denemedim yazım hatası olablir
  • 25-12-2014, 00:17:22
    #4
    teşekkür ederim.
    For Each File in Upload.Files
    response.write "<br>" & File.Filename & "<br>"
    next

    çalışıyor.