ASP'de XMLHTTP ile harici sunucudaki bir sayfanın varlığını kontrol etmek istedim. Çok aramama rağmen bulamadım. Muhtemelen yanlış aradım.
Ben de başka bir web sayfasının başlığını alan bir kodda değişiklikler yapıp, IF ile sayfa başlığının atadığım değişkene eşit olup olmadığını kontrol eden bir şey yazdım.
Sorunum şu ki; localhost'ta istediğim şekilde çalışan sayfa, isimtescil.net'teki hostumda hata veriyor. Bunun sebebi nedir? Başka ne şekilde kontrol edebilirim dosyaların varlığını?
Kod şu şekildedir:
<%
Function BinaryToString(Binary)
Dim cl1, cl2, cl3, pl1, pl2, pl3
Dim L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)
Do While cl1<=L
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If cl3>300 Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If cl2>200 Then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End If
End If
Loop
BinaryToString = pl1 & pl2 & pl3
End Function
Set objXml = server.CreateObject("Microsoft.XMLHTTP")
objXml.open "GET", "http://google.com.tr", False
objXml.send
sonuc = objXml.responseBody
Set objXml = Nothing
Sonuc = BinaryToString(sonuc)
Basla = InStr(1,Sonuc, "" , 1) + Len("<title>" )
<br/> Bitir = InStr(Basla, Sonuc, " " , 1) - Basla
Title = Mid(Sonuc, Basla, Bitir)
If Title <> "Google" Then
Response.Write("Yok")
Else
Response.Write("Var")
End if
%>
