Aspde Siteyi Html Kodlarınla İndexlemek

15/Tem/08 03:59

Kısayol

Şikayet

Özel Mesaj

Ayro

Kayıt Tarihi: 08/Ağustos/2005

Arkadaşlar aspde kutucuğa site yazıp sit ekodlarını nasıl indexletebilirim ??Yani googledaki önbellek misali

www.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 :-/

Alıntı yap

15/Tem/08 04:55

Kısayol

Şikayet

Özel Mesaj

alp

Kayıt Tarihi: 28/Ekim/2003

bir sayfadan formla siteadi gönderilsin

<%
kaynak = request.form("siteadi")

set xmlhttp_seyi = server.createobject("Microsoft.XMLHTTP")

'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, false
xmlhttp_seyi.send
sonuc = xmlhttp_seyi.responsetext
set xmlhttp_seyi = nothing
response.write sonuc
%>

Alıntı yap

15/Tem/08 12:08

Kısayol

Şikayet

Özel Mesaj

Ayro

Kayıt Tarihi: 08/Ağustos/2005

ula??an?yla?m?lginin ula??ir olmas?i

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

gibi çıktı kodlar.Nedne böyle oluyor ki ???Halbu ki aynı kodu alıyor gösteriyor :-/

edit:

set xmlhttp_seyi = server.createobject("Msxml2.XMLHTTP")

bunu kullanınca daha hızlı sonuç verdi sanki :)

saolasın usta

Edit2:

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 görü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

Alıntı yap

15/Tem/08 12:37

Kısayol

Şikayet

Özel Mesaj

Realist

Kayıt Tarihi: 13/Nisan/2007

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

..

Alıntı yap

15/Tem/08 12:38

Kısayol

Şikayet

Özel Mesaj

Ayro

Kayıt Tarihi: 08/Ağustos/2005

<%
strURL = "http://"&request.form("siteadi")
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

Response.Write BinaryToString(strHTML)
%>

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

te büyle yaptım Türkçe problem halloldu fakat tek sorun resimleri gösterememesi..

Alıntı yap

15/Tem/08 13:07

Kısayol

Şikayet

Özel Mesaj

FOXXLY

Kayıt Tarihi: 19/Haziran/2006

<%
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 , false

objXmlHttp.sEnd

strHTML = objXmlHttp.ResponseText
Set objXmlHttp = Nothing
response.write strHTML
%>

tr karakter sorunu çıkmaz

kelimeler albayım bazı anlamlara gelmiyor.

Alıntı yap

15/Tem/08 13:39

Kısayol

Şikayet

Özel Mesaj

Ayro

Kayıt Tarihi: 08/Ağustos/2005

bu sefer ("MSXML2.ServerXMLHTTP")

bu hata verdi

msxml3.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 göndermiş.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 gösteriyor

Alıntı yap

28/Ağu/08 19:23

Kısayol

Şikayet

Özel Mesaj

Ayro

Kayıt Tarihi: 08/Ağustos/2005

<%
strURL = "http://tahribat.com"
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, "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))
%>
----------

böyle yapıyorum bu sefer

resimlerde tahribat.com/resim.jpg" çıkıyor linklerde tahribat.com/link.asp" çıkıyor

bu sonundaki " nerden gleiyor nasıl düzeltirim kafayı yicem

Alıntı yap

28/Ağu/08 20:18

Kısayol

Şikayet

Özel Mesaj

Ayro

Kayıt Tarihi: 08/Ağustos/2005

hepsini boş verin

data = 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.

Alıntı yap

28/Ağu/08 20:21

Kısayol

Şikayet

Özel Mesaj

alp

Kayıt Tarihi: 28/Ekim/2003

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

Alıntı yap

28/Ağu/08 20:22

Kısayol

Şikayet

Özel Mesaj

Ayro

Kayıt Tarihi: 08/Ağustos/2005

hmm

Function guven(data)
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=data
End Function

Response.Write guven(BinaryToString(strHTML))

böyle yaptım bu seferde link.asp' ve resim.jpg' çıktı demek ki kodlarda bi sorun var

off of

Alıntı yap