Forum
Aktif konular
Üyeler
Kurallar
Arama
Haber Kodu Yardım ! Haber Kodu Yardım !
-
Arkadaşlar bildiğiniz gibi inndir.com'daki teknoloji haberlerini sağladığı kod sayesindfe sitemize ekleyebiliyoruz.Buna benzer siyasi gelişmeleri içeren bir gazete veya bir haber ajansının sağladığı kodları arıyorum, yardımcı olursanız sevinirim.
-
<%
Dim intForNewsSay
Dim strKaynak
Dim arryKaynak
strKaynak = OkuURL("http://tools.ntvmsnbc.com/rss/news.xml")
strKaynak = Mid(strKaynak,859,Len(strKaynak)-891)
arryKaynak = split(strKaynak,"</item><item>")
For intForNewsSay=1 to UBound(arryKaynak)
if intForNewsSay > 6 Then exit for
Response.write "<a href=""" & GetTagText(arryKaynak(intForNewsSay),"link") & """ target=""_blank""> " & GetTagText(arryKaynak(intForNewsSay),"title") & "</a><br>"
Response.write "<hr>"
next
Function OkuURL(strAdres)
Dim oXMLHttp
on error resume Next
Set oXMLHttp = Server.CreateObject("MSXML2.XMLHTTP")
oXMLHttp.Open "GET" , Trim(strAdres), false
oXMLHttp.send
If oXMLHttp.status = 200 Then
OkuURL = oXMLHttp.responseText
ElseIf oXMLHttp.status = 404 Then
OkuURL = "Sayfa Bulunamadi."
ElseIf oXMLHttp.status = 500 Then
OkuURL = "Sayfada ic sunucu hatasi."
Else
OkuURL = "HATA. HATA KODU = " & oXMLHttp.status
End If
Set oXMLHttp = Nothing
End Function
Function GetTagText(SourceString, Tag )
If InStr(SourceString, "<" & Tag & ">" ) = 0 Then
GetTagText = ""
Exit Function
End If
GetTagText = Mid(SourceString, InStr(SourceString, "<" & Tag & ">" ) + Len("<" & Tag & ">" ), (InStr(SourceString, "</" & Tag & ">" )) - (InStr(SourceString, "<" & Tag & ">" ) + Len("<" & Tag & ">" )))
End Function
%>-- benimm kullandığım ntv son 5 haber kodu
-
ilgine ve alakan teşekkür ederim bu işime yarar...
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla