waponlineusers.asp

来自「asp手机wap网站源码 （英语wap1.0版）」· ASP 代码 · 共 184 行

<%
ulc=Request.QueryString("p")



if   instr(ulc,"forumrules")>0	Then
UserLocation="Forum rules"
elseif   instr(ulc,"forumara")>0	Then
UserLocation="Forum search"
elseif   instr(ulc,"gir")>0	Then
UserLocation="Login"
elseif   instr(ulc,"forumarado")>0	Then
UserLocation="Forum search"
elseif   instr(ulc,"cpw")>0	Then
UserLocation="Profile editor"
elseif   instr(ulc,"prf")>0	Then
UserLocation="Profile editor"
elseif   instr(ulc,"regit")>0	Then
UserLocation="Registration"
elseif   instr(ulc,"cprfdo")>0	Then
UserLocation="Profile editor"
elseif   instr(ulc,"cpwdo")>0	Then
UserLocation="Profile editor"
elseif   instr(ulc,"delallpms")>0	Then
UserLocation="Im"
elseif   instr(ulc,"userop")>0	Then
UserLocation="Online list"
elseif   instr(ulc,"laston")>0	Then
UserLocation="Last 10"
elseif   instr(ulc,"cprf")>0	Then
UserLocation="Profile editor"
elseif   instr(ulc,"tools")>0	Then
UserLocation="Tools"
elseif   instr(ulc,"ulist")>0	Then
UserLocation="Online list"
elseif   instr(ulc,"jump")>0	Then
UserLocation="Jump"
elseif   instr(ulc,"top25")>0	Then
UserLocation="Stats"
elseif   instr(ulc,"pmignore")>0	Then
UserLocation="Im ignore"
elseif   instr(ulc,"whoigme")>0	Then
UserLocation="Im ignore"
elseif   instr(ulc,"top25b")>0	Then
UserLocation="Stats"
elseif   instr(ulc,"emailf")>0	Then
UserLocation="Emailing admin"
elseif   instr(ulc,"pmignoredo")>0	Then
UserLocation="Im ignore"
elseif   instr(ulc,"deftergoster")>0	Then
UserLocation="Forum"
elseif   instr(ulc,"ips")>0	Then
UserLocation="Ips"
elseif   instr(ulc,"buddylistme")>0	Then
UserLocation="Friends list"
elseif   instr(ulc,"samplesimiles")>0	Then
UserLocation="Sample similes"
elseif   instr(ulc,"gbv2")>0	Then
UserLocation="Forum"
elseif   instr(ulc,"buddyl")>0	Then
UserLocation="Friends list"
elseif   instr(ulc,"buddyldo")>0	Then
UserLocation="Friends list"
elseif   instr(ulc,"uayrinti")>0	Then
UserLocation="User info"
elseif   instr(ulc,"cik")>0	Then
UserLocation="Logout"
elseif   instr(ulc,"verify")>0	Then
UserLocation="Verification"
elseif   instr(ulc,"iletisim")>0	Then
UserLocation="Im"
elseif   instr(ulc,"viewpms")>0	Then
UserLocation="Im"
elseif   instr(ulc,"users")>0	Then
UserLocation="Online List"
elseif   instr(ulc,"pmdelete")>0	Then
UserLocation="Im"
elseif   instr(ulc,"pmreply")>0	Then
UserLocation="Im"
elseif   instr(ulc,"chat")>0	Then
UserLocation="Chat"
elseif   instr(ulc,"csec")>0	Then
UserLocation="Chat"
elseif   instr(ulc,"sendpm")>0	Then
UserLocation="Im"
elseif   instr(ulc,"gbv")>0	Then
UserLocation="Forum"
elseif   instr(ulc,"gba")>0	Then
UserLocation="Forum"
elseif   instr(ulc,"ckimler")>0	Then
UserLocation="Chat"
elseif   instr(ulc,"userswap")>0	Then
UserLocation="Online users"
elseif   instr(ulc,"finduser")>0	Then
UserLocation="User search"
elseif   instr(ulc,"gbai")>0	Then
UserLocation="Forum"
elseif   instr(ulc,"forumj")>0	Then
UserLocation="Jump"
elseif   instr(ulc,"finddo")>0	Then
UserLocation="User search"
elseif   instr(ulc,"yardim")>0	Then
UserLocation="Registration"
elseif   instr(ulc,"cadd")>0	Then
UserLocation="Profile editor"
elseif   instr(ulc,"pmfullread")>0	Then
UserLocation="Im"
elseif   instr(ulc,"pmread")>0	Then
UserLocation="Im"
elseif   instr(ulc,"userinfo")>0	Then
UserLocation="User info"
elseif   instr(ulc,"")>0	Then
UserLocation="Main"

end if

Session.LCID = 1033 ' bi sekilde mutlaka sessionu bu yapip en altta ingilize cevirmek gerek neden bilmiyorum :(

'location end

if not session("un")="" Then
girenkim=session("un")
else
girenkim=request("un")
end if

if girenkim="" then 
girenkim="Guest"
end if
onlinesayacYol=Server.Mappath(""&WapOnlineUsersDb&"")
onlinesayacSql= "DBQ="& onlinesayacYol &";Driver={Microsoft Access Driver (*.mdb)}"
Set onlinesayacBag=Server.CreateObject("Adodb.Connection")
onlinesayacBag.Open onlinesayacSql
'eski kullanicilari sil
onlinesayacCurrentDate = Now()
onlinesayacCheckOutTime = DATEADD("s", -200, onlinesayacCurrentDate)
'onlinesayacCheckOutTime=Replace(onlinesayacCheckOutTime,".","/")
Set onlinesayacDeleters=Server.CreateObject("Adodb.Recordset")
onlinesayacDeleteSorgu = "DELETE FROM online WHERE date < #" & onlinesayacCheckOutTime & "#"
onlinesayacDeleters.Open onlinesayacDeleteSorgu, onlinesayacBag, 1, 3 
'kullanici adini simdi kontrol et yoksa ekle
Set onlinesayacrs=Server.CreateObject("Adodb.Recordset")
onlinesayacSorgu="Select * from online where un='"& girenkim  &"'"
onlinesayacrs.Open onlinesayacSorgu, onlinesayacBag, 1, 3 
if onlinesayacrs.EOF or onlinesayacrs.BOF then 'eger kullanici adi yoksa ekle
onlinesayacrs.AddNew

browseri=Request.ServerVariables("HTTP_USER_AGENT")

if browseri="" then
browseri="emtyp!"
end if

ipisi=Request.ServerVariables("REMOTE_HOST")

if ipisi="" then
ipisi="emtyp!"
end if

onlinesayacrs("un")=girenkim
onlinesayacrs("location")=UserLocation
onlinesayacrs("browser")=browseri
onlinesayacrs("ip")=ipisi
onlinesayacrs("date")=now()
onlinesayacrs.Update 
else 'eger kullanici adi varsa zamani kontrol et 90 saniyeden coksa sil
Set onlinesayacDeleteTekrs=Server.CreateObject("Adodb.Recordset")
onlinesayacDeleteTekSorgu = "DELETE FROM online WHERE online.un='" & girenkim & "' AND date < #" & onlinesayacCheckOutTime & "#"
onlinesayacDeleteTekrs.Open onlinesayacDeleteTekSorgu, onlinesayacBag, 1, 3 
end if
'db deki kullanici sayisini al
Set onlinesayacListrs=Server.CreateObject("Adodb.Recordset")
onlinesayacListSorgu = "Select * FROM online"
onlinesayacListrs.Open onlinesayacListSorgu, onlinesayacBag, 1, 3 
waponlinesayisi=onlinesayacListrs.recordcount
onlinesayacListrs.Close
set onlinesayacListrs=Nothing
onlinesayacrs.Close
Set onlinesayacrs=Nothing
onlinesayacBag.Close
Set onlinesayacBag=Nothing
Session.LCID = 2057
%>