Asp İle Deprem Bilgisi Kodu Ayarlar

**Root** · 09-30-2006, 10:33 AM

HAZIRKODLAR
Script Adı : ASP ile Deprem Bilgisi
Telif : memder
Kategori : Asp

<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>

09-30-2006, 10:33 AM	#1 (permalink)
Root Görev Alma Vakti Ezberim Üyelik BiLgilerim Üyelik tarihi: Aug 2006 Üye No: 17450 Mesajlar: 668 Ezberim Tşk İstatistikleri Tesekkür: 18 5 Mesajına 31 Kere Teşekkür Edildi Ezberim Rep PuanLaması İtibar Gücü: 49 Rep Puanı: 3400 Rep Derecesi:	Asp İle Deprem Bilgisi Kodu Ayarlar HAZIRKODLAR Script Adı : ASP ile Deprem Bilgisi Telif : memder Kategori : Asp <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>

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder