Yanıt: Asp Nedir?
Üye 15 dakika sonra offline olsun
<%
Set istatistik4 = server.createobject("adodb.recordset" )
SQL="Select * from uyeler where online = 'evet' order by id desc"
istatistik4.Open SQL,baglantim,1,3
If istatistik4.Eof Then
Response.Write "Şu anda online üye yok!!!"
Else
Do While not istatistik4.Eof
Response.Write "<a href=javascript:YeniPencere('uye_profil.asp?uye_id =" &istatistik4("id" )&"','200','150','650','167')>" &istatistik4("kadi" )&"</a>, "
istatistik4.Movenext
Loop
End If
%>
Çıkış.ASP :
----
<%
uye_online.update
uye_online("online" ) = "hayir"
uye_online.update
Session ("kadi" ) = ""
Session ("sifre" ) = ""
Session ("uye_seviyesi" ) = ""
Session ("online" ) = "cikti"
Response.Cookies ("kadi" ) = ""
Response.Cookies ("sifre" ) = ""
Response.Cookies ("uye_seviyesi" ) = ""
Response.Redirect "default.asp"
%> |