wantuserout.asp

asp+access的电影免费网站源码是个很好的学习例子大家可以下来学习

<!--#include file="articleconn.asp"-->
<!--#include file="../checkpost.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>3 then
    response.write "<br><p align=center>您的操作权限不够！</p>"
    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
%>