Programalama > ASP


Ort. 0
Puan ver:
<% 
alinacakadres = "http://www.ntvmsnbc.com/news/BCList2.txt" 

Set Tear_ac = CreateObject("SOFTWING.ASPtear" ) 
dim bilgicek 
bilgicek = Tear_ac.Retrieve(alinacakadres , 2, "" , "" , "" ) 

nereden="Güncel Ön Sayfa" 
nereye="+UYUM YASASI" 

baslanacakyer=InStr(bilgicek,nereden)+15 
bitecekyer=InStr(bilgicek,nereye) 
baslangic=0 
son=0 
alinacakbolum=Mid(bilgicek,baslanacakyer,bitecekyer-baslanacakyer) 

For a= 1 to 100 

t=Len(alinacakbolum) 

If t<=0 Then 
exit For 
End If 

c=InStr(alinacakbolum,Chr(10)) 

If c<=0 Then 
exit For 
End If 

alinacakbolum=Right(alinacakbolum,t-c) 

baslangic=InStr(alinacakbolum,"/news/./" ) 
son=InStr(alinacakbolum,Chr(10)) 

If baslangic<=0 or son<=0 or son<baslangic Then 

else 
satir=Mid(alinacakbolum,baslangic,son-baslangic) 
If InStr(satir,"/news/./" )=0 or Len(satir)<20 Then 
else 
ekle=ekle & satir & "<br>" 
End If 
End If 

next 

ekle=Replace(ekle,"/news/./" ,"<a href='http://www.ntvmsnbc.com/news/" ,1,-1,1) 
ekle=Replace(ekle,"|" ,"'>" ,1,-1,1) 
ekle=Replace(ekle,Chr(10),"</a>" ,1,-1,1) 

Response.Write "<font face=verdana size=1 color=black>" & ekle & "</font>" 

%>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.