folder Tahribat.com Forumları
linefolder Asp - Php - Cgi - Perl
linefolder Aspde Siteyi Html Kodlarınla İndexlemek



Aspde Siteyi Html Kodlarınla İndexlemek

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    alp
    alp's avatar
    Kayıt Tarihi: 28/Ekim/2003
    Erkek

    hocam sen datayı ve ne yapmak istediğini yaz da bi bakalım

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Ayro
    Ayro's avatar
    Kayıt Tarihi: 08/Ağustos/2005
    Erkek

    abi işte google botları var ya siteyi indexliyor onun gibi

    link sorunu vardı mesela linkler

    benimsitem/link.asp olarak çıkıyordu ve resimler benimsitem/resim.jpg onu

    Function guven(data)
    data = Replace(data, "img src=""", "img src="&strURL&"/", 1, -1, 1)
    data = Replace(data, "a href=""", "a href="&strURL&"/", 1, -1, 1)
    guven=data
    End Function

    Response.Write guven(BinaryToString(strHTML))

     

    bu kod ile site/link.asp yaptım resmide hallettim.Hatta o kadar iyi yaptım ki site/link.asp çıkıyor artık :-/

     

    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Ayro
    Ayro's avatar
    Kayıt Tarihi: 08/Ağustos/2005
    Erkek

    abi çözdüm ya dedim ama mantık hatası diye

    Function guven(data)
    data = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1)
    data = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1)
    guven=data
    End Function

      "a href=""", "a href="""&strURL&"/"

    "a href="&strURL&"/" yerine "a href="""&strURL&"/" yazınca oldu :)

    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Ayro
    Ayro's avatar
    Kayıt Tarihi: 08/Ağustos/2005
    Erkek

    hoba olmadı :D bu seferde adam http://site.com/link.asp vermişse

    http://site.com/link.asp/http://site.com/link.asp çıkıyor :-/

    yaw sağ tıklayıp kaynak kodlarını göster dediğimizde ne güzel linklr falan hepsi site üzeirnden gösteriliyor direk alacak yokmu yoksa oturup her türlü olasılık için ayrı ayrı kodmu yazmam lazım

    eidt:

     Aspde Siteyi Html Kodlarınla Indexlemek   333

    başımıza taş yağacak

    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    FOXXLY
    FOXXLY's avatar
    Kayıt Tarihi: 19/Haziran/2006
    Erkek
    google google olalı kaç yıl geçti zümzük durmak yok yola devam :D
    kelimeler albayım bazı anlamlara gelmiyor.
    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Ayro
    Ayro's avatar
    Kayıt Tarihi: 08/Ağustos/2005
    Erkek

    :D hoca adam topliste sitesini girecek kodları çekicem altı üstü.

    Yapacağım iş sitenin anlık görüntüsünü almak olacak fakat cıxx olmadı.

    gerçi ctrl+ u yaptığımızda da dediğim şekilde göstermiyorda.

    Yapıcam lan bitirdiğimde manyak zevk alıyorum yapıcamda du bakalım..bi kaç gün içinde kodlarınıda burada vericem basit birşey aslıdna iflerle yapabilirim sanıyorum

    linklin içinde site varsa koyma yoksa koy bu dur deniyeyim

    Reply With Quote Alıntı yap
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Ayro
    Ayro's avatar
    Kayıt Tarihi: 08/Ağustos/2005
    Erkek

    http://www.nickmator.com/gor.asp

    soyle bişey yaptım.Burda www.tahribat.com falan yazınca iyi güzel hiç bi sorun yok.

    www.google.com yazıyorum adam linki http:// ile vermiş hoppp sorun oluyor çözücem bulum olayı şöyle birşey düşünüyorum

    foxxlyden almıştım galba kod 1 i.Orda metaları buluyor onun tarzında bir işlem yapıcam <a href leri  taratıcak.Eğer a hreflede site urlsi yoksa ekliyicek.instile kontrol edicem

    ---------kod 1 ------------------

    <%
    Function BinaryToString(Binary)
        Dim cl1, cl2, cl3, pl1, pl2, pl3
        Dim L
            cl1 = 1
            cl2 = 1
            cl3 = 1
            L = LenB(Binary)
        Do While cl1<=L
            pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
            cl1 = cl1 + 1
            cl3 = cl3 + 1
        If cl3>300 Then
            pl2 = pl2 & pl3
            pl3 = ""
            cl3 = 1
            cl2 = cl2 + 1
        If cl2>200 Then
        pl1 = pl1 & pl2
        pl2 = ""
        cl2 = 1
        End If
        End If
        Loop
        BinaryToString = pl1 & pl2 & pl3
    End Function

    On error resume next
    site = "http://theturkler.com/default.asp"

    Set HTTP = Server.CreateObject("Microsoft.XMLHTTP" )
      HTTP.Open "Get" , site, False
      HTTP.SEnd
    Sayfa_Al = BinaryToString(HTTP.ResponseBody)
    Set HTTP = Nothing


    if err then

     response.write "HATA: "&err.description

     else
      Basla = InStr(1,Sayfa_Al, "<title>" , 1) + Len("<title>" )
      Bitir = InStr(Basla, Sayfa_Al, "</title>" , 1) - Basla
      Title = Mid(Sayfa_Al, Basla, Bitir)
      response.write Title &"<br /><br />"
     
      Basla = InStr(1,Sayfa_Al, "<meta name=""keywords"" content=""" , 1) + Len("<meta name=""keywords"" content=""" )
      Bitir = InStr(Basla, Sayfa_Al, ">" , 1) - Basla
      Keyws = Mid(Sayfa_Al, Basla, Bitir)
      response.write Keyws &"<br /><br />" 

     end if
     
    %>

    ----------------

    olmazsa şimdilik sadece görüntüsünü alır.Fakat bunu yaparım bu kolaysa korkum şu adam verdi mesela http://www.tahribat.com diye linki site.com lini yok o zaman http://site.com/http://tahribat.com olacak.

    Onuda sanıyorum instr de ilk 7 harfında http:// varmı diye if li döngü kurucam.Yani başında http:// varsa kurcuklama yoksa http://site.com ekle.

    De şimdi a hrefleri nasıl sorgulayacğaım ona bakıyorum.Olacak oalcak.Sakin olcam kafayı kullancam yapıcam.

    Reply With Quote Alıntı yap
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    alp
    alp's avatar
    Kayıt Tarihi: 28/Ekim/2003
    Erkek

    mid fonksiyonuyla ilk 7 karakteri böl harfleri kontrol et..

    ya da instr ile http:// var mı ona bak, bu midden daha kolay daha kullanışlı

    if instr(1, nerdearayacaksan, "http://") = 1 then
    doğru link
    end if

    şeklinde..

    Reply With Quote Alıntı yap
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Ayro
    Ayro's avatar
    Kayıt Tarihi: 08/Ağustos/2005
    Erkek

    hcoam şöyle yaptım

    Basla = InStr(1,BinaryToString(strHTML), "<a href=""" , 1) + Len("<a href=""" )
      Bitir = InStr(Basla, BinaryToString(strHTML), """>" , 1) - Basla
      Title = Mid(BinaryToString(strHTML), Basla, Bitir)
     
      response.write Title

    bunu yaptım a ilk linki çıkartıyor sayfadaki bütün linki çıkartmasını istiyorum.Sayfanın olduğu gibi kodunuda vereyim.Hallettim şimdi tek sorunsayfadaki bütün linkleri taratmak :D sonrada bi if bi replace ile halledicem.

    title yazdığına bakma foxxly nin meta tagını çeken bi scritpi vardı ondan kaptım.Az kaldı bitiriyorum.

    <meta http-equiv="Content-Language" content="tr">
    <%
    if request.querystring("islem")="gor" then
    strURL = request.form("site")
    Dim objXmlHttp
    Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
    objXmlHttp.Open "GET" , strURL , false

    objXmlHttp.sEnd

    strHTML = objXmlHttp.ResponseBody

    Private Function BinaryToString(Binary)
    Dim cl1, cl2, cl3, pl1, pl2, pl3
    Dim L
    cl1 = 1
    cl2 = 1
    cl3 = 1
    L = LenB(Binary)
    Do While cl1<=L
    pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
    cl1 = cl1 + 1
    cl3 = cl3 + 1
    If cl3>300 Then
    pl2 = pl2 & pl3
    pl3 = ""
    cl3 = 1
    cl2 = cl2 + 1
    If cl2>200 Then
    pl1 = pl1 & pl2
    pl2 = ""
    cl2 = 1
    End If
    End If
    Loop
    BinaryToString = pl1 & pl2 & pl3
    End Function

    Function guven(data)
    data = Replace(data, "document.cookie", "&#068;ocument.cookie", 1, -1, 1)
    data = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1)
    data = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1)
    guven=data
    End Function

    Response.Write guven(BinaryToString(strHTML))&"<hr>"

    Basla = InStr(1,BinaryToString(strHTML), "<a href=""" , 1) + Len("<a href=""" )
      Bitir = InStr(Basla, BinaryToString(strHTML), """>" , 1) - Basla
      Title = Mid(BinaryToString(strHTML), Basla, Bitir)
     
      response.write Title
     


    else
    %><p><form action='?islem=gor' method="post">
     <font face="Tahoma">
            <input type="text" name="site" size="33" maxlength="40" style="border: 1px solid #C40000" value="http://"> </font>
       <input type="submit" value="gonder" size="27" style="border: 1px solid #C0C0C0"></p>
    <%end if%>

    -----------------------------------

    başka bir düşünce

    Basla = InStr(1,BinaryToString(strHTML), "<a href=""" , 1) + Len("<a href=""" )
      Bitir = InStr(Basla, BinaryToString(strHTML), """>" , 1) - Basla
      Title = Mid(BinaryToString(strHTML), Basla, Bitir)
      olc = left(Title,7)

    Function guven(data)
    data = Replace(data, "document.cookie", "&#068;ocument.cookie", 1, -1, 1)
    if olc <> "http://" then
    data = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1)
    end if
    data = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1)
    guven=data
    End Function

    burda left olarak aldım http:// baktım fakat yine olmadı :-/ uzaklaşıyorum sonuçtan bulucam ama herşey kontrol altında

     

    Reply With Quote Alıntı yap
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Ayro
    Ayro's avatar
    Kayıt Tarihi: 08/Ağustos/2005
    Erkek

    yok abi yok off of

    www.nickmator.com/gor.asp

    bak yapıyorum www.dagon.somee.com yazdım kafasına göre linkleir düzenliyor.  kafam attı.Döngüyle baştan sona kadar hepsini tarayıp düznelemesi lazım sanıyorum.Hata orda olması gerek teo nasıl olcak :-/

    bulucam lan!

    edit:

    bune beaa tahribat üstünde denedim olaya bak

    Site Haritası

    nickmator.com/site diyor of anam off...

    edit 2:

    şu kodu

    Basla = InStr(1,BinaryToString(strHTML), "<a href=""" , 1) + Len("<a href=""" )
      Bitir = InStr(Basla, BinaryToString(strHTML), """>" , 1) - Basla
      Title = Mid(BinaryToString(strHTML), Basla, Bitir)
      olc = left(Title,7)

    Function guven(data)
    data = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1)
    data = Replace(data, "document.cookie", "&#068;ocument.cookie", 1, -1, 1)
    data = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1)
    guven=data
    End Function

    Response.Write guven(BinaryToString(strHTML))&"<hr>"

    -----------

    değiştiriyorum

    Basla = InStr(1,BinaryToString(strHTML), "<a href=""" , 1) + Len("<a href=""" )
      Bitir = InStr(Basla, BinaryToString(strHTML), """>" , 1) - Basla
      Title = Mid(BinaryToString(strHTML), Basla, Bitir)
      olc = left(Title,7)

    Function guven(data)


    if olc <> "http://" then
    data = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1)
    end if
    data = Replace(data, "document.cookie", "&#068;ocument.cookie", 1, -1, 1)
    data = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1)
    guven=data
    End Function


    Response.Write guven(BinaryToString(strHTML))&"<hr>"

     

    diyorum.Mantıken orda olc http:// den farklıysa başına sitenin urlsini yerleştiriyor fakat sanıyorum döngü veremediğimden dolayı bütün linklere uygulamıyor.Peki bütün linklere nasıl uygulayacağım ben bunu ? Yani sayfa başındans onuna kadar a hrefleri kontrol etsin.Eğer başında http:// varsa ellemeyecek yoksa strURL yi koyacak :-/

     

    Reply With Quote Alıntı yap
Toplam Hit: 3580 Toplam Mesaj: 24