bir sayfadaki sadece yazı kısmını hangi kodlarla çekebiliriz?

22-04-2007, 12:01:57

Eposta Aktivasyonu Gerekmekte

örnek olsun diye veriyorum mesela Günlük Yıldız Falınız bu sayfadaki burç yorumunu hergun otomatik olarak hangi kodla çekebiliriz?

23-04-2007, 16:11:27

#2

ayyildiz

asptear kullanabilirsin arkadasim.

23-04-2007, 16:13:47

#3

gergedan

Eposta Aktivasyonu Gerekmekte

o nedir

örnek verebilirmisn

23-04-2007, 16:20:28

#4

ayyildiz

Aşağıdaki kodu kullanabilirsin:

 
<%
sayfa=http://www.------.com/vs.asp
On Error Resume Next 
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateObject("Msxml2.XMLHTTP")
objXmlHttp.open "GET", ""&sayfa&"", False 
objXmlHttp.send
strHTML    = objXmlHttp.ResponseText
Set objXmlHttp   = Nothing
SayfaKodu    = Server.HTMLEncode(strHTML)
yer    = Instr(1,SayfaKodu,"sayfadabukelimeyibul") 
icerik     = Mid(SayfaKodu,yer,10233) 
 
response.write icerik
%>

23-04-2007, 16:32:53

#5

gergedan

Eposta Aktivasyonu Gerekmekte

ne yalan söyleyim yerine adresi yazdım .asp olarak kaydedip explorerda açmayı denedim çalışmadı. asp, php bilgimde sıfır

23-04-2007, 16:37:39

#6

ayyildiz

hata nedir?

23-04-2007, 16:49:16

#7

gergedan

Eposta Aktivasyonu Gerekmekte

hiçbirşey çıkmıyoki

sayfa= kısmını editledim sadece yukarıdaki ilk mesjaımdaki adresi girdim ama olmadı

23-04-2007, 16:52:38

#8

ayyildiz

veriyi aldiracagin sayfada herhangi bir kelime sec ornegin "Burçlar" bu kelime ile "sayfadabukelimeyibul" yeri degistir. Kod sayfada aradigi kelimeyi bulursa cikti verir.

23-04-2007, 17:00:25

#9

gergedan

Eposta Aktivasyonu Gerekmekte

hocam aynen şu kodlarla isim.asp diye oluşturdum ve explorarda açtım fakat ekrarna birşey yansımadı...

Alıntı

<%
sayfa=http://www.astroloji.org/yildizfali/basak.asp
On Error Resume Next
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateObject("Msxml2.XMLHTTP")
objXmlHttp.open "GET", ""&sayfa&"", False
objXmlHttp.send
strHTML = objXmlHttp.ResponseText
Set objXmlHttp = Nothing
SayfaKodu = Server.HTMLEncode(strHTML)
yer = Instr(1,SayfaKodu,"Nisan")
icerik = Mid(SayfaKodu,yer,10233)
response.write icerik
%>