📄 man_hongzhaok.asp
字号:
<!--#INCLUDE FILE="config.asp" -->
<%
If Not IsArray(Session("info")) Then Response.Redirect "err.asp?kind=20"
info = Session("info")
If InStr(Application("maninfo"),"," & info(0) & ",") <> 0 Then Response.Redirect "manyou.asp"
gradeinfo = Application("gradeinfo")
If gradeinfo(info(1),12) <> True Then Response.Redirect "err1.asp?kind=10"
name = Trim(Request.Form("manname"))
name = Replace(name,",","")
name = Replace(name,";","")
name = Replace(name," ","")
name = Replace(name," ","")
name = Replace(name,"'","")
name = Replace(name,chr(34),"")
name = Server.HTMLEncode(name)
If name = zzbird_master Then Response.Redirect "err.asp?kind=71"
If name = "" Then Response.Redirect "err.asp?kind=55"
If name = info(0) Then Response.Redirect "err.asp?kind=56"
ly = Request.Form("liyou")
ly = Replace(ly," ","")
ly = Replace(ly," ","")
If ly = "" Then Response.Redirect "err.asp?kind=52"
ly = Server.HTMLEncode(ly)
If InStr(Application("zzbird_name"),"," & name & ",") = 0 Then Response.Redirect "err.asp?kind=35"
roominfo = Application("roominfo")
For j = 0 To UBound(roominfo)
If InStr(Application("zzbird_name_" & roominfo(j,0)),"," & name & ",") <> 0 Then
towhere = roominfo(j,1)
towhereid = roominfo(j,0)
Exit For
End If
Next
If towhere = "" Or towhereid = "" Then Response.Redirect "err.asp?kind=35"
If gradeinfo(info(1),27) <> True And CStr(towhere) <> CStr(info(6)) Then Response.Redirect "err.asp?kind=53"
If gradeinfo(info(1),26) = True Then
niming = Request.Form("niming")
Else
niming = "no"
End If
Set Conn = server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
Set Rs = Server.CreateObject("adodb.recordset")
sql = "select * from userinfo where user='" & name & "'"
Rs.Open sql,Conn,1,3
If Rs.Eof And Rs.bof Then
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Response.Redirect "err.asp?kind=34"
ElseIf Rs("grade") > info(1) Then
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Response.Redirect "err.asp?kind=127"
End If
Rs.Close
sql = "select * from kickinfo where (id is null)"
Rs.Open sql,Conn,1,3
Rs.AddNew
Rs("who") = name
Rs("ip") = "0.0.0.0"
Rs("kind") = 3
Rs("time") = now
Rs.Update
Rs.Close
sql = "select * from manlog where (id is null)"
Rs.Open sql,Conn,1,3
Rs.Addnew
Rs("who") = name
Rs("manager") = info(0)
Rs("ip") = "0.0.0.0"
Rs("kind") = 3
Rs("liyou") = ly
If niming = "yes" Then
Rs("niming") = True
Else
Rs("niming") = False
End If
Rs("time") = now
Rs.Update
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Application.Lock
online = Application("online" & towhereid)
onno = UBound(online)
For i = 1 To onno
If InStr(online(i),name & "|") = 1 Then
heinfo=split(online(i),"|")
For j = i To onno - 1
online(j) = online(j + 1)
Next
ReDim Preserve online(onno - 1)
Application("online" & towhereid) = online
Exit for
End If
Next
Application("zzbird_name") = Replace(Application("zzbird_name"),"," & name & ",","")
Application("zzbird_name_"&towhereid) = Replace(Application("zzbird_name_"&towhereid),"," & name & ",","")
Application("maninfo") = Application("maninfo") & "3," & name & ",;"
Application.UnLock
%>
<!--#INCLUDE FILE="function.asp" -->
<%
If niming = "yes" Then
hongzha = Replace(zzbird_hongzha,"(manager)"," <img border='0' height='16' width='16' src='images/ICO/0-2.gif'><font color=#008000>(匿名管理员)</font> ")
Else
hongzha = Replace(zzbird_hongzha,"(manager)"," <img border='0' height='16' width='16' src='images/ICO/" & info(4) & "-2.gif'><font color=#008000>" & info(0) & "</font> ")
End If
hongzha = Replace(hongzha,"(name)"," <img border='0' height='16' width='16' src='images/ICO/" & heinfo(1) & "-2.gif'><font color=#008000>" & name & "</font> ")
w1 = name
w2 = ""
w3 = "ip"
w4 = "[<img src='images/sys.gif'>轰炸]"& hongzha &"（理由：" & ly & "）<font style='font-size: 8pt' color='#808080'>(" & CStr(time) & ")</font><bgsound src='other/kick.wav' loop='1'>"
w5 = towhere
saveword w1,w2,w3,w4,w5
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>轰炸聊友</title>
<style>
<!--
fieldset { font-size: 10pt }
-->
</style>
</head>
<body bgcolor="buttonface" style="border: 3px double buttonface">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="46%" id="AutoNumber1" height="62">
<tr>
<td width="100%" height="150">
<fieldset style="padding: 2; width:281; height:142">
<legend><img border="0" src="images/zha.gif">轰炸聊友</legend>
<p>已经成功地把“<%=name%>”炸上了天。</p>
<%
If niming = "no" Then
%>
<p>同时该操作已经以你的名义被记入聊务公开栏。</p>
<%
Else
%>
<p>同时该操作已经以匿名管理员的名义被记入聊务公开栏。</p>
<%
End If
%>
</fieldset>
</td>
</tr>
<tr>
<td width="100%" align="right"><input type="button" value="上一步" name="a1" onclick="location.href='man_hongzha.asp';"><input type="submit" value="下一步" disabled name="a2">
<input type="button" value="完成" name="a3" onclick="javascript:window.close();"><input disabled type="button" value="取消" name="a4"></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -