loadonline.asp

开发语言为Asp,服务器脚本为VBScript AJAX部分采用JQuery框架,功能代码均为原创 数据库暂时采用ACCESS

<%@ Language=VBScript %>
<%response.charset="utf-8"%>
<!--#include file="inc/conn.asp"-->
<%
if trim(request.form("rnd"))="" then
    response.write "非法提交!"
    response.end
end if
dim ty:ty=request.form("type")
if ty="checkonline" then
    if not isOnline(session("user")) then session("user")=""
    response.Write session("user")
elseif ty="showonline" then
    conn.execute "delete from [Msg] where (datediff('n',[MsgDate],#" & now() & "#) > " & msgExpires & ")"
    sql="select * from [online] order by [ID] DESC"
    set rs=server.CreateObject("Adodb.recordset")
    rs.Open sql,conn,1,1
    if rs.EOF and rs.BOF then
        response.Write "当前没有人参与!"
    else
        str=""
        do while not rs.EOF 
            fstr=""
            onlinetime=cint(timer/60)-rs("LoginTime")
            lefttime=(cint(timer/60)-rs("LastTime"))
            fstr=rs("User")
		    if isOnline(rs("User")) and session("User")<>rs("User") then
		        fstr="<a href=""#"" onclick=""setTo('" & rs("User") & "');"">" & rs("User") & "</a>"
	    	end if
	    	gstr=""
	    	if session("admin")<>"" and isOnline(session("user")) then
            gstr="<img src=""img/delete.jpg"" alt=""踢出本用户!"" onclick=""kickUserSingle('" & rs("User") & "');"" /> "
            end if
            str=str & "<img src=""img/user.jpg"" alt="""" /> "            
            str=str & fstr & "  <span style=""color:gray;"">" & onlinetime & "min/" & lefttime & "</span> " & gstr & "<br />"
            rs.MoveNext 
        loop
        response.Write str
    end if
    rs.Close
    set rs=nothing
end if
conn.close
set conn=nothing
%>