'//////// Upload.asp ///////////////////// <% Server.ScriptTimeout=1000 Set Upload = Server.CreateObject("Persits.Upload.1" ) Upload.OverwriteFiles = False ' True yapılırsa aynı isimdeki dosya üzerine yazar. Count = Upload.SaveToMemory '----- Resim kontrol -------- For Each File in Upload.Files If File.Imagetype="UNKNOWN" Then Response.Write "Sadece Resim Dosyası Yükleyebilirsiniz!" Response.End End If Next '-------- Yükleme İşlemi ---- If Count > 0 Then ' 1 file uploaded Set File1 = Upload.Files(1) Set File2 = Upload.Files(2) Set File3 = Upload.Files(3) Set File4 = Upload.Files(4) Set File5 = Upload.Files(5) Path1 = ( Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\images\" &File1.FileName) Path2 = ( Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\images\" &File2.FileName) Path3 = ( Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\images\" &File3.FileName) Path4 = ( Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\images\" &File4.FileName) Path5 = ( Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\images\" &File5.FileName) File1.SaveAs Path1 File2.SaveAs Path2 File3.SaveAs Path3 File4.SaveAs Path4 File5.SaveAs Path5 End If '//////// YUKLEME ISLEMINI DONGU ILEDE YAPABILIRSINIZ ///////////// %>
Asp KodBank
2 yıl önce
Melek Kentmen
388
