Siteye Başka Siteden Resim Yüklemek (ASP).(Kodlar İçeride)

Tahribat.com Forumları
line

Asp - Php - Cgi - Perl
line

Siteye Başka Siteden Resim Yüklemek (ASP).(Kodlar İçeride)

18/Ara/10 02:27

Kısayol

Şikayet

Özel Mesaj

camarade
ontedi

Kayıt Tarihi: 04/Eylül/2005

Başka sitedeki resimleri sizin belirlediğiniz klasöre otomatik yükler. Resim adresini forma girdikten sonra o dosyayı sunucunuza indirir.

<form method="post">
Resim Adresi:<input type="text" name="adres"> <input type="submit" value="Gönder">
</form>
<%
arrUzantilar = Array("jpg", "JPG", "jpeg", "JPEG", "gif", "GIF", "png", "PNG", "bmp", "BMP")
strAdres = Trim(Request.Form("adres"))
If strAdres = "" Then

	Response.Write "Lütfen adres giriniz."
	
Else

	blnGecerli_Uzanti = False
	For i = 0 to UBound(arrUzantilar)
	
		If arrUzantilar(i) = Right(strAdres, Len(arrUzantilar(i))) Then
		
			blnGecerli_Uzanti = True
			strGecerli_Uzanti = arrUzantilar(i)
			Exit For
			
		End If
		
	Next
	
	If blnGecerli_Uzanti = False Then
	
		Response.Write "Lütfen bir resim adresi giriniz."
		
	Else
	
		strDosya_Adi = Now()
		strDosya_Adi = Replace(strDosya_Adi, ":", "")
		strDosya_Adi = Replace(strDosya_Adi, "/", "")
		strDosya_Adi = Replace(strDosya_Adi, ".", "")
		strDosya_Adi = Replace(strDosya_Adi, " ", "")
	
		strDosya = ""&strDosya_Adi&"."&strGecerli_Uzanti&""
		Set XmlHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
		XmlHttp.Open "GET", strAdres, false
		XmlHttp.Send
		dosyam = XmlHttp.ResponseBody
		'Response.Write XmlHttp.Status
		Set XmlHttp = Nothing
		Set BinaryStream = server.CreateObject("ADODB.Stream")
		BinaryStream.Type = 1 
		BinaryStream.Open
		BinaryStream.Write dosyam
		BinaryStream.SaveToFile server.MapPath(""&strDosya&""), 2
		Set BinaryStream = Nothing
		
		Response.Write "Yüklenen Resim:<br /><img src="""&strDosya&""" />"
		
	End If
	
End If
%>

Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

Alıntı yap

18/Ara/10 11:15 Kısayol Şikayet Özel Mesaj

MaTRiXe

Kayıt Tarihi: 04/Ocak/2006

iyiymiş bunu flv swf gibi formatlara da çevirmek mümküm olabilir mi acaba hatta min / max boyuta göre

Alıntı yap
18/Ara/10 11:38 Kısayol Şikayet Özel Mesaj

camarade
ontedi

Kayıt Tarihi: 04/Eylül/2005

MaTRiXe bunu yazdı:
-----------------------------
iyiymiş bunu flv swf gibi formatlara da çevirmek mümküm olabilir mi acaba hatta min / max boyuta göre
-----------------------------

Yapılır hoca, uzantıları video uzantıları olarak değiştir, avi vmw mp4 vs..

Boyut olayına gelince o da yapılabilir. Kasmak gerekiyor biraz.

Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

Alıntı yap
18/Ara/10 13:59 Kısayol Şikayet Özel Mesaj

camarade
ontedi

Kayıt Tarihi: 04/Eylül/2005

Göremeyenler için yukarı taşıyayım, birilerine lazım olur belki.

Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

Alıntı yap
18/Ara/10 14:07 Kısayol Şikayet Özel Mesaj

FOXXLY

Kayıt Tarihi: 19/Haziran/2006

daha önce benzeri bi kod yapmıştım, sinemalar.comdaki afişler için :P

500-600 tane afiş indirmiştim çok kısa sürede :) iyi bi kod

kelimeler albayım bazı anlamlara gelmiyor.

Alıntı yap

Toplam Hit: 913 Toplam Mesaj: 5

Cevapla