Asp İle Veri Çekme Sorunsalı

03-07-2010, 12:19:15

Merhaba arkadaşlar; kayserieo.org.tr adresindeki nöbetçi eczaneleri çekerek kendi siteme koymak istiyorum.. Denedim ama em tr karakter sorunu alıyorumve tam istediğim aralığı yapamıyorum yardımcı olur musunuz?

04-07-2010, 11:20:55

#2

canafar12

Response.CodePage = 65001 
Response.CharSet = "utf-8" 
private Function GETHTTP(adres)  
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )  
StrHTTP.Open "GET" , adres, false  
StrHTTP.sEnd  
GETHTTP = fonkStream(strhttp.ResponseBody,"windows-1254") 
Set StrHTTP = Nothing  
End Function  

function fonkStream(Veri,KarakterSet)
dim objStream
set objStream = Server.CreateObject("ADODB.Stream")
 objStream.Type = 1
 objStream.Mode = 3
 objStream.Open
 objStream.Write Veri
 objStream.Position = 0
 objStream.Type = 2
 objStream.Charset = KarakterSet
 fonkStream = objStream.ReadText 
 objStream.Close
set objStream = Nothing
end function

site = gethttp("http://kayserieo.org.tr") 
bol = split(site,"<tr><td colspan=2>")
bol2 = split(bol(1),"<tr>")
response.Write "24 saat açıklar <br />"
for i=1 to ubound(bol2)
isim1 = instr(1,bol2(i),"return false"">")+14
isim2 = instr(1,bol2(i),"</a>")
isim = mid(bol2(i),isim1,isim2-isim1)
response.Write ">"&isim&"<br />" 
next
kes1 = instr(1,bol(2),"24 saat açıklar")+15
kes2 = instr(1,bol(2),"</table>")
kes = mid(bol(2),kes1,kes2-kes1) 
response.Write "gece 1 e kadar acıklar <br />"
bol3 = split(kes,"<tr>")
for a=1 to ubound(bol3)
isim11 = instr(1,bol3(a),"return false"">")+14
isim12 = instr(1,bol3(a),"</a>")
isim10 = mid(bol3(a),isim11,isim12-isim11)
response.Write ">"&isim10&"<br />"
next

bi de sayfanın head tagları arasına

<meta http-equiv="content-type" content="text/html;charset=iso-8859-9" />
<meta http-equiv="content-type" content="text/html;charset=windows-1254" />

eklersen takır takır calısır

07-07-2010, 03:55:15

#3

Misafir

aynen yazdığım zman gibi bir hata almaktayım

24 saat aç&yacute;klar 
>EKİN ECZANESİ
>KARACALAR ECZANESİ
>İŞLERTAŞ ECZANESİ

Microsoft VBScript runtime error '800a0005' 

Invalid procedure call or argument: 'mid' 

/ilkay2/eczane.asp, line 46

07-07-2010, 04:06:50

#4

maniakcoder

bu kodu ekleyin

Alıntı

<%
Response.CharSet = "iso-8859-9" ' ciktiyi asp den turkceye zorlamak icin.
Session.CODEPAGE = "1254" ' ASP icindeki dili turkceye cevirmek icin
Session.LCID = 1055 ' bolgesel ayarlari turkce yapmak icin.
%>

07-07-2010, 10:00:50

#5

~~ShekerChi~~

Üyeliği durduruldu

Misafir adlı üyeden alıntı: mesajı görüntüle

aynen yazdığım zman gibi bir hata almaktayım

24 saat aç&yacute;klar 
>EKİN ECZANESİ
>KARACALAR ECZANESİ
>İŞLERTAŞ ECZANESİ

Microsoft VBScript runtime error '800a0005' 

Invalid procedure call or argument: 'mid' 

/ilkay2/eczane.asp, line 46

mid belirtilen parametreleri bulamıyorum diyor

07-07-2010, 16:32:02

#6

canafar12

Misafir adlı üyeden alıntı: mesajı görüntüle

aynen yazdığım zman gibi bir hata almaktayım

24 saat aç&yacute;klar 
>EKİN ECZANESİ
>KARACALAR ECZANESİ
>İŞLERTAŞ ECZANESİ

Microsoft VBScript runtime error '800a0005' 

Invalid procedure call or argument: 'mid' 

/ilkay2/eczane.asp, line 46

ben dene dğim de calısıyodu en tepeye bi de "on error resume next" eklermisin

olmazsa 46. satırı yaz bakayım

08-07-2010, 16:04:20

#7

Misafir

canafar12 adlı üyeden alıntı: mesajı görüntüle

Response.CodePage = 65001 
Response.CharSet = "utf-8" 
private Function GETHTTP(adres)  
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )  
StrHTTP.Open "GET" , adres, false  
StrHTTP.sEnd  
GETHTTP = fonkStream(strhttp.ResponseBody,"windows-1254") 
Set StrHTTP = Nothing  
End Function  

function fonkStream(Veri,KarakterSet)
dim objStream
set objStream = Server.CreateObject("ADODB.Stream")
 objStream.Type = 1
 objStream.Mode = 3
 objStream.Open
 objStream.Write Veri
 objStream.Position = 0
 objStream.Type = 2
 objStream.Charset = KarakterSet
 fonkStream = objStream.ReadText 
 objStream.Close
set objStream = Nothing
end function

site = gethttp("http://kayserieo.org.tr") 
bol = split(site,"<tr><td colspan=2>")
bol2 = split(bol(1),"<tr>")
response.Write "24 saat açıklar <br />"
for i=1 to ubound(bol2)
isim1 = instr(1,bol2(i),"return false"">")+14
isim2 = instr(1,bol2(i),"</a>")
isim = mid(bol2(i),isim1,isim2-isim1)
response.Write ">"&isim&"<br />" 
next
kes1 = instr(1,bol(2),"24 saat açıklar")+15
kes2 = instr(1,bol(2),"</table>")
kes = mid(bol(2),kes1,kes2-kes1) 
response.Write "gece 1 e kadar acıklar <br />"
bol3 = split(kes,"<tr>")
for a=1 to ubound(bol3)
isim11 = instr(1,bol3(a),"return false"">")+14
isim12 = instr(1,bol3(a),"</a>")
isim10 = mid(bol3(a),isim11,isim12-isim11)
response.Write ">"&isim10&"<br />"
next

bi de sayfanın head tagları arasına

<meta http-equiv="content-type" content="text/html;charset=iso-8859-9" />
<meta http-equiv="content-type" content="text/html;charset=windows-1254" />

eklersen takır takır calısır

Teşekkürler bu komut ile veriyi çekebildim...

maniakcoder adlı üyeden alıntı: mesajı görüntüle

bu kodu ekleyin

Teşekkürler bu komut ile de dil sorunumu halledebildim

çok sağolun arkadaslar yardımlarınız için

09-07-2010, 02:21:28

#8

Misafir

neden hata verdiğini anladım arkadaşlar

gece olunca saat 1 e kadar olan eczaneler siliniyor komutlar da bulamayınca sisteme hata verdiyor?

Peki bu komutlar arasına su saat ile bu saat arasında su kısmı es geç veya bu hata varsa yoksay devam et diyebilir miyiz?

09-07-2010, 10:07:47

#9

canafar12

if not hour(now) < 2 and hour(now) < 1 then

kodlarr

end if

bu şekilde saat 1 le 2 arasın da hiç bişi cıkmaz ekrana