Tekil Mesaj gösterimi - Asp | Mysql ile 300 bin veri olan sitem çok yavaş çalışıyor

Konu Asp | Mysql ile 300 bin veri olan sitem çok yavaş çalışıyor

24-12-2015, 16:33:02

#20

sahin1453

Artık kafayı yiyeceğim, beynim çatladı şu işin içinden çıkamadım, 1.numaralı sitenin anasayfasında yer alan sorgu hızlı çalışıyor , fakat 2.numaralı sorgu olan sayfalama yaptığım sayfa 20-25 saniyeden önce gelmiyor, 2.sorgudaki mantık şu ; örneğin istanbul şehri linkine tıklıyor ve istanbul'un id'sine eşit tüm firmalar sayfalanmış şekilde listeleniyor.

Bilgisi olan arkadaşların yardımına ihtiyacım var, lütfen cevaplarınızı bekliyorum.

1.NOLU SORGU
<%set firma=baglanti.execute("SELECT FIR.id,FIR.resim,FIR.firmaadi,FIR.tel,FIR.website, SEH.id SEHIRID,SEH.sehiradi SEHIRADI,ILC.id ILCEID,ILC.ilceadi ILCEADI,SEK.id SEKTORID,SEK.sektoradi SEKTORADI,ASEK.id ALTSEKTORID,ASEK.sektoradi ALTSEKTORADI FROM firmalar FIR LEFT JOIN sehirler SEH ON FIR.sehir_id = SEH.id LEFT JOIN ilceler ILC ON FIR.ilce_id = ILC.id LEFT JOIN sektorler SEK ON FIR.sektor_id = SEK.id LEFT JOIN altsektorler ASEK ON FIR.sektoralt_id = ASEK.id ORDER BY FIR.id DESC LIMIT 10")
s=1
do while not firma.eof
firmaid=firma("id")
firmaresim=firma("resim")
firmaadi=firma("firmaadi")
firmaadicevir=cevir(firma("firmaadi"))
sehiradi=firma("SEHIRADI")
sehiradicevir=cevir(firma("SEHIRADI"))
ilceadi=firma("ILCEADI")
ilceadicevir=cevir(firma("ILCEADI"))
website=firma("website")
sektoradi=firma("SEKTORADI")
sektoradicevir=cevir(firma("SEKTORADI"))
altsektoradi=firma("ALTSEKTORADI")
altsektoradicevir=cevir(firma("ALTSEKTORADI"))%>
<div id="Firma"<%if s=1 then%> style="padding-top:0px; border:0px;"<%end if%>>
<div id="Firma_Resim"><a href="/firma/<%=firmaid%>/<%=firmaadicevir%>" title="<%=firmaadi%>"><%if firmaresim="" then%><img src="/images/firmaresmiyok.jpg" alt="<%=firmaadi%>"/><%else%><img src="/upload/<%=firmaresim%>" alt="<%=firmaadi%>"/><%end if%></a></div>
<div id="Firma_Adi"><a href="/firma/<%=firmaid%>/<%=firmaadicevir%>" title="<%=firmaadi%>"><%=firmaadi%></a></div>
<div id="Firma_Adres"><a href="/sehir/<%=firma("SEHIRID")%>/<%=sehiradicevir%>" title="<%=sehiradi%>"><%=sehiradi%></a> / <a href="/ilce/<%=firma("ILCEID")%>/<%=ilceadicevir%>" title="<%=ilceadi%>"><%=ilceadi%></a></div>
<div id="Firma_Telefon"><%=firma("tel")%><%if not website="" then%> - <a href="http://<%=httpsil(website)%>" target="_blank"><%=websitetemizle(website)%></a><%end if%></div>
<div id="Firma_Sektor"><a href="/sektor/<%=firma("SEKTORID")%>/<%=sektoradicevir%>" title="<%=sektoradi%>"><%=sektoradi%></a>
/ <a href="/altsektor/<%=firma("ALTSEKTORID")%>/<%=altsektoradicevir%>" title="<%=altsektoradi%>"><%=altsektoradi%></a></div>
</div>
<%s=s+1
firma.movenext:loop
firma.close : set firma=nothing%>

-------------------------

2.NOLU SORGU;
<%
url=request.ServerVariables("QUERY_STRING")
varmi=instr(url,"=")
if varmi>0 then
linkim=split(url,"=")
sayife=linkim(1)
else
linkim=1
end if
%>

<% KayitSayisi = 26

If sayife <> "" Then
'Bulundugumuz sayfayi bu degiskenin degeri olarak atayalim
Sayfa =sayife
Else
'Degilse baslangiç sayfa numaramizi 1 olarak atayalim
Sayfa = 1
End If

'Kayit sayimiz ve sayfa numaramiza göre veritabanindan verilerimizi talep ediyoruz
Set firma = Baglanti.Execute("SELECT FIR.id,FIR.resim,FIR.firmaadi,FIR.tel,FIR.website, SEH.id SEHIRID,SEH.sehiradi SEHIRADI,ILC.id ILCEID,ILC.ilceadi ILCEADI,SEK.id SEKTORID,SEK.sektoradi SEKTORADI,ASEK.id ALTSEKTORID,ASEK.sektoradi ALTSEKTORADI FROM firmalar FIR LEFT JOIN sehirler SEH ON FIR.sehir_id = SEH.id LEFT JOIN ilceler ILC ON FIR.ilce_id = ILC.id LEFT JOIN sektorler SEK ON FIR.sektor_id = SEK.id LEFT JOIN altsektorler ASEK ON FIR.sektoralt_id = ASEK.id where FIR.sehir_id='"&yaz("id")&"' ORDER BY FIR.ustdecikar DESC LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi)

'Veritabaninda kriterlerimize uygun kayitlarin toplam sayisini aliyoruz
'Bu sayfa numaralarini dogru yazdirabilmemiz için sart
Set SQLTop = Baglanti.Execute("SELECT COUNT(id) FROM firma where sehir_id='"&yaz("id")&"'")
TopKayit = SQLTop(0)

'Eger veritabanimizdan kayit dönüyorsa
'If Not firma.EOF Then

'HTML tablomuzu olusturuyoruz.
%>

<%s=1
do while not firma.eof
firmaid=firma("id")
firmaresim=firma("resim")
firmaadi=firma("firmaadi")
firmaadicevir=cevir(firma("firmaadi"))
sehiradi=firma("SEHIRADI")
sehiradicevir=cevir(firma("SEHIRADI"))
ilceadi=firma("ILCEADI")
ilceadicevir=cevir(firma("ILCEADI"))
website=firma("website")
sektoradi=firma("SEKTORADI")
sektoradicevir=cevir(firma("SEKTORADI"))
altsektoradi=firma("ALTSEKTORADI")
altsektoradicevir=cevir(firma("ALTSEKTORADI"))%>

<div id="FirmaIcerik" style="<%if s=1 or s=2 then%>padding-top:0px; border:0px;<%end if%><%if s=1 or s=3 or s=5 or s=7 or s=9 or s=11 or s=13 or s=15 or s=17 or s=19 or s=21 or s=23 or s=25 or s=27 or s=29 or s=31 or s=33 or s=35 or s=37 or s=39 or s=41 or s=43 or s=45 or s=47 or s=49 or s=51 or s=53 or s=55 or s=57 then%> margin-left:0px;<%end if%>">
<div id="FirmaIcerik_Resim"><a href="/firma/<%=firmaid%>/<%=firmaadicevir%>" title="<%=firmaadi%>"><%if firmaresim="" then%><img src="/images/firmaresmiyok.jpg" alt="<%=firmaadi%>"/><%else%><img src="/upload/<%=firmaresim%>" alt="<%=firmaadi%>"/><%end if%></a></div>
<div id="FirmaIcerik_Adi"><a href="/firma/<%=firmaid%>/<%=firmaadicevir%>" title="<%=firmaadi%>"><%=firmaadi%></a></div>
<div id="FirmaIcerik_Adres"><a href="/sehir/<%=firma("SEHIRID")%>/<%=sehiradicevir%>" title="<%=sehiradi%>"><%=sehiradi%></a> / <a href="/ilce/<%=firma("ILCEID")%>/<%=ilceadicevir%>" title="<%=ilceadi%>"><%=ilceadi%></a></div>
<div id="FirmaIcerik_Telefon"><%=firma("tel")%><%if not website="" then%> - <a href="http://<%=httpsil(website)%>" target="_blank"><%=websitetemizle(website)%></a><%end if%></div>
<div id="FirmaIcerik_Sektor"><a href="/sektor/<%=firma("SEKTORID")%>/<%=sektoradicevir%>" title="<%=sektoradi%>"><%=sektoradi%></a>
/ <a href="/altsektor/<%=firma("ALTSEKTORID")%>/<%=altsektoradicevir%>" title="<%=altsektoradi%>"><%=altsektoradi%></a></div>
</div>

<%s=s+1
firma.movenext:loop%>

<div id="Temizle"></div>
<%
'Toplam kayit sayisi gösterilecek kayit sayisindan büyükse...
If Clng(TopKayit) > Clng(KayitSayisi) Then
'Link verilecek kaç sayfamiz oldugunu hesapliyoruz
SayfaSayisi = Clng(TopKayit) / Clng(KayitSayisi)
If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = Clng(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1

'Ve yine elimizdeki sayfa sayisi 1´den büyükse
If SayfaSayisi > 1 Then
response.Write "<ul class=""sayfalama"">"
'Her sayfa numarasi için sayfamiza linkimizi yazdiriyoruz
if sayife>1 then Response.Write "<li><a href=""/sehir/" & yaz("id") & "/" & cevir(yaz("sehiradi")) & "/?sayfaa=" & sayife - 1& """> Önceki </a></li>"

if Clng(SayfaSayisi)-Clng(sayife) =1 then
artacaksayfa = "1"
elseif Clng(SayfaSayisi)-Clng(sayife) =2 then
artacaksayfa = "2"
elseif Clng(SayfaSayisi)-Clng(sayife) =3 then
artacaksayfa = "3"
elseif Clng(SayfaSayisi)-Clng(sayife) =4 then
artacaksayfa = "4"
elseif Clng(SayfaSayisi)-Clng(sayife) =5 then
artacaksayfa = "5"
elseif Clng(SayfaSayisi)-Clng(sayife) > 5 then
artacaksayfa = "5"
else
artacaksayfa = 0
end if

if sayife=0 or sayife=1 or sayife=2 or sayife=3 or sayife=4 or sayife=5 then
baslangic=1
bitis=10
else
baslangic=sayife-5
bitis=Clng(sayife)+Clng(artacaksayfa)
end if
if SayfaSayisi<10 then bitis=SayfaSayisi end if
For i=baslangic To bitis
if Clng(sayife)=Clng(i) then
Response.Write "<li><a href=""/sehir/" & yaz("id") & "/" & cevir(yaz("sehiradi")) & "/?sayfa=" & i & """ class=""secili"">" & i & "</a></li>"
else
Response.Write "<li><a href=""/sehir/" & yaz("id") & "/" & cevir(yaz("sehiradi")) & "/?sayfa=" & i & """>" & i & "</a></li>"
end if
Next
if Clng(Sayfa) < (SayfaSayisi) then Response.Write "<li><a href=""/sehir/" & yaz("id") & "/" & cevir(yaz("sehiradi")) & "/?sayfa=" & Sayfa+1 & """> Sonraki </a></li>" end if
response.Write "</ul>"
End If

'Sayfa numarasi yazdirma islemi bitti...
End If

firma.close : set firma=nothing
%>