⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 manbombok.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 & "');javascript: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")
bombname=Server.HTMLEncode(Trim(Request.Form("f1")))
if bombname="" 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))
bombwhy = f2
if bombwhy="" then Msg "必须填写轰炸的理由"
if CStr(bombname)=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(bombname) then
  cz=1
  bombname=onlinelist(i+1)
  bombip=onlinelist(i+2)
  bombgrade=onlinelist(i+6)
 end if
next
if cz=0 then Msg "“" & bombname & "” 不在聊天室内，不能轰炸！" 
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 bombgrade = 12 Then Msg "无权轰炸“" & bombname & "”！"
if len(bombwhy)>50 then bombwhy=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 bombgrade >= grade Then Msg "“" & bombname & "”的级别不比你低。\n\n管理员禁止低级管理高级及同级！"
     qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
     If qx(7) = "1" Then zqfw = 1
     If zqfw = 0 Then
      moneymanage = Application("wsaxhxf_c_moneymanage")
       If moneymanage <> 1 Then Msg "权限不足。\n\n管理员禁用货币管理功能！"
       bombvalue = Int(Application("wsaxhxf_c_bombvalue"))
         If Int(Session("hxf_u_hb")) < bombvalue Then Msg "货币不足 " & bombvalue & "￥，不能非权限轰炸。\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
bombvalueno = Int(Application("wsaxhxf_c_bombvalueno"))
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")-bombvalue
  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='" & bombname & "'"
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 >= bombvalueno Then
  f1upmoney = kickvalueno
 Else
  f1upmoney = hb
  If f1upmoney < 0 Then f1upmoney = 0
 End If
 hb = hb - bombvalueno
 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")) + delhb
 rs("value") = chatmoney
 rs.Update
 rs.Close
 Application.Lock
  Application("wsaxhxf_c_chatmoney") = chatmoney
 Application.UnLock
End If 
set rs=nothing
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>" & bombname & "</font>(<font color=blue>" & bombip & "</font>) 炸飞！<br><font color=009900>【原因：" & bombwhy & "】</font>')"
   conn.Execute sql
  end if
 else
   sql = "INSERT INTO logs (type, logtime, name, ip, opertion) VALUES ('0', '" & sj & "', '" & nickname & "', '" & userip & "', '用钱衣炸弹把 <font color=red>" & bombname & "</font>(<font color=blue>" & bombip & "</font>) 炸出聊天室！<br><font color=009900>【原因：" &  bombwhy & "】</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>" & bombname & "</font>炸上天堂……〖原因：" & bombwhy & "〗</font><font class=t>(" & t & ")</font>"
else
newsd(180)="<font color=black>【轰炸】</font><font color=8800FF><font color=red>" & nickname & "</font>用钱衣炸弹把<font color=red>" & bombname & "</font>炸上天堂……〖原因：" & bombwhy & "〗</font><font class=t>(" & t & ")</font>"
end if
Application("wsaxhxf_c_sd")=newsd
Application("wsaxhxf_c_bombname")=Application("wsaxhxf_c_bombname") & " " & bombname & " "
Application.UnLock
If nickname = "聊天室管理员" Or zqfw = 1 Then
 Msg "■ 操作完成 ■\n\n已将“" & bombname & "”炸出聊天室！"
Else
 Msg "■ 操作完成 ■\n\n已用钱衣炸弹将“" & bombname & "”炸出聊天室！\n\n当前剩余货币：" & Int(Session("hxf_u_hb")) & "￥。"
End If
Response.End
%>

⌨️ 快捷键说明

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