Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Asp / Asp.NET
  • Bu Konuda
Şimdi Ara

Asp Haber Scripti Sorunu

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir (1 Mobil) - 1 Masaüstü, 1 Mobil
5 sn
7
Cevap
0
Favori
376
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Merhaba , Asp ile yapılmış sohbet sitemde haber menu bulunmakta Haberleri Aktifhaber.com Burdan Çekiyor Ama Şuan Çalışmıyor Hata Mesajı Olarak Eşleşme Bulunamadı Diyor Yardımcı Olabilecek Varmı ...




    <!-- #include file="beyin.asp" -->
    <%call header()
    Dim tumhaber, solhaber, saghaber, reksleson, oda
    '--------------------------
    Sub hbkat()
    if kid<>"" then
    Select Case kid
    Case 143
    oda="Ergenekon Olayları"
    Case 73
    oda="Bilim-Teknoloji"
    Case 146
    oda="Analiz"
    Case 69
    oda="Güncel Olaylar"
    Case 70
    oda="Siyasi Gelişmeler"
    Case 72
    oda="Derin Haberler"
    Case 71
    oda="Tartışılanlar"
    Case 76
    oda="Ekonomik Olaylar"
    Case 109
    oda="Dış ülkeler"
    Case 75
    oda="Medyadan seçmeler"
    Case 64
    oda="Eğitim & Öğretim"
    Case 45
    oda="Magazin Haberleri"
    Case 77
    oda="Yaşama Dair"
    Case 74
    oda="Sağlıkla ilgili"
    Case 129
    oda="Otomobil Dünyası"
    Case 138
    oda="Polis & Adliye"
    Case 9
    oda="Spor Başlıkları"
    Case 144
    oda="İş İlanları"
    Case 140
    oda="Röportajlar"
    Case 141
    oda="Kitap Tanıtımı"
    Case 159
    oda="Kültür & Sanat"
    Case else
    oda="Ergenekon Olayları"
    End Select
    end if
    End Sub
    '---------------------------------
    if FB="" then
    key="hbr.asp?FB="
    oda="Haber Menü"
    Call islemler()
    With Response
    .Write ""&portaerr&""&wmlcenter&""&smalla&"<strong>[Haber Menü]</strong>"&smallk&"<br />"
    .Write wcizgi
    .Write ""&pkapat&""
    .Write(""&wmlmenu&""&smalla&"")
    .Write ""&pmodortac&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=143"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=143"">»Ergenekon Olayları</a><br />"&xhtmlkapat&""
    .Write ""&pbeyaz&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=73"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=73"">»Bilim-Teknoloji</a><br />"&xhtmlkapat&""
    .Write ""&pmodortac&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=69"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=69"">»Güncel Olaylar</a><br />"&xhtmlkapat&""
    .Write ""&pbeyaz&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=70"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=70"">»Siyasi Gelişmeler</a><br />"&xhtmlkapat&""
    .Write ""&pmodortac&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=72"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=72"">»Derin Haberler</a><br />"&xhtmlkapat&""
    .Write ""&pbeyaz&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=71"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=71"">»Tartışılanlar</a><br />"&xhtmlkapat&""
    .Write ""&pmodortac&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=76"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=76"">»Ekonomik Olaylar</a><br />"&xhtmlkapat&""
    .Write ""&pbeyaz&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=109"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=109"">»Dış ülkeler</a><br />"&xhtmlkapat&""
    .Write ""&pmodortac&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=75"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=75"">»Medyadan seçmeler</a><br />"&xhtmlkapat&""
    .Write ""&pbeyaz&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=64"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=64"">»Eğitim & Öğretim</a><br />"&xhtmlkapat&""
    .Write ""&pmodortac&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=45"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=45"">»Magazin Haberleri</a><br />"&xhtmlkapat&""
    .Write ""&pbeyaz&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=77"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=77"">»Yaşama Dair</a><br />"&xhtmlkapat&""
    .Write ""&pmodortac&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=74"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=74"">»Sağlıkla ilgili</a><br />"&xhtmlkapat&""
    .Write ""&pbeyaz&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=129"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=129"">»Otomobil Dünyası</a><br />"&xhtmlkapat&""
    .Write ""&pmodortac&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=138"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=138"">»Polis & Adliye</a><br />"&xhtmlkapat&""
    .Write ""&pbeyaz&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=9"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=9"">»Spor Başlıkları</a><br />"&xhtmlkapat&""
    .Write ""&pmodortac&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=144"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=144"">»İş İlanları</a><br />"&xhtmlkapat&""
    .Write ""&pbeyaz&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=140"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=140"">»Röportajlar</a><br />"&xhtmlkapat&""
    .Write ""&pmodortac&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=141"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=141"">»Kitap Tanıtımı</a><br />"&xhtmlkapat&""
    .Write ""&pbeyaz&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=159"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=159"">»Kültür & Sanat</a><br />"&xhtmlkapat&""
    .Write ""&pmodortac&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid=146"" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid=146"">»Analiz</a><br />"&xhtmlkapat&""
    response.write ""&portaerr&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="h.asp?"&ASQLYOL&"&FB=h&zid=10&ref=hbr.asp&BF="&FB&"&fid="&fid&"&kid="&kid&"&id="&id&"&iz="&iz&"&p="&p&""" data-href=""h.asp?"&ASQLYOL&"&FB=h&zid=10&ref=hbr.asp&BF="&FB&"&fid="&fid&"&kid="&kid&"&id="&id&"&iz="&iz&"&p="&p&""">»Yardım(?)</a><br />"&xhtmlkapat&""

    .Write(""&smallk&""&wmlkapat&"")
    End With
    '#############################################################
    elseif FB="bsl" Then
    call hbkat()
    key="hbr.asp?FB=bsl&kid="&kid&""
    Call islemler()

    Response.Write ""&portaerr&""&wmlcenter&""&smalla&"<strong>["&oda&"]</strong>"&smallk&"<br />"
    Response.Write wcizgi
    Response.Write ""&pkapat&""
    Dim url, StrHTTP, verikes, strMsj, Match, sonveri, ekranabas
    Response.Write(""&wmlmenu&""&smalla&"")
    url="http://www.aktifhaber.com/mobi/news.php?cid="&kid&""
    set StrHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
    StrHTTP.Open "GET" ,url, false
    StrHTTP.Send
    veriler = StrHTTP.Responsetext
    Set StrHTTP = Nothing
    verikes = split(veriler,"</head><body>")
    sonveri=split(verikes(1),"<div class=""footer"">")
    ekranabas=sonveri(0)
    '--------------------------------
    Set objRegex = New RegExp : With objRegex
    .Global = True
    .IgnoreCase = True
    .MultiLine = True
    .Pattern = "<td class=""title"">([\s\S]*?)</td>"
    Set objBulunan = .Execute(ekranabas) : End With
    If objBulunan.Count > 0 Then
    For Each Match In objBulunan
    strMsj = ""&strMsj &""& Match.SubMatches(i) & "<br />"
    Next
    strMsj = Replace(strMsj,"“","""")
    strMsj = Replace(strMsj,"”","""")
    strMsj = Replace(strMsj,"’","'")
    strMsj = Replace(strMsj,"<font style=""color: blue;"">","")
    strMsj = Replace(strMsj,"<font style=""color: red;"">","")
    strMsj = Replace(strMsj,"<font color=blue>","")
    strMsj = Replace(strMsj,"<font color=""red"">","")
    strMsj = Replace(strMsj,"<font color=green>","")
    strMsj = Replace(strMsj,"</font>","")
    strMsj = Replace(strMsj,"<a href=",""&pbeyaz&"»<a href=")
    strMsj = Replace(strMsj,"</a><br />","</a><br />"&xhtmlkapat&"")
    strMsj = Replace(strMsj,"news_detail.php?id=","hbr.asp?"&ASQLYOL&"&FB=dty&kid="&kid&"&id=")

    Else
    Response.Write "Eşleşme Bulunamadı!"
    End If
    Set objRegex = nothing
    Set objBulunan = nothing
    Response.Write strMsj
    Response.Write(""&smallk&""&wmlkapat&"")
    response.write(""&wmlmenu&""&smalla&"")
    response.write(""&perorta&"")
    response.write wcizgi
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&""" data-href=""hbr.asp?"&ASQLYOL&""">»Haber Menü</a><br />")
    response.write(""&xhtmlkapat&"")
    response.write(""&smallk&""&wmlkapat&"")
    '######################################################################
    elseif FB="dty" Then
    call hbkat()
    key="hbr.asp?FB=dty&kid="&kid&"&id="&id&""
    Call islemler()
    Response.Write ""&portaerr&""&wmlcenter&""&smalla&"<strong>["&oda&"]</strong>"&smallk&"<br />"
    Response.Write wcizgi
    Response.Write ""&pkapat&""
    Response.Write(""&wmlmenu&""&smalla&"")
    '-----------
    function ahbr(tmz )
    tmz=Replace(tmz,"<div class=""caption"">",""&perorta&"<b>",1,-1,1 )
    tmz=Replace(tmz,"</div><div class=""news_detail"">","</b><br />"&xhtmlkapat&"",1,-1,1 )
    tmz=Replace(tmz,"<div class=""news_image"">",""&pmodortac&"",1,-1,1 )
    tmz=Replace(tmz,"""></div><div class=""news_content"">",""" alt=""resim""/>"&xhtmlkapat&"",1,-1,1 )
    tmz=Replace(tmz,"<p>",""&pbeyaz&"<br />",1,-1,1 )
    tmz=Replace(tmz,"</p>","<br />"&xhtmlkapat&"",1,-1,1 )
    tmz=Replace(tmz, " alt=""""", "")
    tmz=Replace(tmz, "title=", "alt=")
    tmz=Replace(tmz, "</span>", "")
    'tmz=Replace(tmz, "</div>", "")
    tmz=Replace(tmz, "<strong>", "")
    tmz=Replace(tmz, "</strong>", "")
    tmz=Replace(tmz, "</font>", "")
    tmz=Replace(tmz, "<br ....", "<br />")
    tmz=Replace(tmz, "’", "'")
    tmz=Replace(tmz, "“", """")
    tmz=Replace(tmz, "”", """")
    tmz=Replace(tmz, "<h1 class=""heading title"">", "<strong>")
    tmz=Replace(tmz, "</h1>", "</strong><br />")
    tmz=Replace(tmz, "class=""image""", "")
    tmz=Replace(tmz, "<b>", "")
    tmz=Replace(tmz, "</b>", "")
    ahbr=tmz
    End function
    '--------------------------
    url="http://www.aktifhaber.com/mobi/news_detail.php?id="&id&""
    set StrHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
    On Error Resume Next
    StrHTTP.Open "GET" ,url, false
    StrHTTP.Send
    veriler = StrHTTP.Responsetext
    Set StrHTTP = Nothing
    verikes = split(veriler,"<div class=""base_middle"">")
    sonveri=split(verikes(1),"</p></div>")
    ekranabas=sonveri(0)
    '---------------
    If Err <> 0 Then
    Response.Write "Hata Oluştu : "& Err.Description
    On Error GoTo 0
    else
    '-----------------
    reksleson=ahbr(ekranabas)
    Set resYOK = New RegExp
    resYOK.IgnoreCase = True
    resYOK.Global = True
    resYOK.Pattern = "<a ([\s\S]*?)</a>|<object([\s\S]*?)</object>|<span([\s\S]*?)"">|<div([\s\S]*?)"">|<param([\s\S]*?)</object>|<img alt([\s\S]*?)/>|<p ([\s\S]*?)"">|<font([\s\S]*?)"">"
    Set picNOT = resYOK.Execute(reksleson)
    For Each Match in picNOT
    reksleson = Replace(reksleson, Match.Value, "")
    Next
    Set picNOT =Nothing
    Set resYOK= Nothing
    reksleson=Replace(reksleson, "</div>", "")

    if len(reksleson)>4000 then
    tumhaber=Len(reksleson) /2
    solhaber=Left(reksleson,tumhaber)
    saghaber=Right(reksleson,tumhaber)
    if fid="" then
    Response.Write(""&pbeyaz&""& solhaber&"..........<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=dty&kid="&kid&"&id="&id&"&fid=1"" data-href=""hbr.asp?"&ASQLYOL&"&FB=dty&kid="&kid&"&id="&id&"&fid=1"">»»Haberin Devamı</a>"&xhtmlkapat&"" )
    End if
    if fid<>"" then
    Response.Write(""&pbeyaz&"..................."&saghaber&""&xhtmlkapat&"")
    End if
    else
    Response.Write(""&pbeyaz&"" & reksleson & ""&xhtmlkapat&"")
    end if
    response.write(""&perorta&"")
    Response.Write("<br /><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=yyp&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=yyp&kid="&kid&"&id="&id&""">»Haberi yorumla</a><br />")
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""">»Yorumları oku</a><br />")
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid="&kid&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid="&kid&""">»Haber Başlıkları</a><br />")
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&""" data-href=""hbr.asp?"&ASQLYOL&""">»Haber Menü</a><br />")
    response.write(""&xhtmlkapat&"")
    end if
    Response.Write(""&smallk&""&wmlkapat&"")
    '####################################
    elseif FB="yyp" Then
    key="hbr.asp?FB=yr&kid="&kid&"&id="&id&""
    oda="Haber Yorumluyor"
    Call islemler()
    Response.Write(""&portaerr&""&wmlcenter&""&smalla&"<strong>["&oda&"]</strong>"&smallk&"<br />")
    Response.Write wcizgi
    Response.Write(""&pkapat&"")
    '------------------------
    Call fldkntrlm()
    '------------------------
    response.write(""&beyazorta&""&wmlcenter&"")
    '-----------------------
    set slt=bag.execute("SELECT id, hid, grup, kl FROM dis WHERE hid=" & id & " AND grup=1 ORDER BY id DESC LIMIT 1")
    if slt.Eof Then
    fid=id
    url="http://www.aktifhaber.com/mobi/news_detail.php?id="&id&""
    set StrHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
    On Error Resume Next
    StrHTTP.Open "GET" ,url, false
    StrHTTP.Send
    veriler = StrHTTP.Responsetext
    Set StrHTTP = Nothing
    If Err <> 0 Then
    neoldu="hataoldu"
    Response.Write "Hata Oluştu : "& Err.Description
    On Error GoTo 0
    else
    verikes = split(veriler,"<h1 class=""heading title"">")
    sonveri=split(verikes(1),"</h1>")
    ekranabas=sonveri(0)
    ekranabas = Replace(ekranabas,"<font style=""color: blue;"">","")
    ekranabas = Replace(ekranabas,"<font style=""color: red;"">","")
    ekranabas = Replace(ekranabas,"<font color=""red"">","")
    ekranabas = Replace(ekranabas,"</font>","")
    ekranabas=server.HTMLencode(ekranabas)
    wmlbas="<postfield name=""baslik"" value="""&ekranabas&"""/>"
    xhtmlbas="<input type=""hidden"" name=""baslik"" value="""&ekranabas&""" />"

    End if
    Else
    hbrklt=slt("kl")
    End if
    slt.close() : set slt=nothing
    '--------------------------------------------------------
    if hbrklt="1" Then
    response.write("<br />"&smalla&"Bu haber yorumlara kapatıldı..."&smallk&"<br />")
    Else
    if neoldu="hataoldu" Then
    response.write("<br />"&smalla&"Haber Kaynağından alınamadı Lütfen daha sonra tekrar deneyiniz..."&smallk&"<br />")
    Else
    if bankontr=2 then
    Response.Write ""&smalla&"Mesajınız:"&smallk&"<br /><input name=""mesaj"&datediff("s",1,now)&""" type=""text"" value="""" size=""15"" maxlength=""230""/><br />"
    response.write "<anchor title=""yaz"">[Gönder]<go href=""hbr.asp?"&ASQLYOL&"&FB=yok&kid="&kid&"&id="&id&"&fid="&fid&""" method=""post""><postfield name=""mesaj"" value=""$(mesaj"&datediff("s",1,now)&")""/>" & wmlbas & "</go></anchor><br />"
    End if
    if bankontr=3 then
    response.write("<form method=""post"" action=""hbr.asp?"&ASQLYOL&"&FB=yok&kid="&kid&"&id="&id&"&fid="&fid&"""><p>")
    response.write("Mesajınız:<br /><textarea class=""inputbox"" name=""mesaj"" rows=""3"" cols=""15""></textarea><br />")
    Response.Write(xhtmlbas)
    response.write("<input type=""submit"" value=""[Gönder]"" name=""submit"" class=""button"" /></p></form>")
    End if
    End if
    End if
    set hbrklt=nothing
    set ekranabas=nothing
    response.write(""&wmlkapat&""&xhtmlkapat&"")
    response.write(""&wmlmenu&""&smalla&"")
    response.write(""&perorta&"")
    response.write wcizgi
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""">»Yorumlara Dön</a><br />")
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=dty&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=dty&kid="&kid&"&id="&id&""">»Habere Dön</a><br />")
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid="&kid&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid="&kid&""">»Haber Başlıkları</a><br />")
    response.write(""&xhtmlkapat&"")
    response.write(""&smallk&""&wmlkapat&"")
    '####################################
    elseif FB="yr" Then
    key="hbr.asp?FB=yr&kid="&kid&"&id="&id&""
    oda="Haber Yorumlarında"
    Call islemler()
    %>
    <!-- #include file="smlyx.asp" -->
    <%
    set slxx=bag.execute("SELECT id, kad, konu, kl FROM dis WHERE hid=" & id & " AND grup=1")
    if not slxx.eof Then
    hbrklt=slxx("kl")
    hbrid=slxx("id")
    response.write(""&wmlmenu&""&smalla&""&perorta&"")
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&""" data-href=""hbr.asp?"&ASQLYOL&""">»Haberler</a><br />")
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=bsl&kid="&kid&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=bsl&kid="&kid&""">-»" & slxx("kad") & "</a><br />")
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=dty&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=dty&kid="&kid&"&id="&id&""">--»" & slxx("konu") & "</a><br />")
    Response.Write wcizgi
    Response.Write(""&smallk&""&wmlkapat&""&xhtmlkapat&"")
    End if
    slxx.close() : set slxx=nothing
    KayitSayisi = 4
    If Request("p") <> "" Then
    p = CInt(Request("p"))
    Else
    p = 1
    End If
    kayitlar = (KayitSayisi*p)-(KayitSayisi)
    set slt=bag.execute("SELECT * FROM dis WHERE hid=" & id & " AND (grup=1 OR grup=2) ORDER BY id DESC LIMIT "&kayitlar&","&KayitSayisi&"")
    set SQLTop = bag.Execute("SELECT COUNT(id) FROM dis WHERE hid=" & id & " AND (grup=1 OR grup=2)")
    TopKayit = SQLTop(0)
    if slt.eof then
    Response.Write(""&wmlmenu&""&smalla&""&pbeyaz&"Bu habere henüz yorum yapılmamış...<br />"&xhtmlkapat&""&smallk&""&wmlkapat&"")
    Else
    iba = 0
    veribolx = Split(siplitlerim,"|")
    siplit4=veribolx(4)
    Do While Not slt.Eof
    if avtrgstrm="0" AND siplit4="1" AND bankontr=3 Then
    avatarvarmi="<img class=""ortaimg"" src=""/temps/"&slt("yazanid")&".JPG"" alt=""*""/>"
    End if
    if iba mod 2 then
    modcolor = pbeyaz
    else
    modcolor = pmodortac
    end if
    Response.Write(""&wmlmenu&""&smalla&""&modcolor&"")
    vakit=slt("tarih")
    Call trh()
    if kimdavarad=sistemcoder OR rs("seviye")>1 Then
    Response.write " <strong><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=sil&kid="&kid&"&fid="&slt("id")&"&id="&slt("hid")&"&p="&p&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=sil&kid="&kid&"&fid="&slt("id")&"&id="&slt("hid")&"&p="&p&""">[X]</a></strong>"
    End if
    Response.Write("<br />"&avatarvarmi&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="bilgi.asp?"&ASQLYOL&"&iz="&slt("yazanid")&""" data-href=""bilgi.asp?"&ASQLYOL&"&iz="&slt("yazanid")&""">"&slt("ekleyen")&"</a><br />")

    Response.Write(""&cHtml(smi(slt("duyuru")))&"<br />")
    '---------------------beğenen
    begenenler=slt("begen")
    if instr(begenenler,kimdavar)>0 Then
    bulbegenen=split(begenenler,",")
    kackisibegendi=ubound(bulbegenen)
    Response.write ""&pagin&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="bg.asp?"&ASQLYOL&"&FB=h&kid="&kid&"&fid="&slt("id")&"&id="&id&"&p="&p&""" data-href=""bg.asp?"&ASQLYOL&"&FB=h&kid="&kid&"&fid="&slt("id")&"&id="&id&"&p="&p&"""><img src=""/images/begen.gif"" alt=""B"" align=""middle""/>("&kackisibegendi&") kişi</a>"&paginson&""
    Else
    Response.write " "&pagin&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="bg.asp?"&ASQLYOL&"&FB=h1&kid="&kid&"&fid="&slt("id")&"&id="&id&"&p="&p&""" data-href=""bg.asp?"&ASQLYOL&"&FB=h1&kid="&kid&"&fid="&slt("id")&"&id="&id&"&p="&p&"""><img src=""/images/begen.gif"" alt=""B"" align=""middle""/>Beğen</a>"&paginson&""
    if begenenler<>"" Then
    bulbegenen=split(begenenler,",")
    kackisibegendi=ubound(bulbegenen)
    Response.write " "&pagin&"<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="bg.asp?"&ASQLYOL&"&FB=h&kid="&kid&"&fid="&slt("id")&"&id="&id&"&p="&p&""" data-href=""bg.asp?"&ASQLYOL&"&FB=h&kid="&kid&"&fid="&slt("id")&"&id="&id&"&p="&p&"""><img src=""/images/begen.gif"" alt=""B"" align=""middle""/>("&kackisibegendi&") kişi</a>"&paginson&""
    End if
    End if
    set begenenler=nothing

    Response.Write(""&smallk&""&wmlkapat&""&wmlcenter&""&smalla&""&wmlortacizgi&""&smallk&""&wmlkapat&""&xhtmlkapat&"")
    iba = iba + 1
    slt.MoveNext : Loop
    End if
    slt.close() : set slt=nothing
    SQLTop.close() : set SQLTop=nothing
    Call Sayfalama()
    response.write(""&wmlmenu&""&smalla&"")
    response.write(""&perorta&"")
    response.write wcizgi
    if hbrklt="0" Then
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=yyp&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=yyp&kid="&kid&"&id="&id&""">»Yorum yap</a><br />")
    Elseif hbrklt="1" Then
    Response.Write("<strong>[Yoruma Kapalı]</strong><br />")
    Else
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=yyp&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=yyp&kid="&kid&"&id="&id&""">»Yorum yap</a><br />")
    End if
    if rs("seviye")>4 OR kimdavarad=sistemcoder Then
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=tsil&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=tsil&kid="&kid&"&id="&id&""">»Tüm yorumları sil</a><br />")
    End if
    if rs("seviye")>1 OR kimdavarad=sistemcoder Then
    if hbrklt="0" Then
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=kl&kid="&kid&"&id="&id&"&fid=" & hbrid & "&iz=1"" data-href=""hbr.asp?"&ASQLYOL&"&FB=kl&kid="&kid&"&id="&id&"&fid=" & hbrid & "&iz=1"">»Yorumlara Kapat</a><br />")
    Else
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=kl&kid="&kid&"&id="&id&"&fid=" & hbrid & "&iz=0"" data-href=""hbr.asp?"&ASQLYOL&"&FB=kl&kid="&kid&"&id="&id&"&fid=" & hbrid & "&iz=0"">»Yorumlara Aç</a><br />")
    End if
    End if
    response.write(""&xhtmlkapat&"")
    response.write(""&smallk&""&wmlkapat&"")
    '####################################
    elseif FB="yok" Then
    key="hbr.asp?FB=yr&kid="&kid&"&id="&id&""
    oda="Haber Yorumluyor"
    Call islemler()
    set oda=nothing
    Call hbkat()
    mesaj=Trim(temiz(request.form("mesaj")))
    baslik=Trim(temiz(request.form("baslik")))
    tarih=degiskenim
    Response.Write(""&portaerr&""&wmlcenter&""&smalla&"<strong>[Haber Yorum]</strong>"&smallk&"<br />")
    Response.Write wcizgi
    Response.Write(""&pkapat&"")
    '------------------------
    Call fldkntrlm()
    '------------------------
    Response.Write(""&psol&""&smalla&"")
    if mesaj<>"" then
    input=mesaj
    camput=mesaj
    %>
    <!-- #include file="YSK3.asp" -->
    <%mesaj=input
    if baslik<>"" Then
    bag.execute("INSERT INTO dis (hid, kid, kad, duyuru, grup, ekleyen, yazanid, tarih, konu) values ('" & id & "', '" & kid & "', '" & oda & "', '" & mesaj & "', 1, '" & kimdavarad & "', '" & kimdavar & "', '" & tarih & "', '" & baslik & "')")
    Else
    bag.execute("INSERT INTO dis (hid, kid, kad, duyuru, grup, ekleyen, yazanid, tarih) values ('" & id & "', '" & kid & "', '" & oda & "', '" & mesaj & "', 2, '" & kimdavarad & "', '" & kimdavar & "', '" & tarih & "')")
    End if
    linkad="Habere Yorum"
    link="hbr.asp?yesnoevet=&FB=yr&kid="&kid&"&id="&id&""
    ksmsjc=Left(mesaj,200)&"..."
    ksmsjc=cmdHtml(ksmsjc)
    bag.execute("INSERT INTO grup (gonderenid, gonderenad, tarih, rapor, grup, link, orjbrow, linkad) values ('" & kimdavar & "', '" & kimdavarad & "', '" & tarih & "', 'Yaptı', 9, '" & link & "', '" & ksmsjc & "', '" & linkad & "')")
    End if
    Response.Write("Habere Yorumunuz bırakılmıştır... <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""">[Tamam]</a><br />")
    response.write(""&smallk&""&pkapat&"")
    response.write(""&wmlmenu&""&smalla&"")
    response.write(""&perorta&"")
    response.write wcizgi
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=dty&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=dty&kid="&kid&"&id="&id&""">»Haberi Oku</a><br />")
    Response.Write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&""" data-href=""hbr.asp?"&ASQLYOL&""">»Haber Menü</a><br />")
    response.write(""&xhtmlkapat&"")
    response.write(""&smallk&""&wmlkapat&"")
    '####################################
    elseif FB="sil" Then
    key="hbr.asp?FB=yr&kid="&kid&"&id="&id&""
    oda="Haber Yönetim"
    Call islemler()
    tarih=degiskenim
    Response.Write(""&portaerr&""&wmlcenter&""&smalla&"<strong>["&oda&"]</strong>"&smallk&"<br />")
    Response.Write wcizgi
    Response.Write(""&pkapat&"")
    Response.Write(""&psol&""&smalla&"")
    if Isnumeric(fid)=True Then
    if rs("seviye")>1 OR kimdavarad=sistemcoder Then
    set slt=bag.execute("SELECT id, duyuru, ekleyen, yazanid FROM dis WHERE id=" & fid & " LIMIT 1")
    if Not slt.Eof Then
    hata="Haber yorumu silindi...[B]Yorum yapan:[/B] " & slt("ekleyen") & " [B]Yorum:[/B] " & slt("duyuru") & " .... Haber Yorum Linki"
    Call adminislem()
    set silcem = bag.execute("DELETE FROM dis WHERE id=" & fid & " AND hid=" & id & " LIMIT 1")
    set silcem=nothing
    End if
    slt.close() : set slt=nothing
    End if
    End if
    Response.Write("Haber Yorumu başarıyla silindi... <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""">[Tamam]</a><br />")
    response.write(""&smallk&""&pkapat&"")
    '####################################
    elseif FB="tsil" Then
    key="hbr.asp?FB=yr&kid="&kid&"&id="&id&""
    oda="Haber Yönetim"
    Call islemler()
    tarih=degiskenim
    Response.Write(""&portaerr&""&wmlcenter&""&smalla&"<strong>["&oda&"]</strong>"&smallk&"<br />")
    Response.Write wcizgi
    Response.Write(""&pkapat&"")
    Response.Write(""&psol&""&smalla&"")
    if Isnumeric(id)=True Then
    if rs("seviye")>4 OR kimdavarad=sistemcoder Then
    hata="Haber yorumunun tümü silindi... Haber Link.... Haber Yorum Linki"
    Call adminislem()
    set silcem = bag.execute("DELETE FROM dis WHERE hid=" & id & "")
    set silcem=nothing
    End if
    End if
    Response.Write("Tüm yorumlar başarı ile silindi... <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""">[Tamam]</a><br />")
    response.write(""&smallk&""&pkapat&"")
    '####################################
    elseif FB="kl" Then
    key="hbr.asp?FB=yr&kid="&kid&"&id="&id&""
    oda="Haber Yönetim"
    Call islemler()
    tarih=degiskenim
    Response.Write(""&portaerr&""&wmlcenter&""&smalla&"<strong>["&oda&"]</strong>"&smallk&"<br />")
    Response.Write wcizgi
    Response.Write(""&pkapat&"")
    Response.Write(""&psol&""&smalla&"")
    if Isnumeric(fid)=True Then
    if rs("seviye")>1 OR kimdavarad=sistemcoder Then
    if iz<>"" AND (iz="0" OR iz="1") Then
    durum=iz
    if iz="0" Then
    hata="Haber, yorumlara Açıldı... Haber Link.... Haber Yorum Linki"
    linkdurum="Haber, yorumlara Açıldı..."
    Elseif iz="1" Then
    hata="Haber, yorumlara Kapatıldı... Haber Link.... Haber Yorum Linki"
    linkdurum="Haber, yorumlara Kapatıldı..."
    End if
    Call adminislem()
    bag.execute("UPDATE dis set kl='" & durum & "' WHERE id=" & fid & " LIMIT 1")
    End if
    End if
    End if
    Response.Write("" & linkdurum & " <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=114788323&url="hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""" data-href=""hbr.asp?"&ASQLYOL&"&FB=yr&kid="&kid&"&id="&id&""">[Tamam]</a><br />")
    response.write(""&smallk&""&pkapat&"")

    '####################################################
    end if
    %>
    <!-- #include file="secim.asp" -->







  • Yokmu Bu kodu düzenleyecek Yardım Edecek
  • Haber sitelerinin hazır api'leri yokmu. Daha kolay olurdu.

    html çekmenin kötü yanı, site kodlaması değişince, çeken kod işe yaramaz hale geliyor, müdehale gerekiyor...

    Senin kod değişmedi ise, haber sitesinin yapısı değişmiş olabilir. api'si olan bir haber sitesi bulmanı tavsiye ederim...
    varmı bilmiyorum...
  • quote:

    Orijinalden alıntı: budamıBudha

    Haber sitelerinin hazır api'leri yokmu. Daha kolay olurdu.

    html çekmenin kötü yanı, site kodlaması değişince, çeken kod işe yaramaz hale geliyor, müdehale gerekiyor...

    Senin kod değişmedi ise, haber sitesinin yapısı değişmiş olabilir. api'si olan bir haber sitesi bulmanı tavsiye ederim...
    varmı bilmiyorum...



    Cevabın İçin Teşekkürler , Dediğin gibi haber sitesinin api si değişmiştir api si olan bir tane nasıl buluruz şuan kullandığım sistemin aynısından başkalarıda kullanmakta onlar trthaber den çekiyor galiba onlarda da aynı sorun var ama düzeltmişler.
  • Benim sistem klasik asp vbscript
  • Haber sitesi sayfasını incelemek ve uyumsuzluğu bulmak lazım.
    Ancak o kodları yazan kişi kısa sürede halledebilir.

    internetten html sayfa çekmek aslında çok kolay kendi kodunu yazabilirsin.
    asp net de 4 satırda çekmişler... interneti araştırınca hemen bulunuyor. Örnek. 

     
      HttpWebRequest req = (HttpWebRequest)WebRequest.Create(URL); 
      HttpWebResponse response = (HttpWebResponse)req.GetResponse(); 
      StreamReader streamReader = new StreamReader(response.GetResponseStream()); 
      string HTMLcode = streamReader.ReadToEnd();


    4 satırda HTMLcode değişkeni içine tüm sayfayı yüklemiş.
    Bundan sonrası, HTMLcode değişkeni içinden yazıları ayıklayıp istediğin şekilde göstermek...

    sana yardımcı olamadım özür diliyorum ama çok vakit ayırmak gerekiyor o iş için...
    tabi aynı kodu yada benzerini kullanan varsa başka...

    biraz web api varmı diye baktım... gördümki iş ticarete dönmüş para ile satıyorlar... satın almak sorun değil, aldıktan sonrada adamlara mahkum kalıyorsun.
    site değiştimi mecbur adamlara müracaat ediyorsun...

    en doğrusu kendi kodun...




  • quote:

    Orijinalden alıntı: budamıBudha

    Haber sitesi sayfasını incelemek ve uyumsuzluğu bulmak lazım.
    Ancak o kodları yazan kişi kısa sürede halledebilir.

    internetten html sayfa çekmek aslında çok kolay kendi kodunu yazabilirsin.
    asp net de 4 satırda çekmişler... interneti araştırınca hemen bulunuyor. Örnek. 

     
      HttpWebRequest req = (HttpWebRequest)WebRequest.Create(URL); 
      HttpWebResponse response = (HttpWebResponse)req.GetResponse(); 
      StreamReader streamReader = new StreamReader(response.GetResponseStream()); 
      string HTMLcode = streamReader.ReadToEnd();


    4 satırda HTMLcode değişkeni içine tüm sayfayı yüklemiş.
    Bundan sonrası, HTMLcode değişkeni içinden yazıları ayıklayıp istediğin şekilde göstermek...

    sana yardımcı olamadım özür diliyorum ama çok vakit ayırmak gerekiyor o iş için...
    tabi aynı kodu yada benzerini kullanan varsa başka...

    biraz web api varmı diye baktım... gördümki iş ticarete dönmüş para ile satıyorlar... satın almak sorun değil, aldıktan sonrada adamlara mahkum kalıyorsun.
    site değiştimi mecbur adamlara müracaat ediyorsun...

    en doğrusu kendi kodun...

    Dediğin gibi yapmaya çalışacam teşekkürler.




    • Yapay Zeka’dan İlgili Konular
    Hazır HTML Template Türkçe Karakter Sorunu
    9 yıl önce açıldı
    Asp mysql türkçe karakter sorunu
    10 yıl önce açıldı
    Web sitem arama motoru başlığı hakkında yardım
    geçen yıl açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız