AspHttp şuanda başka sitelerden bilgi almak için kullanılan
bileşenlerin arasında benim en iyisi olarak gördüğüm bir bileşendir.
AspTear ve XmlHttp ile başka web istelerinden bilgi alımı yapılabilir ama
kullandığınız Server'da AspTear veya XmlHttp yoksa ama AspHttp varsa işte size çözüm:
AspHttp'nin kullanımına geçmeden AspHttp'nin kurulumuna bir gözatalım.
AspHttp'yi http://www.serverobjects.com/comp/asphttp3.zip adresinden indirebilirsiniz.
AspHttp bileşeni deneme sürümüdür. AspHttp ile ilgili düşünceleriniz olumlu ise
bileşeni kullanabilmeniz için satın almanız gerekiyor.
AspHttp'yi kullanabilmeniz için asphttp3.zip içerisindeki "Asphttp.dll" dosyasını register etmeniz gerekmektedir. asphttp3.zip dosyasının içerisinde bulunan "Asphttp.dll" dosyasının Windows 'un sistem klasörüne kopyalayınız (NT için '\winnt\system32', Win9x için '\Windows\System'). Daha sonra "Başlat/Start" menüsünden "çalıştır/Run" menüsünü seçiniz. Açılan ufak pencereye "regsvr32 asphttp.dll" yazıp "Tamam" 'ı tıklayınız. Bu sayede register işlemimiz gerçekleşecektir.
AspHttp 'nin Kullanımı:
ısterseniz AspHttp ile istediğiniz web sitesinin tamamını (resimler hariç) gösterim yapabilirsiniz.
AspHttpHTM.Asp
<%
Server.ScriptTimeout = 240
'Bağlantımızı Kuralım
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.microsoft.com"
rem HttpObj.Port = 80
rem HttpObj.TimeOut = 80
HttpObj.FollowRedirects = true
HttpObj.RequestMethod = "GET"
HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
strResult = HttpObj.GetURL
'Sayfamızı Yazdılarım...
Response.Write strResult
Response.Write "<blockquote><hr>URL is now: " & HttpObj.URL
Response.Write "<hr><pre>" & HttpObj.Headers & "</pre>"
'Bileşenimizin Kayıtlı Olup Olmadığını öğrenelim...
Response.Write "<hr>"
strRegName = HttpObj.RegisteredUser
if Left(strRegName, 5) <> "Unreg" then
Response.Write "Bileşenin Kayıtlı Olduğu ısim: " & strRegName & "<br>"
else
Response.Write "Bileşen Kayıtlı Değil.<br>"
end if
%>
'AspHttpHTM.Asp Bitti
AspHttp ile yapabileceğimiz diğer bir işlem ise verilen web sitesi adresindeki tüm linkleri
listeleyebilmektir.
ASpHttpList.Asp
<html>
<body>
<%
Server.ScriptTimeout = 240
'Bağlantımızı Kuralım
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.genusa.com/asp/tools.html"
rem HttpObj.Port = 80
rem HttpObj.TimeOut = 80
HttpObj.RequestMethod = "GET"
HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
strResult = HttpObj.GetURL
'Linklerimizi Listeleyelim...
Response.Write "<h2>A HREF Listesi</h2>"
varHREFArray = HttpObj.GetHREFs
intHREFArrayLimit = UBound(varHREFArray) -1
For I = 0 to intHREFArrayLimit
Response.Write varHREFArray(I) & "<br>" & VBCrLF
Next
%>
'ASpHttpList.Asp Bitti
Bu bileşenin diğer bir avantajı başka web sitelerinden istediğimiz satır veya bilgiyi alabilmektir. Buna bir örnek olarak TR.Net sitesinden hava durumunu nasıl alabileceğimizi bir örnekle gösterelim:
Hava.Asp
<%
'Bağlantımızı Kuralım
set HttpObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = "http://www.tr.net"
odunc = HTTPObj.GetURL
'Sayada Ankara nın yerini belirleyelim.
yer = Instr(1,odunc,"Ankara")
ankara = Mid(odunc,yer+89)
son = Instr(1,ankara,"<")
son = son - "1"
'Ankara nın HavaDurumunu öğrenelim
ankara = Mid(odunc,yer+89,son)
'Sayada ıstanbul un yerini belirleyelim.
yer = Instr(1,odunc,"ıstanbul")
istanbul = Mid(odunc,yer+103)
son = Instr(1,istanbul,"<")
son = son - "1"
'ıstanbul un HavaDurumunu öğrenelim
istanbul = Mid(odunc,yer+103,son)
'Sayada ızmir in yerini belirleyelim.
yer = Instr(1,odunc,"ıstanbul")
izmir = Mid(odunc,yer+103)
son = Instr(1,izmir,"<")
son = son - "1"
'ızmir in HavaDurumunu öğrenelim
izmir = Mid(odunc,yer+103,son)
%>
<html>
<head><title>AspHttp ile TR.Net 'ten HavaDurumu</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<style>
table {font-family: verdana; font-size: 7pt};
</style>
</head>
<body>
<table border="0">
<tr><td>Ankara</td><td><%=ankara%></td></tr>
<tr><td>ıstanbul</td><td><%=istanbul%></td></tr>
<tr><td>ızmir</td><td><%=izmir%></td></tr>
</table>
</body></html>
'Hava.Asp Bitti
Hiç yorum yok:
Yorum Gönder