Çevrimdışı

ASP ile başka sitelerden veri çekebilirsiniz.. bunun için GETHTTP fonksiyonunu kullanacağız..

Örneğin Pagerank sorgulama scripti yapalım (:

Önce Fonksiyonumuzu oluşturalım..
<%
Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject(“MSXML2.ServerXMLHTTP” )
StrHTTP.Open “GET” , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
%>
Formdan gelen sitenin adresini url değişkenine atıyoruz..
<%
url = request.form(“url”)
%>
wmtips.com sitesinden çekelim (:
<%
kaynak_url = “[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
kaynak = GETHTTP(kaynak_url)
%>
pagerank değerinin kaynak kodunun hangi aralıgında yer aldığını belirtiyoruz..
<%
kaynak_basla = instr(kaynak, “point to a page.”)
kaynak_bit = instr(kaynak, “/img/prg.gif”)
%>
ve belirttiğimiz aralıktan tam yerini belirlemek için baştan ve sondan 17 karakter temizliyoruz..
<%
gaynah = mid(kaynak, kaynak_basla, kaynak_bit-kaynak_basla)
gaynah = mid(gaynah, 17, 17)
pagerank = gaynah
%>
ve Bukadar.. (:
Çalışma Dosyalarını indirmek için : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]