Bugün kaç kişi girdi sayfana öğren

Php, Asp, Perl, Html - Bugün kaç kişi girdi sayfana öğren ...

Cevapla
Bugün kaç kişi girdi sayfana öğren
w@rriorhckr isimli Üye şimdilik offline konumundadır

[email protected]

Öğrenci (Diğer) / Karabük

Dosya19

Bugün kaç kişi girdi sayfana öğren

Alt 09-03-2009 #1
Sponsorlu Bağlantılar

3 dosyadan yapalım sunu..

ornek olarak kod veriorum kendıne gore degistir..

gunluk.asp
<!--#include file="hesap.asp"-->

<h4 align="left">Günlük Veriler</h4>

<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri.mdb")

Set Kayit = Baglanti.Execute("Select * from sayac order by id desc")

sayi = 0
Do while not sayi = 1
if Kayit.eof then
exit do
else
%>
<table width="300" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td width="50"><%=Kayit("tarih")%></td>
<td width="50" align="right"><font color="#6194F8"><%=Kayit("tekil")%></font></td>
<td width="182"><img src="mavi.gif" height="10" width="<%=Kayit("tekil_yuzde")%>%"></td>
</tr>
<tr>
<td><!--#include file="gun_adi.asp"--></td>
<td align="right"><font color="#FFBA00"><%=Kayit("cogul")%></font></td>
<td><img src="turuncu.gif" height="10" width="<%=Kayit("cogul_yuzde")%>%"></td>
</tr>
</table><br>
<%
sayi=sayi+1
Kayit.MoveNext
end if
loop
%>




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




hesap.asp
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri.mdb")

Set Kayit = Baglanti.Execute("Select * from sayac")

maksimum=Kayit("tekil")

Do while not Kayit.eof

if maksimum<Kayit("tekil") then
maksimum=Kayit("tekil")
end if

if maksimum<Kayit("cogul") then
maksimum=Kayit("cogul")
end if

Kayit.MoveNext
loop
%>


<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri.mdb")

Set Kayit = Server.CreateObject ("ADODB.RecordSet")
Sql_Komutu = "select * from sayac"
Kayit.Open Sql_Komutu, Baglanti, 1, 3

Do while not Kayit.eof

Kayit("tekil_yuzde")=((100/maksimum)*Kayit("tekil")) mod 101
Kayit("cogul_yuzde")=((100/maksimum)*Kayit("cogul")) mod 101

Kayit.Update
Kayit.MoveNext
loop
%>


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




gun_adi.asp
<%
Gun = DatePart("w", Kayit("tarih"))

SELECT CASE Gun
Case "1" Gun_adi = "Pazar"
Case "2" Gun_adi = "Pazartesi"
Case "3" Gun_adi = "Sali"
Case "4" Gun_adi = "Çarsamba"
Case "5" Gun_adi = "Persembe"
Case "6" Gun_adi = "Cuma"
Case "7" Gun_adi = "Cumartesi"
END SELECT

Response.Write Gun_adi
%>
Bugün kaç kişi girdi sayfana öğren1:Bugün kaç kişi girdi sayfana öğren1:Bugün kaç kişi girdi sayfana öğren1:Bugün kaç kişi girdi sayfana öğren1:

EMEĞE SAYGI
Bu mesajdan alıntı yap
Sponsor Links

Grafikerler.net Reklamları

Cevapla

Benzer Konular
Konu Konu Bilgileri Forum Cevaplar Son Mesaj
Dün,Bugün,Yarın filizdmr Türk Edebiyatı 0 04-11-2008 16:40:43
Universty Parti Afişim ve Afiş Konusunda İlk Denemem(Ama Sunuma Girdi) casanova18ufk Afiş Tasarımı 4 10-10-2008 08:49:26
Bugün Beni Anlayan YOK! Selimsel Serbest Çalışmalar 34 10-07-2008 22:06:46
21 kişi ve 1 otomobil N/A8 Graficafe 2 11-02-2008 21:48:09
İş Dünyasında Aranan Kişi grafikerkartal Fotoğraf - Resim 3 08-02-2008 17:47:59

Kapat
Şifremi Unuttum?