Üye Kayıt Üye Giriş

Siteye Başka Siteden Resim Yüklemek


Siteye Başka Siteden Resim Yüklemek


<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
%>
 

Bilgisayar Dershanesi Ders Sahibi;
Bilgisayar Dershanesi

Yorumlar

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

ETİKETLER

x