NTVMSNBC.COM Haberleri

Konular bölümünde anlatmyş olduğumuz ASPtear ile başka sayfalardan veri almak ile ilgili yazmyş olduğumuz NTVMSNBC.COM'dan teknoloji haber alma uygulamamyzy bu bölümde görüntüleyebilirsiniz.Bu uygulamada hiç tasarym yapmadym.Çünkü kullanmak isterseniz tasarymynyza rahatlykla uydurabilirisiniz.Tek sayfadan oluşan veri alma işlemimizin ve listelettirme işlemimizin olduğu sayfa olan asptear(ntvtechnews).asp asağydadyr.<---------------------- asptear(ntvtechnews).asp Başlangyç -------------------><%Server.ScriptTimeOut=0strURL = ""http://www.ntvmsnbc.com/news/BCList2.txt""Dim tear Set tear = Server.CreateObject(""Softwing.AspTear"")strHTML = Tear.Retrieve(strURL,Request_Get, """","""","""") strbasla = Instr(StrHTML,""tech_front.asp"")strbitis = Instr(StrHTML,""bilim_front.asp"")strhaberler = mid(strhtml,strbasla,strbitis-strbasla)strhaberler = replace(strhaberler,""/news/"",""
/news/"")strhaberler = split(strhaberler,""/news/./"")for i=1 to 12if i=12 then exit forhabergoster = split(strhaberler(i),""|"")response.write """" & habergoster(1)&""""next%><---------------------- asptear(ntvtechnews).asp Bitiş -------------------->Evet tek bu sayfamyzla düzenli bir biçimde link'lerimizi NTV adresine vererek syralyyoruz.ÖNEMLY NOT : Bu uygulama ile NTVMSNBC.COM'un teknoloji haberlerini alyrsynyz.Fakat bunun dyşynda bir kategoriden almak için değiştirmeniz gerek 2 tane yer var.Bu işlem için koddaki 7 ve 8 satyrdaki kategori isimlerini değiştirmeniz gerekiyor.7. satyrymyzdaki strbasla ile hangi kategoriyi alacağymyzy yazyyoruz.Değiştirmek için buraya almak istediğiniz kategori ismini ""http://www.ntvmsnbc.com/news/BCList2.txt"" adresinden bakarak hangi sayfa olduğunu alarak yazmanyz yeterli.Bundan sonra 8. satyrdaki strbitis diye yazmyş olduğumuz değişkende ise almak istediğiniz kategorinin bir altyndaki kategorinin sayfa ismini alyp buraya tam olarak yazmanyz yeterli olacaktyr.Evet böylece istediğiniz kategoriyi bu uygulama ile alabilirsiniz.Eğer timeout hatasy alyrsanyz sayfayy alma işlemi yapana kadar refresh'lemeniz gerekir.Local Sunucuda bu sorunla karşylaşabilirsiniz.