Ağustos 6
xmlHTTP ile url kontrolü
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.
