AccessTr.neT

Tam Versiyon: başka siteden bilgi çekmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
merhaba arkadaşlar

çalıştığım şirketin hazır web şablonuna bir siteden bilgi çekmek istiyoruz ama başaramadık

bizim site asp ile yapılmış hazır bir site bilgileri almak istediğimiz site ise "http://www.adanatb.org.tr/ " sitesidir bu sitedeki sayfa resminin hemen altında geçen tohum fiyatlarıyla ilgili alanı kendi sitemize eklemek istiyoruz
biz şöyle bir komut yazdık;

<%
Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject(“MSXML2.ServerXMLHTTP.3.0¨ )
StrHTTP.Open “GET” , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
%>

<%
dim aranan,temp,URL,Veri,AramaBaslangic,AramaBitis,Hata
URL = “http://www.adanatb.org.tr/”
Veri = GETHTTP(Url)
%>

<%
AramaBaslangic = “<!–BEGIN: HEADER–>”
AramaBitis = “<!–END: HEADER–>”
if Veri=”" then
Hata = 1
end if
temp=”"
if Hata > 0 then
temp=”Sayfada hata var”
else
KodBaslasin = Instr(Veri, AramaBaslangic)
KodBitsin = Instr(Veri, AramaBitis)
Sonuclar = Mid(Veri, (KodBaslasin), ((KodBitsin)-(KodBaslasin)))
Sonuclar = Replace(Sonuclar,”ASP Kodları”,”ASP Dersleri”)
temp = Sonuclar
end if
Response.Write temp
%>
acaba nerede yanlış yapıyoruz nasıl düzeltebiliriz.
Seni o siteden veri çekmen biraz zor çünkü site değil sanki kağnı Lol
http://www.zumrut.org/AccessTR/index.php adresindeki gibi bir sonuçmu istiyorsunuz?
evet aynen böyle bir sonuç istiyoruz
bu site yavaş öldürüyo açılana kadar. bide izmir ticaret borsası var ama bu daha iyi napalım artık Img-grin
Dosyayı vereyim o zaman size ancak PHP ile yazdım bunu. Sizin sunucu PHP destekliyor mu?
yok desteklemiyo sunucu windows site asp manuel yapmak çok zor oluyo o sitede değiştimi bizimkide ona ayak uydursun istiyorum yukarda yazdığım kodu desteklemedi hazır sistem bizimki bide fazlasıyla kısıtlı o yüzden olabilir ama scriptleri destekliyo
Sayfalar: 1 2