online.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")
dim target
if ty="kickmuti" then
    nTime=cint(timer/60)
    conn.execute "delete from [online] where ((" & nTime & "-[LastTime]) >= " & userExpires & ") or (" & nTime & " < [LastTime])"  '系统自动踢人
elseif ty="kicksingle" then '管理员踢人
    if session("admin")<>"" and isOnline(session("user")) then
        target=request.Form("username")
        if isOnline(target) then
            conn.execute "delete from [online] where [User]='" & target & "'"
        end if
        response.Write "yes"
    else
        response.Write "noadmin"
    end if
elseif ty="delmsg" then
    if session("admin")<>"" and isOnline(session("user")) then
        target=request.Form("id")
        conn.execute "delete from [Msg] where [ID]=" & target
        response.Write "yes"
    else
        response.Write "noadmin"
    end if
end if
conn.close
set conn=nothing
%>