澳门二十一点游戏赌场 澳门二十一点游戏赌场
    您现在的位置:首页 >> 软件应用 >> ASP教程 >> 内容

    管理用户踢人文件admin/admin.asp

    时间:2012/7/23 20:42:28 点击:

      核心提示:管理用户踢人文件admin/admin.aspuser=request.form('user')adbut=request.form('kaction')whoto=request.form('hdi...
    管理用户踢人文件admin/admin.asp


    <%
    user=request.form("user")
    adbut=request.form("kaction")
    whoto=request.form("hdish")
    %>
    <%
    chatdata=application("chatdata")
    chatcomm=application("chatcomm")
    chatpoin=application("chatpoin")
    sendid=finduser(user)

    if sendid<51 and chatdata(sendid,1)=Request.ServerVariables("remote_addr") then
      if session("admlevel")="9" then
        reciid=finduser(whoto)

    select case adbut
    case "sip"
        if reciid<51 then
           dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,"&whoto&"的IP地址是"&chatdata(whotoid,1)
         else
          dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,"&whoto&"不在此聊天室"
         end if
    %><%

    case "kip"
      if reciid<51 and sendid<>reciid then
       kicklist=application("kicklist")  
       if instr(kicklist,",'"&chatdata(reciid,1)&"'")<1 then
         kicklist=kicklist&",'"&chatdata(reciid,1)&"'"
         chatpoin=chatpoin+1 mod 50
         chatcomm(chatpoin)="'"&right("0"&time,8)&",系统,0,所有人,ff0000,0,"&whoto&"所在的IP被管理员踢出了聊天室'"
         application.lock
           application("kicklist")=kicklist
           application("chatpoin")=chatpoin
           application("chatcomm")=chatcomm
         application.unlock
       end if
      end if
    case "name"
      if reciid<51 and sendid<>reciid  then
        kicklist=application("kicklist")  
        if instr(kicklist,",'#"&chatdata(reciid,0)&"'")<1 then
          kicklist=kicklist&",'#"&chatdata(reciid,0)&"'"
          chatpoin=chatpoin+1 mod 50
          tmp=chatdata(reciid,0)
          chatdata(reciid,0)=""
          chatdata(reciid,1)=""
          for i=0 to 50
            chatdata(i,4)=(chatdata(i,4) mod 4)+4
          next
          chatcomm(chatpoin)="'"&right("0"&time,8)&",系统,0,所有人,ff0000,0,"&whoto&"被管理员踢出了聊天室'"
          application.lock
            application("kicklist")=kicklist
            application("chatpoin")=chatpoin
            application("chatcomm")=chatcomm
            application("chatdata")=chatdata
            application("onliuser")=replace(application("onliuser"),",'"&tmp&"'","")
          application.unlock
        end if
      end if
    end select
      end if
    end if


    function finduser(fuser)
      reval=51
      for i=0 to 50
        if chatdata(i,0)=fuser then
          reval=i
          exit for
        end if
      next
      finduser=reval
    end function
    %>

    作者:佚名 来源:不详

    共有评论 0相关评论
    发表我的评论
    • 大名:
    • 内容:
  • 澳门二十一点游戏赌场(www.0769online.com) © 2018 版权所有 All Rights Reserved. 邮箱:103150@qq.com 业务QQ:103150 手机:13549753683

    Power By Laoy8 SQL 3.0SP1 粤ICP备10098668号
  •