📄 mankickok.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ codepage ="936" %>
<%Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
bgcolor="#DCD8D0"
Sub Msg(v)
 Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><body bgcolor=" & bgcolor & " text=#000000>"
 Response.Write "<script Language=JavaScript>"
 Response.Write "alert('" & v & "');window.close();"
 Response.Write "</script>"
 Response.End
End Sub
nickname=Session("hxf_u_nickname")
ipbt=int(session("ipbt"))
grade=Int(Session("hxf_u_grade"))
if Session("hxf_u_inthechat")<>"1" and nickname<>"聊天室管理员" then Msg "不在聊天室中，不能踢人！"
if nickname="" or Session("hxf_u_inthechat")<>"1" then Msg "不在聊天室中，不能踢人"
userip=Request.ServerVariables("REMOTE_ADDR")
kickname=Server.HTMLEncode(Trim(Request.Form("f1")))
if kickname="" then Msg "请确定您要踢的对象"
f2 =Server.HTMLEncode(Trim(Request.Form("f2")))
f2 = Replace(f2, Chr(13) & Chr(10), "")
f2 = Server.HTMLEncode(f2)
f2 = Replace(f2, "\", "\\")
f2 = Replace(f2, "/", "\/")
f2 = Replace(f2, "'", "\'")
f2 = Replace(f2, Chr(34), "\" & Chr(34))
kickwhy = f2
if kickwhy="" then Msg "必须填写踢人理由"
if CStr(kickname)=CStr(nickname) then Msg "不能踢出自己"
onlinelist=Application("wsaxhxf_c_onlinelist")
cz=0
ubl=UBound(onlinelist)
for i=1 to ubl step 8
 if CStr(onlinelist(i+1))=CStr(kickname) then
  cz=1
  kickname=onlinelist(i+1)
  kickgrade=onlinelist(i+6)
 end if
next
if cz=0 then Msg "“" & kickname & "” 不在聊天室内，不能踢出！" 
If nickname <> "聊天室管理员" Then 
mycz=0
ubl=UBound(onlinelist)
for i=1 to ubl step 8
 if CStr(onlinelist(i+1))=CStr(nickname) then
  mycz=1
 end if
next
if mycz=0 then
 Session.Abandon 
 Msg "警告：你不在聊天室内不能够踢人！" 
 end if
End If
If nickname <> "聊天室管理员" And kickgrade = 12 Then Msg "无权将“" & kickname & "”踢出！"
if len(kickwhy)>50 then kickwhy=Left(kickwhy,50)
logok=Trim(Request.Form("f3"))
if session("ipbt")<>"1" then logok="yes"
if logok<>"no" then logok="yes"
zqfw = 0
If grade <> 12 Then
    lowmanagehigh = Application("wsaxhxf_c_lowmanagehigh")
     If lowmanagehigh <> 1 And kickgrade >= grade Then Msg "“" & kickname & "”的级别不比你低。\n\n管理员禁止低级管理高级及同级！"
     qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
     If qx(6) = "1" Then zqfw = 1
     If zqfw = 0 Then
      moneymanage = Application("wsaxhxf_c_moneymanage")
       If moneymanage <> 1 Then Msg "权限不足。\n\n管理员禁用货币管理功能！"
       kickvalue = Int(Application("wsaxhxf_c_kickvalue"))
         If Int(Session("hxf_u_hb")) < kickvalue Then Msg "货币不足 " & kickvalue & "￥，不能非权限踢人。\n\n您当前剩余货币: " & Int(Session("hxf_u_hb")) & "￥。"
      End If
Else
 zqfw = 1
End If
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
t=s & ":" & f & ":" & m
sj=n & "-" & y & "-" & r & " " & t
Application.Lock
onlinelist=Application("wsaxhxf_c_onlinelist")
dim newonlinelist()
useronlinename=""
onliners=0
js=1
for i=1 to UBound(onlinelist) step 8
 if CStr(onlinelist(i+1))<>CStr(kickname) then
  onliners=onliners+1
  useronlinename=useronlinename & " " & onlinelist(i+1)
  Redim Preserve newonlinelist(js),newonlinelist(js+1),newonlinelist(js+2),newonlinelist(js+3),newonlinelist(js+4),newonlinelist(js+5),newonlinelist(js+6),newonlinelist(js+7)
  newonlinelist(js)=onlinelist(i)
  newonlinelist(js+1)=onlinelist(i+1)
  newonlinelist(js+2)=onlinelist(i+2)
  newonlinelist(js+3)=onlinelist(i+3)
  newonlinelist(js+4)=onlinelist(i+4)
  newonlinelist(js+5)=onlinelist(i+5)
  newonlinelist(js+6)=onlinelist(i+6)
  newonlinelist(js+7)=onlinelist(i+7)
  js=js+8
 else
  kickip=onlinelist(i+2)
 end if
next
useronlinename=useronlinename&" "
if kickip<>"" then
 if onliners=0 then
  dim listnull(0)
  Application("wsaxhxf_c_onlinelist")=listnull
 else
  Application("wsaxhxf_c_onlinelist")=newonlinelist
 end if
 Application("wsaxhxf_c_useronlinename")=useronlinename
 Application("wsaxhxf_c_chatrs")=onliners
else
 Application.UnLock
 Msg "“" & kickname & "” 不在聊天室内，不能踢出！" 
end if
Application.UnLock
kickvalueno = Int(Application("wsaxhxf_c_kickvalueno"))
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
If zqfw = 0 Then
 sql="SELECT hb FROM reginfo WHERE kill='0' and username='" & nickname & "'"
 rs.open sql,conn,1,3
 if Not(rs.Eof and rs.Bof) then
  rs("hb")=rs("hb")-kickvalue
  Session("hxf_u_hb")=rs("hb")
  rs.Update
 end if
 rs.close
end if
f1cz = 1
sql="SELECT lastkick,hb FROM reginfo WHERE kill='0' and username='" & kickname & "'"
rs.open sql,conn,1,3
If rs.EOF And rs.Bof Then
 rs.Close
 f1cz = 0
End If
If f1cz = 1 Then
 hb = Int(rs("hb"))
 If hb >= kickvalueno Then
  f1upmoney = kickvalueno
 Else
  f1upmoney = hb
  If f1upmoney < 0 Then f1upmoney = 0
 End If
 hb = hb - kickvalueno
 if hb < 0 then hb = 0
 rs("hb")=hb
 rs("lastkick")=sj
 rs.Update
end if
rs.close
 If f1upmoney > 0 Then
 sql = "SELECT value FROM system WHERE name='chatmoney'"
 rs.open sql, conn, 1, 3
 chatmoney = Int(rs("value")) + f1upmoney
 rs("value") = chatmoney
 rs.Update
 rs.Close
 Application.Lock
  Application("wsaxhxf_c_chatmoney") = chatmoney
 Application.UnLock
 End If 
If zqfw = 1 Then
  if logok="yes" Then
  sql = "INSERT INTO logs (type, logtime, name, ip, opertion) VALUES ('0', '" & sj & "', '" & nickname &"', '" & userip & "', '把 <font color=red>" & kickname & "</font>(<font color=blue>" & kickip & "</font>) 请出聊天室！<br><font color=009900>【原因：" & kickwhy & "】</font>')"
conn.Execute sql
end if
else
  sql = "INSERT INTO logs (type, logtime, name, ip, opertion) VALUES ('0', '" & sj & "', '" & nickname &"', '" & userip & "', '用钱把 <font color=red>" & kickname & "</font>(<font color=blue>" & kickip & "</font>) 砸出聊天室！<br><font color=009900>【原因：" & kickwhy & "】</font>')"
conn.Execute sql
end if
conn.close
set conn=nothing
Session("hxf_u_lasttime")=sj
Application.Lock
sd=Application("wsaxhxf_c_sd")
line=int(Application("wsaxhxf_c_line"))
Application("wsaxhxf_c_line")=line+1
Dim newsd(180)
j=1
for i=10 to 180 step 9
 newsd(j)=sd(i)
 newsd(j+1)=sd(i+1)
 newsd(j+2)=sd(i+2)
 newsd(j+3)=sd(i+3)
 newsd(j+4)=sd(i+4)
 newsd(j+5)=sd(i+5)
 newsd(j+6)=sd(i+6)
 newsd(j+7)=sd(i+7)
 newsd(j+8)=sd(i+8)
 j=j+9
next
newsd(172)=line+1
newsd(173)=1
newsd(174)=0
newsd(175)=nickname
newsd(176)="大家"
newsd(177)="660099"
newsd(178)="660099"
newsd(179)="对"
If zqfw = 1 Then
newsd(180)="<font color=black>【出局】</font><font color=8800FF><font color=red>" & nickname & "</font>恭恭敬敬地把<font color=red>" & kickname & "</font>请出了聊天室……〖原因：" & kickwhy & "〗</font><font class=t>(" & t & ")</font>"
else
newsd(180)="<font color=black>【出局】</font><font color=8800FF><font color=red>" & nickname & "</font>用钱把<font color=red>" & kickname & "</font>砸出了聊天室……〖原因：" & kickwhy & "〗</font><font class=t>(" & t & ")</font>"
end if
Application("wsaxhxf_c_sd")=newsd
Application.UnLock
If nickname = "聊天室管理员" Or zqfw = 1 Then
 Msg "■ 操作完成 ■\n\n已将“" & kickname & "”踢出聊天室！"
Else
 Msg "■ 操作完成 ■\n\n已用钱将“" & kickname & "”砸出聊天室！\n\n当前剩余货币：" & Int(Session("hxf_u_hb")) & "￥。"
End If
Response.End
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -