bu sefer ("MSXML2. ServerXMLHTTP")bu hata verdimsxml3. dll error '80072ee6' The URL does not use a recognized protocol /bellek. asp, line 8 ya şunları kaynak kodu oalrak getircek yokmu?Resimlerde sorun çıkıyor, Türkçe karakterlerde sorun çıkıyor alla alla. İndirdim bi deface mirrorünü bi karışık geldi oda pff. txturl diye deface. asp ye gndermiş. Deface aspde txtveri yok. Bütün include olan sayfalara baktım çevirmemişte allahım deli olcam valla.. edit hocalar hallettim tr karakterini tek sorun resimleri site.com/resim. jpg değilde benimsitem/resim. jpg olarak gsteriyor

data = Replace(data, """", "'", 1, -1, 1) bununla..

hcoam şyle yaptımBasla = InStr(1, BinaryToString , "<a href=""" , 1) + Len Bitir = InStr(Basla, BinaryToString , """>" , 1) - Basla Title = Mid(BinaryToString , Basla, Bitir) response. write Titlebunu 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 ="gor" thenstrURL = request. form Dim objXmlHttpSet objXmlHttp = Server. CreateObject("MSXML2. ServerXMLHTTP")objXmlHttp. Open "GET" , strURL, falseobjXmlHttp. sEndstrHTML = objXmlHttp. ResponseBodyPrivate Function BinaryToString Dim cl1, cl2, cl3, pl1, pl2, pl3Dim Lcl1 = 1cl2 = 1cl3 = 1L = LenB Do While cl1<=Lpl3 = pl3 & Chr(AscB(MidB(Binary, cl1,1)))cl1 = cl1 + 1cl3 = cl3 + 1If cl3>300 Thenpl2 = pl2 & pl3pl3 = ""cl3 = 1cl2 = cl2 + 1If cl2>200 Thenpl1 = pl1 & pl2pl2 = ""cl2 = 1End IfEnd IfLoopBinaryToString = pl1 & pl2 & pl3End FunctionFunction guven 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=dataEnd FunctionResponse. Write guven(BinaryToString &"<hr>"Basla = InStr(1, BinaryToString , "<a href=""" , 1) + Len Bitir = InStr(Basla, BinaryToString , """>" , 1) - Basla Title = Mid(BinaryToString , 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üşünceBasla = InStr(1, BinaryToString , "<a href=""" , 1) + Len Bitir = InStr(Basla, BinaryToString , """>" , 1) - Basla Title = Mid(BinaryToString , Basla, Bitir) olc = left(Title,7)Function guven data = Replace(data, "document. cookie", "&#068;ocument. cookie", 1, -1, 1)if olc <> "http://" thendata = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1)end ifdata = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1)guven=dataEnd Functionburda left olarak aldım http:// baktım fakat yine olmadı :-/ uzaklaşıyorum sonuçtan bulucam ama herşey kontrol altında

bir sayfadan formla siteadi gnderilsin<%kaynak = request. form set xmlhttp_seyi = server. createobject 'zumsuk sunucunda hangi xml bileşeni varsa onu seç, sanırım üstteki vardır, yoksa alttan olanı seç'set xmlhttp_seyi = server. createobject("Msxml2. XMLHTTP")'set xmlhttp_seyi = server. createobject("Msxml2. XMLHTTP.3.0")'set xmlhttp_seyi = server. createobject("Msxml2. ServerXMLHTTP")xmlhttp_seyi. open "get", kaynak, falsexmlhttp_seyi. sendsonuc = xmlhttp_seyi. responsetextset xmlhttp_seyi = nothingresponse. write sonuc%>

mid fonksiyonuyla ilk 7 karakteri bl 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 thendoğru linkend ifşeklinde..

hepsini boş verindata = Replace(data, "a", "b", 1, -1, 1) burda a yazınca b ye çevriliyor ya bana çift tırnak " yazınca tek tırnağa ' çevirecek kod lazım data = Replace(data, """, "'", 1, -1, 1) yaptımı hata veriyor. Bunu çzersem istediğim şeye ulaşabilirim.

:D hoca adam topliste sitesini girecek kodları çekicem altı üstü. Yapacağım iş sitenin anlık grüntüsünü almak olacak fakat cıxx olmadı. gerçi ctrl+ u yaptığımızda da dediğim şekilde gstermiyorda. 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ıyorumlinklin içinde site varsa koyma yoksa koy bu dur deniyeyim

hadi ya :D bi kaç aya phpye geçmeyi düşünüyorum :)phpde dngüler vs.. bi çoğunu biliyorum tek sorun şu phpmyadmin abi access te çok klay herşey fakat phpmyadmin bi zor geliyor anlatamam. Fakat geçicem edit:abi ayrıca bana bütün a hrefleri gzden geçirse yeter aynısını reismlerede uygularım flash falan kasmaya gerek yok :)bi o sorunum var işte ilk linkte halledip bırakıyor

google google olalı kaç yıl geçti zümzük durmak yok yola devam :D kelimeler albayım bazı anlamlara gelmiyor.

abi çzdüm ya dedim ama mantık hatası diyeFunction guven data = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1)data = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1)guven=dataEnd Function "a href=""", "a href="""&strURL&"/""a href="&strURL&"/" yerine "a href="""&strURL&"/" yazınca oldu :)

birtane asp-deface kayıt scripti vardı ondan çalabilrisn kodları =) ..

http://www.nickmator.com/gor. aspsoyle 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üyorumfoxxlyden 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 Dim cl1, cl2, cl3, pl1, pl2, pl3 Dim L cl1 = 1 cl2 = 1 cl3 = 1 L = LenB 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 & pl3End FunctionOn error resume nextsite = "http://theturkler.com/default. asp"Set HTTP = Server. CreateObject HTTP. Open "Get" , site, False HTTP. SEndSayfa_Al = BinaryToString Set HTTP = Nothingif err then response. write "HATA: "&err. description else Basla = InStr(1, Sayfa_Al, "<title>" , 1) + Len Bitir = InStr(Basla, Sayfa_Al, "</title>" , 1) - Basla Title = Mid response. write Title &"<br /><br />" Basla = InStr(1, Sayfa_Al, "<meta name=""keywords"" content=""" , 1) + Len Bitir = InStr(Basla, Sayfa_Al, ">" , 1) - Basla Keyws = Mid response. write Keyws &"<br /><br />" end if %> olmazsa şimdilik sadece grü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 dngü 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.

ula?an?yla?m?lginin ula?ir olmas?i gibi çıktı kodlar. Nedne byle oluyor ki?Halbu ki aynı kodu alıyor gsteriyor :-/ edit:set xmlhttp_seyi = server. createobject("Msxml2. XMLHTTP")bunu kullanınca daha hızlı sonuç verdi sanki :)saolasın ustaEdit2:Birde sorun olduğu gibi almıyor. Yani atıyorum site.com/resim/banner. jpg ise benimsitem/resim olarak çeviriyor. Ben www.tahribat.om yazdığımızda kaynak koduna bakınca hangi html grüyorsak onu alalım istiyorum misal;http://209.85.135.104/search?q=cache:Azmd4TJBO1EJ:www. tahribat.com/+tahribat&hl=tr&ct=clnk&cd=1&gl=tr

<%strURL = "http://tahribat.com"Dim objXmlHttpSet objXmlHttp = Server. CreateObject("MSXML2. ServerXMLHTTP")objXmlHttp. Open "GET" , strURL, falseobjXmlHttp. sEndstrHTML = objXmlHttp. ResponseBodyPrivate Function BinaryToString Dim cl1, cl2, cl3, pl1, pl2, pl3Dim Lcl1 = 1cl2 = 1cl3 = 1L = LenB Do While cl1<=Lpl3 = pl3 & Chr(AscB(MidB(Binary, cl1,1)))cl1 = cl1 + 1cl3 = cl3 + 1If cl3>300 Thenpl2 = pl2 & pl3pl3 = ""cl3 = 1cl2 = cl2 + 1If cl2>200 Thenpl1 = pl1 & pl2pl2 = ""cl2 = 1End IfEnd IfLoopBinaryToString = pl1 & pl2 & pl3End FunctionFunction guven data = Replace(data, "img src=""", "img src="&strURL&"/", 1, -1, 1)data = Replace(data, "a href=""", "a href="&strURL&"/", 1, -1, 1)guven=dataEnd FunctionResponse. Write guven(BinaryToString %> byle yapıyorum bu seferresimlerde tahribat.com/resim. jpg" çıkıyor linklerde tahribat.com/link. asp" çıkıyorbu sonundaki " nerden gleiyor nasıl düzeltirim kafayı yicem

:D abü zamanında ben de denedim onu o iş asp ile yaş :Dkendini kassan bile adam sitesinde../ kullanmışsa veya css dosyasında klasrden resim belirtmişse kalırsın ortada :Dasphttp3 diye bi bileşen var ancak ücretli onunla çok daha basit bir yntemle yapılabiliyormuş araştırmalarımın sonucunda onu bulmuştum vaz geçmiştim. veya regular expressions kasman gerek ileri düzeyde ben onun içinden çıkamıyorum :D asphttp3 ü araştır kasma kendini :D+ aklıma gelmişken binary ile indexin içini kontrol edip bağlı olan resimler, css dosyası gibi şeyleri kendi serverine download edip linkleride düzenleyerek kaydedebilirsin ancak flash sitelerde ve css içinde belirtilmiş resimlerde yine başın ağrır :D php veya sitenin resmini alexa vb yerlerden aldırıp kaydetmeni neriyorum ;) :|

abi işte google botları var ya siteyi indexliyor onun gibilink sorunu vardı mesela linkler benimsitem/link. asp olarak çıkıyordu ve resimler benimsitem/resim. jpg onuFunction guven data = Replace(data, "img src=""", "img src="&strURL&"/", 1, -1, 1)data = Replace(data, "a href=""", "a href="&strURL&"/", 1, -1, 1)guven=dataEnd FunctionResponse. Write guven(BinaryToString bu kod ile site/link. asp yaptım resmide hallettim. Hatta o kadar iyi yaptım ki site/link. asp çıkıyor artık :-/

<%strURL = "http://"&request. form Dim objXmlHttpSet objXmlHttp = Server. CreateObject("MSXML2. ServerXMLHTTP")objXmlHttp. Open "GET" , strURL, falseobjXmlHttp. sEndstrHTML = objXmlHttp. ResponseBodyPrivate Function BinaryToString Dim cl1, cl2, cl3, pl1, pl2, pl3Dim Lcl1 = 1cl2 = 1cl3 = 1L = LenB Do While cl1<=Lpl3 = pl3 & Chr(AscB(MidB(Binary, cl1,1)))cl1 = cl1 + 1cl3 = cl3 + 1If cl3>300 Thenpl2 = pl2 & pl3pl3 = ""cl3 = 1cl2 = cl2 + 1If cl2>200 Thenpl1 = pl1 & pl2pl2 = ""cl2 = 1End IfEnd IfLoopBinaryToString = pl1 & pl2 & pl3End FunctionResponse. Write BinaryToString %> te büyle yaptım Türkçe problem halloldu fakat tek sorun resimleri gsterememesi..

<%Session. CodePage=1252 Response. CharSet = "iso-8859-9" strURL = "http://www.tahribat.com/forumdisplayfolder. asp?folderid=70053"Set objXmlHttp = Server. CreateObject("MSXML2. ServerXMLHTTP")objXmlHttp. Open "GET" , strURL, falseobjXmlHttp. sEndstrHTML = objXmlHttp. ResponseTextSet objXmlHttp = Nothingresponse. write strHTML%>tr karakter sorunu çıkmaz kelimeler albayım bazı anlamlara gelmiyor.

hoba olmadı :D bu seferde adam http://site.com/link. asp vermişsehttp://site.com/link. asp/http://site.com/link. asp çıkıyor :-/yaw sağ tıklayıp kaynak kodlarını gster dediğimizde ne güzel linklr falan hepsi site üzeirnden gsteriliyor 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 333başımıza taş yağacak

Arkadaşlar aspde kutucuğa site yazıp sit ekodlarını nasıl indexletebilirim?Yani googledaki nbellek misaliwww.tahribat.com yazıcaz web-archive zone google gibi nbelleğe alsın beceremedim bir türlü onu.:D evet sizde fark ettiniz arama motoru üstünde çalışıyorum. Ufak bi proje. Google kitabını okuyunca gaza geliyor insan. Neyse bozmayalım konuyu :-/

yok abi yok off ofwww.nickmator.com/gor. aspbak yapıyorum www.dagon.somee.com yazdım kafasına gre linkleir düzenliyor. kafam attı. Dngü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 koduBasla = InStr(1, BinaryToString , "<a href=""" , 1) + Len Bitir = InStr(Basla, BinaryToString , """>" , 1) - Basla Title = Mid(BinaryToString , Basla, Bitir) olc = left(Title,7)Function guven 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=dataEnd FunctionResponse. Write guven(BinaryToString &"<hr>" değiştiriyorumBasla = InStr(1, BinaryToString , "<a href=""" , 1) + Len Bitir = InStr(Basla, BinaryToString , """>" , 1) - Basla Title = Mid(BinaryToString , Basla, Bitir) olc = left(Title,7)Function guven if olc <> "http://" thendata = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1)end ifdata = Replace(data, "document. cookie", "&#068;ocument. cookie", 1, -1, 1)data = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1)guven=dataEnd FunctionResponse. Write guven(BinaryToString &"<hr>" diyorum. Mantıken orda olc http:// den farklıysa başına sitenin urlsini yerleştiriyor fakat sanıyorum dngü 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 :-/

hmmFunction guven data = Replace(data, """", "'", 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=dataEnd FunctionResponse. Write guven(BinaryToString byle yaptım bu seferde link. asp' ve resim. jpg' çıktı demek ki kodlarda bi sorun varoff of

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

Basla = InStr(1, BinaryToString , "<a href=""" , 1) + Len Bitir = InStr(Basla, BinaryToString , """>" , 1) - Basla Title = Mid(BinaryToString , Basla, Bitir) olc = left(Title,7)Function guven if olc <> "http://" thendata = Replace(data, "href=""", "a href="""&strURL&"/", 1, -1, 1)end ifdata = Replace(data, "document. cookie", "&#068;ocument. cookie", 1, -1, 1)data = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1)guven=dataEnd Function kodların data, "href=""", "href="""&strURL&"/", 1, -1, 1) kısmında a href kullanınca adam mesela a blank="" falan sıkıştırdımı grmüyordu onu halledebildim. Fakat grdüğüm sorun şueğer ilk linkin başında http:// varsa bütün linklerde http:// var diye algılıyor. Yani burda tekrar dediğim gibi bütün linkleri kotnrol ettirmem lazım :S bi tane dngü olsa ne güzel.