Sitenizdeki aktif kullanicilar
<Object Runat="Server" Scope="application" ID="dOnlineUsers" ProgID="Scripting.Dictionary"></Object>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
sub Application_OnStart
application("ServerStart") = now
end sub
function Decrypt(sText)
Decrypt = sText
end function
function adZero(sText)
if isNull(sText) then exit function
adZero = string(5 - len(sText), "0") & sText
end function
Sub Session_OnStart
Session.TimeOut = 5
sAktifUsrList = application("AktifUsrList")
sNewUserName = Decrypt(request.cookies("isim")+ request.cookies("soyisim"))
if sNewUserName = "" then sNewUserName = "Ziyaretci-" & AdZero(CInt(application("Ziyaretci")))
sLastActionTime = Time
sUserInfo = sNewUserName & "<|>" & sLastActionTime & "<|>" & sLastPageViewed
dOnlineUsers.Add Session.SessionID, sUserInfo
application.lock
application("AktifUsr") = application("AktifUsr") + 1
application("Ziyaretci") = application("Ziyaretci") + 1
if application("TodaysDate") <> Date() then
application("PageViewsToday") = 0
application("ZiyaretciToday") = 0
end if
application("ZiyaretciToday") = application("ZiyaretciToday") + 1
application("TodaysDate") = Date()
application.unlock
End Sub
Sub Session_OnEnd
on error resume next
dOnlineUsers.Remove Session.SessionID
application.lock
application("AktifUsr") = application("AktifUsr") - 1
application.unlock
End Sub
</SCRIPT>[/B]
En Son 10 Kayıt
<%
'Veritabanına bağlanıyoruz.
set conn=server.createobject("adodb.connection")
conn.open= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath ("db/database.mdb")
'Şimdi Kayıt nesnemizi oluşturuyoruz.
Set rs=server.createobject("adodb.recordset")
'şimdi sql ile sorgu oluşturuyoruz.
sql="select * from tablo where kayit_tarih desc"
'şimdi kayıt nesnemiz olan rs ile tabloyu açtırıyoruz
rs.open sql,conn,1,3
%>
<%
' Şimdi ise sql sorgusu ile aldığımız kayıtların sadece 10 tanesini gösterecek bir döngü yaratıyoruz
for i=1 to 10
%>
<%= rs("kayit_tarih")%> <%= rs("kayit")%>
<% rs.movenext %>
<% next %>
[B]Mail Yolla
Sub SendEmail(strFrom, strTo, strSubject, strBody)
' DB ve email sabitleri
Dim objCDOMail
' email aktif mi
If SEND_EMAIL Then
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' obje özellikleri
objCDOMail.From = strFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
' mesajı yolla
objCDOMail.Send
Set objCDOMail = Nothing
End If
End Sub