Puanlama ve Grafikleme

byburcuva · Yeni Üye Kayıt: 24 Ekm 2008 Mesajlar: 21

Merhaba Arkadaşlar Şimdi Çok Kolay ama siteye hareket getirecek 2 kod vericem sizlere

set baglan=server.createobject("adodb.connection")
baglan.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath("veritabani.mdb")

veritabanina bağlandık

kullanıcı giriş yaptığı sayfaya

rs("giris")=rs("giris"")+1
rs.update

Ekliyoruz ve her giriş yaptığında +1 arttırıyoruz giris sayısını

ve listeleme yaptığımız zaman standart bir şekilde Örneğin giriş sayınız : 21

Olarak Yapmıyoruz ve işi grafiksel olarak ekliyoruz.

<%
set girissayisi = server.createobject("adodb.recordset")
girissayisi .open "select * from tuyeler where kullaniciadi='"&Session("uye")&"'" ,baglan,1,3
toplamgiris=girissayisi("giris")/2 ' giriş sayısını 2 ye bölerek eşitliyoruz
%>

ve sıra geldi ekrana yazdırmaya

resmimizi kaydedelim..

şimdi listeleyelim

Sitedeli Aktiflik Dereceniz :
<img src="images/bar.gif" width="<%=toplamgiris%>" height="10">

Kolay Gelsin İiy Çalışmalar....

[/i]