ASP SmartUpload ile Dosya Upload

10.05.2011 tarihinde , Espiar tarafından yazılmış ve 163 kere okunmuş.

Kaynak kodları görmek için devamına tıklayın. 'Create upload object    Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")    With objUpload     'Make sure we are using a virtual directory for script     .DenyPhysicalPath = True     'Önce Dosyay hafızaya alır     .Upload     'Upload edilecek dosyanın ismini Alır     strNewFileName = .Files(1).Filename     'Dosya ismindeki boşluklar "_"  ile değiştirilir     strNewFileName = Replace(strNewFileName, " ", "_", 1, -1, 1)     'Dosyanın Uzunluğu filesize(Bizim oluşturduğumuz) fonksiyonuyla kontrol edilir     lngErrorFileSize = fileSize(.Files(1).Size, intMaxFileSize)     'Seçilen Dosyalarıı Gör     blnExtensionOK = fileExtension(strNewFileName, saryFileUploadTypes)     'Eğer Dosya uygunsa upload işlemi başlatılır     If lngErrorFileSize = 0 AND blnExtensionOK = True Then      'Dosya ismini başına random ibare döndürerek tekrar yeniden isimlendirilir      strNewFileName = hexValue(5) & "_" & strNewFileName                  'Dosyayı Yeni ismiyle diske Upload Eder      .Files(1).SaveAs strFileUploadPath & "/" & strNewFileName      'Pass the filename back      fileUpload = strNewFileName     End If    End With    'Temizle    Set objUpload = Nothing Etiketler : SmartUpload, Dosya Upload