Upload sorunu..?

**mkkocmeil** · 10.06.2009 21:01

HTML Kodu:

If REQUEST("do")="fotoyukle" Then 

Set UPLOAD = server.CreateObject( "PERSITS.UPLOAD.1" )  
UPLOAD.OVERWRITEFILES = TRUE
COUNT = UPLOAD.SAVETOMEMORY  

	For Each FILE IN UPLOAD.FILES
	
			If File.ImageType = "UNKNOWN" Then 
			Response.write "Resim (*.jpg) dosyanızı seçiniz !.<br />"
			Response.write "<A HREF=""JavaScript:history.go(-1)"">Yükleme sayfasına dön !</A>" 
			FILE.DELETE  
			RESPONSE.End  

			ElseIf File.ImageType <> "JPG" AND File.ImageType <> "jpg" Then 
			Response.write "Resim formatı haricinde dosya yükleyemezsiniz. Sadece *.JPG uzantılı olmalıdır !.<br />"
			Response.write "<A HREF=""JavaScript:history.go(-1)"">Yükleme sayfasına dön !</A>" 
			FILE.DELETE  
			RESPONSE.End 
			
			ElseIf FILE.SIZE > 131072 Then  
			Response.write "Dosyanın boyutu maksimum 128 KB olabilir.<br />"
			Response.write "<A HREF=""JavaScript:history.go(-1)"">Yükleme sayfasına dön !.</A>" 
			FILE.DELETE  
			Response.End  

			
			ElseIf FILE.IMAGEWIDTH > 550 Then  
			Response.write "Resim eni çok büyük en fazla 500 piksel olmalıdır.<br />"
			Response.write "<A HREF=""JavaScript:history.go(-1)"">Yükleme sayfasına dön !.</A>" 
			FILE.DELETE  
			Response.End  
			
			ElseIf FILE.IMAGEHEIGHT >600 Then  
			Response.write "Resim boyu çok büyük en fazla 600 piksel olmalıdır.<br />"
			Response.write "<A HREF=""JavaScript:history.go(-1)"">Yükleme sayfasına dön !.</A>" 
			FILE.DELETE  
			Response.End  
			
						
			End If 
			
			' Dosya adı:
			'----------------------------------------- 
			DOSYUZANTI=FILE.EXT
			DOSYAADI=Session("UPLOAD_ID")
			LOGOM=DOSYAADI&DOSYUZANTI
			
			' Yükleme yeri: 
			'------------------------------------- 
			PATH = server.MapPath("firmalogo\"&DOSYAADI&DOSYUZANTI)  ' hata verirse: server.MapPath("\firmalogo\"&DOSYAADI&DOSYUZANTI)
			FILE.SAVEAS PATH 

	Next
	        
			' Yeniden Boyutlandırma: 
			'-------------------------------------  


------------------------------------------------- HATA VEREN KISIM BURASI  -------------------------------------
 
	
			Set Jpeg = server.CreateObject("Persits.Jpeg")

------------------------------------------------- HATA VEREN KISIM BURASI  -------------------------------------


			Path = server.MapPath("firmalogo/"&DOSYAADI&DOSYUZANTI)
			Jpeg.Open Path
			
			' Resize, preserve aspect ratio
			L = 85
			Jpeg.Width = L
			Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

			Jpeg.Save server.MapPath("firmalogo/th"&DOSYAADI&DOSYUZANTI)

			'-------------------------------------
			sqlString = " UPDATE firma_rehberi_kayitlar SET firma_logo='"&LOGOM&"' Where id="&Session("UPLOAD_ID")&" "
	            			
	        Baglanti.execute sqlString

			
			Session("UPLOAD_ID")="" 				            
 			Response.redirect ("?x=1&id="&id&"")

End If 			
%>
<body style="margin-left: 0; margin-right: 0; margin-top: 5px; margin-bottom: 0">
<div class="shadetabs2"><ul><li class="selected" style="text-align: center">
	<a>Firma logo/Foto Yükleme</a></li></ul></div>
<% If Request("x")="1" Then Response.Write "<br /><center>İşlem Başarıyla Tamamlandı.</center>" End If %>

arkadaşlar kodlardan pek anlamıyorum ama resim upload ederken bu hatayı veriyor
yardımcı olabilir misiniz bu konuda lütfen...

HTML Kodu:

server object error 'ASP 0177 : 8007007e' 

server.CreateObject Failed 

/deneme/rehber/firma_foto_upload.ASP, line 108 

8007007e

**CreaNext** · 11.06.2009 14:58

sanırım PERSITS.UPLOAD bileşeni sisteminde yüklü değil.

**Ynfkr** · 11.06.2009 17:00

Selam,

Yüklü olmadığında nasıl bir hata döndürüyor emin değilim ama eğer yüklemediysen,

http://www.aspupload.com/download.html adresinden sistemine göre 32 veya 64 bit sürümünü indirip, kurabilirsin. Yanlız 30 gün çalışıyor. Ayrıca kurulurken serial istiyor. O ekranı boş geçip next yapma. Direk çarpı ile kapatırsan sorunsuz kurulur. Yoksa yüklemenin yarısında hata veriyor. Çarpı değils, cancel da olabilir. Böyle bir şey hatırlıyorumda bilgi olsun diye eklemek istedim.

**_efendy_** · 12.06.2009 02:00

sunucuda persits upload bileşeni yok.

Konu Başlığı: Upload sorunu..?

Konuyu Paylaş

Seçenekler

Upload sorunu..?

Bu konu başlığı için etiketler

Mesaj Seçenekleri