📄 manaccdelkillok.asp
字号:
<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%
Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
Sub Msg (v)
Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><style type=text/css>body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}</style></head><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>"
Response.Write "<script Language=JavaScript>alert('" & v & "');history.go(-1);</script></body></html>"
Response.End
End Sub
nickname=Session("hxf_u_nickname")
grade=Session("hxf_u_grade")
If nickname = "" Then Msg "不在聊天室中，不能清除。"
If Session("hxf_u_inthechat") <> "1" Then Msg "不在聊天室中，不能清除。"
If Int(grade)<>12 Then Msg "无权执行此操作。"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql = "SELECT SUM(hb) AS upmoney FROM reginfo WHERE kill = '1'"
rs.open sql, conn, 1, 1
upmoney = Int(rs("upmoney"))
rs.Close
If upmoney < 0 Then upmoney = 0
If Not (IsNull(upmoney)) Then
sql = "SELECT value FROM system WHERE name = 'chatmoney'"
rs.open sql, conn, 1, 3
chatmoney = Int(rs("value")) + upmoney
rs("value") = chatmoney
rs.Update
rs.Close
Application.Lock
Application("wsaxhxf_c_chatmoney") = chatmoney
Application.UnLock
End If
sql = "DELETE FROM reginfo WHERE kill = '1'"
conn.Execute sql
conn.Close
Set rs = Nothing
Set conn = Nothing
Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><style type=text/css>body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}</style></head><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>"
Response.Write "<script Language=JavaScript>alert('■ 操作完成 ■\n\n已经清除所有已自杀的帐号。 ');history.go(-1);</script></body></html>"
Response.End
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -