Hakan ŞEN Kişisel Günce - Etiket : kontrolü / http://www.hakansen.com

xmlHTTP ile url kontrolü

6 Ağustos 2007

xmlHTTP Kullanarak sorgulanmak istenen URL`nin var olup olmadığını kontrol etmek mümkündür.

kayit.kisaltiyor.us adresinde kısaltılacak urller girildiğinde öyle bir adresin var olup olmadığını kontrol etmek için kullanıyordum, bir yerlerde işinize yarayabilir.

Kod:
    Function GETHTTP(adres)

               On Error Resume Next 

          Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") 

               StrHTTP.Open "GET" , adres, False 

               StrHTTP.sEnd 

                    If Err.Number = -2147012889 Then 

                    Mesaj =   "<font style=""color:red;"">DNS Yanıt vermiyor, Siteye ulaşılamadı</font>"

                    ElseIf Err.Number = -2147012867 Then 

                    Mesaj =   "<font style=""color:red;"">Url Bulunamadı</font>"

                    Else

                    Mesaj = "Url Bulundu Çalışıyor"

                    End If

               GETHTTP = Mesaj 

          Set StrHTTP = Nothing 

     End Function 





strUrl = Request("url")

If strUrl = "" Then strUrl = "www.hakansen.com"

If Mid(strUrl,1,7) <> "http://" Then strUrl = "http://"&strUrl



Veri = GETHTTP(strUrl)

Response.Write Veri


strUrl değişkenini request("url") nesnesi ile aldık ama bunu başka bir siteden input değeri ile post veya get methodu ile bir formdan gönderip de işlem yapabilirsiniz.

Devamı
Yorumlar (4)
Tarih : 6 Ağustos 2007 Pazartesi Saat: 21:14:49
Kategoriler : Makale, Programlama
Etiketler : xml, xmlhttp, asp, url kontrolü, fonksiyon,


eXTReMe Tracker