Programalama > ASP

Etiketler: asp, tear, deprem, bilgisi......

Ort. 0
Puan ver:
<html> 
<head> 
<style> 
table { font: 9px verdana,tahoma,arial; } 
</style> 
</head> 
<body bgcolor="#eeeeee"> 
<%  
const Request_GET = 2  
Dim haberURL, haberim, basliklar  
haberURL = "http://iyi.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 = "http://www.iyinet.com/images/deprem.gif"   
bitis = "Deprem Arsiv Kayitlari"   
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 "<table border='0' width='98%' cellspacing='0' cellpadding='0'>" 
Response.Write "<tr>" 
Response.Write "<td bgcolor='#F0F0F0' width='100%'>" 
Response.Write "<" 
Response.Write seklesok(lale) 
Response.Write "</td>" 
Response.Write "</tr>" 
Response.Write "</table>"   
%></body> 
</html>


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