wantuserout.asp
上传用户:qyswxdl
上传日期:2013-06-01
资源大小:1373k
文件大小:1k
源码类别:

家庭/个人应用

开发平台:

ASP/ASPX

  1. <!--#include file="articleconn.asp"-->
  2. <!--#include file="../checkpost.asp"-->
  3. <!--#include file="security.asp"-->
  4. <%if session("flag")>3 then
  5.     response.write "<br><p align=center>您的操作权限不够!</p>"
  6.     response.end
  7. end if
  8. %>
  9. <%
  10. userid=Replace(request("userid"), "'", "''")
  11. if request("want")="out" then 
  12. conn.Execute("Delete * From online") '删除所有的在线用户
  13. response.redirect Request.ServerVariables("HTTP_REFERER")
  14. else
  15. conn.Execute("Delete  From online where  username='"&userid&"'") '删除指定的在线用户
  16. response.redirect Request.ServerVariables("HTTP_REFERER")
  17. end if
  18. %>