Günümüzde en çok merak edilen sorulardan biri de başka sitelerden bilgi alma. Ben de bunun hakkında bir yazı yazayım dedim. Aspciler bencil olur derdi birkaç kişi. Gorsunler bencil mi değil mi. Boyle bir script baya para eder. Neyse biz yazımıza bakalım. Bilgi alma işlemi asp ile yapılırken bileşen (component) yardımı ile oluyor. Bu bileşenler ise aspTEAR ve aspHTTP. Ben bu yazımda aspTEAR kullanımı hakkında bilgi ve örnek vereceğim. İlk iş olarak http://www.alphasierrapapa.com/ComponentCenter/AspTear/ adresinden windowsunuzun versiyonuna göre bileşenimizi indirelim. İndirdikten sonra içinden çıkan asptear.dll’i c:tear adlı bir klasöre kopyalayalım. Bu işlemi yaptıktan sonra başlat – çalıştır – regsvr32.exe C:tearasptear.dll işlemi ile dll’i kayıt edelim. Şimdi geldik kod yazmaya. Ben bu yazımda yabancı bir siteden haber alma işlemini yapacağım. Kodumda açıklamalarda bulundum. İnşallah yardımcı olabilir ve size mantığı anlatabilirim.
Tear.asp kodları:
Code:
<%
const Request_GET = 2
Dim haberURL, haberim, basliklar, kategori
' Ben web developer kategorisini sectim
' Dilerseniz asagıdaki adresten tam listeye ulasabilirsiniz
' http://w.moreover.com/categories/category_list_c_field.html
kategori = "Web%20developer%20news"
haberURL = "http://p.moreover.com/cgi-local/page?c=" & kategori & "&o=pctsv"
' Bilesenimizi hazırlayalım
Set alma = CreateObject("SOFTWING.ASPtear")
On Error Resume Next
haberim = alma.Retrieve(haberURL, Request_GET, "", "", "")
' Hata durumunda
If Err.Number <> 0 Then
Response.Write "İşlem yürütülürken hata oluştu... "
' Scripti durduralım
Response.End
End If
basliklar = split (haberim, vbTab)
' Baslik turleri
' basliklar(0) => Haberin URLsi
' basliklar(i+1) => Haber Basligi
' basliklar(i+2) => Haber Kaynağı
' basliklar(i+7) => Haber Tarihi ve Saati
for i=0 to ubound (basliklar)-1 step 9
' baslikları yazdıralım
Response.Write "<a href=""" & basliklar(i) & """><b>" & basliklar(i+1) & "</b></a>"
Response.Write "<br>"
Response.Write "<font color=""#CC0000"">" & basliklar(i+2) & "</font> "
Response.Write " (" & basliklar(i+7) & ")"
Response.Write "<p>"
Next
%>
Tear.asp kodları:
Code:
<%
const Request_GET = 2
Dim haberURL, haberim, basliklar, kategori
' Ben web developer kategorisini sectim
' Dilerseniz asagıdaki adresten tam listeye ulasabilirsiniz
' http://w.moreover.com/categories/category_list_c_field.html
kategori = "Web%20developer%20news"
haberURL = "http://p.moreover.com/cgi-local/page?c=" & kategori & "&o=pctsv"
' Bilesenimizi hazırlayalım
Set alma = CreateObject("SOFTWING.ASPtear")
On Error Resume Next
haberim = alma.Retrieve(haberURL, Request_GET, "", "", "")
' Hata durumunda
If Err.Number <> 0 Then
Response.Write "İşlem yürütülürken hata oluştu... "
' Scripti durduralım
Response.End
End If
basliklar = split (haberim, vbTab)
' Baslik turleri
' basliklar(0) => Haberin URLsi
' basliklar(i+1) => Haber Basligi
' basliklar(i+2) => Haber Kaynağı
' basliklar(i+7) => Haber Tarihi ve Saati
for i=0 to ubound (basliklar)-1 step 9
' baslikları yazdıralım
Response.Write "<a href=""" & basliklar(i) & """><b>" & basliklar(i+1) & "</b></a>"
Response.Write "<br>"
Response.Write "<font color=""#CC0000"">" & basliklar(i+2) & "</font> "
Response.Write " (" & basliklar(i+7) & ")"
Response.Write "<p>"
Next
%>