Programalama > ASP

Etiketler: asp, tear, hava, durumu......

Ort. 0
Puan ver:
<%  
const Request_GET = 2  
Dim haberURL, haberim, basliklar  
haberURL = "http://www.tr.net"     
Set alma = CreateObject("SOFTWING.ASPtear" )  
On Error Resume Next  
haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )  
If Err.Number <> 0 Then  
    Response.Write "HATA!!!!!!!    Lütfen Sayfayi Yeniden Yükleyiniz... "   
   Response.End  
End If   
dim baslangic , bitis  
baslangic = "<table border=0 cellpadding=0 cellcpacing=0>"   
bitis = "</table>"   
dim x , abc  
x = 0  
abc = 0  
dim lale  
lale = ""   
Do Until abc = 2  
x = x + 1  
If Mid(haberim,x,Len(bitis)) = bitis and abc = 1 Then  
abc = abc + 1  
End If  
If Mid(haberim,x,Len(baslangic)) = baslangic Then  
abc = abc + 1  
Else  
If abc = 1 Then  
lale = lale + Mid(haberim,x,1)  
End If  
End If  
Loop  
Function seklesok(hammadde)  
Dim gecicigeyik  
gecicigeyik = hammadde  
gecicigeyik = Replace(gecicigeyik, "" , "" , 1, -1, 1)  
gecicigeyik = Replace(gecicigeyik, "" , "" & vbCrLf, 1, -1, 1)  
seklesok = gecicigeyik  
End Function  
Response.Write "<" 
Response.Write seklesok(lale) 
Response.Write "</table>" 
%>


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 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.