wantuserout.asp

来自「网上流行的MOVE站点」· ASP 代码 · 共 27 行

<!--#include file="articleconn.asp"-->
<!--#include file="../checkpost.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<%
userid=Replace(request("userid"), "'", "''")

if request("want")="out" then 

conn.Execute("Delete * From online") '删除所有的在线用户

response.redirect Request.ServerVariables("HTTP_REFERER")

else

conn.Execute("Delete  From online where  username='"&userid&"'") '删除指定的在线用户


response.redirect Request.ServerVariables("HTTP_REFERER")
end if
%>
</body>
</html>