<form method="post"> Resim Adresi:<input type="text" name="adres" /> <input type="submit" value="Gönder" /> </form>
Belirtilen adresten (URL) gelen dosya tipini kontrol ediyoruz. Bu kontrolde resim (jpg, gif, png, bmp) tipinde olan dosyalar kabul edilmektedir. İndirmek istediğimiz resimi aynı isimde bir başka resimin üzerine yazmaması için dosya ismine bugunun tarih ve saatini ekliyoruz.
ASP Betikleri
<%
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&""" alt="""" />"
End If
End If
%>
