home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / qim / Ft_online.asp < prev    next >
Text File  |  2006-06-01  |  3KB  |  82 lines
  1. <%
  2. '==================================
  3. '=╬─ ╝■ ├√ú║online.asp
  4. '=╩╩╙├░µ▒╛ú║FeitecCMS AC V1.3 Free
  5. '=╣ª    ─▄ú║╘┌╧▀╚╦╩²═│╝╞
  6. '=╫≈    ╒▀ú║╙Ω│╟[From to FeitecStudio]
  7. '=╚╒    ╞┌ú║2006-2-19 18:09
  8. '=░µ    ╚¿ú║http://www.feitec.com/
  9. '=╝╝╩⌡╠╓┬█ú║6602510íó14040543ú¿╨┬╩╓╚║ú⌐
  10. '▓╬╩²╕ⁿ╕─ú║╨▐╕─35╨╨datediff()║»╩²┐╔╡├═│╝╞╩▒│ñú¼─¼╚╧╬¬1╨í╩▒
  11. '==================================
  12. 'OnlineTime=30 '╔Φ╓├╘┌╧▀╩▒│ñú¼│¼╣²┤╦╩▒╝Σú¼╘≥╗ß╔╛│²┤╦╙├╗º╨┼╧óú¼╩▒╝Σ╡Ñ╬╗┐┤║≤├µ╡─║»╩²└┤╚╖╢¿,h▒φ╩╛╨í╩▒,n▒φ╩╛╖╓╓╙
  13. ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  14. if ip = "" then
  15. ip = Request.ServerVariables("REMOTE_ADDR")
  16. end if
  17. strsql = "select * from Ft_online where online_ip = '" & ip & "'"
  18. set rs = conn.Execute (strsql)
  19. struser = "╙╬┐═"
  20. if rs.eof or rs.bof then
  21. strsql = "insert into Ft_online (online_name, online_ip, online_stats, online_lasttime) values ('" & struser & "', '" & ip & "','" & stats & "','" &now()& "')"
  22. conn.Execute (strsql)
  23. else
  24. strsql = "update Ft_online set online_name = '"&struser& "', online_stats='"&stats&"', Online_LastTime = #" &now()&"# where online_ip = '" & ip & "'"
  25. conn.Execute (strsql)
  26. end if
  27. if struser <> "╙╬┐═" then
  28. strsql = "delete from Ft_online where online_name = '" & struser & "' and online_ip <> '" & ip & "'"
  29. conn.Execute (strsql)
  30. end if
  31. strsql = "select online_id, online_lasttime from Ft_online"
  32. set rs = conn.Execute (strsql)
  33. if not (rs.eof or rs.bof) then
  34. do until rs.Eof
  35. if DateDiff("n",rs("online_lasttime"),now())>onlinetime then
  36. strsql = "delete from Ft_online where online_id = " & rs("online_id")
  37. conn.Execute (strsql)
  38. end if
  39. rs.movenext
  40. loop
  41. end if
  42.  
  43. strsql="select Online_Name from Ft_online"
  44. guest=0
  45. user=0
  46. total=0
  47. username=""
  48. set rs = conn.Execute (strsql)
  49. if rs.eof or rs.bof then
  50. username="╬▐╘┌╧▀╙├╗º"
  51. else
  52. do until rs.Eof
  53. if rs("Online_Name") <> "╙╬┐═" then
  54. user=user+1
  55. username=username+rs("Online_Name")+" "
  56. else
  57. guest = guest+1
  58. end if
  59. rs.movenext
  60. loop
  61. total=user+guest
  62. end if
  63.  
  64. sql="select online_topnum,online_topdate from Ft_allcount"
  65. set rs2=conn.execute(sql)
  66. online_topnum=rs2("online_topnum")
  67. online_topdate=rs2("online_topdate")
  68. rs2.close
  69. set rs2=nothing
  70.  
  71. if total>online_topnum then
  72. online_topnum=total
  73. online_topdate=now()
  74. strsql = "update Ft_allcount set online_topnum = '"&total& "', Online_topdate ='" &online_topdate& "'"
  75. conn.Execute (strsql)
  76. end if
  77. strsql = "update Ft_online set online_stats = '" & stats & "' where online_ip = '" & ip & "'"
  78. conn.Execute (strsql)
  79. rs.close
  80. set rs=nothing
  81. %>
  82.