📄 manaccyjaddok.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%
On Error Resume Next
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 & "');window.close();</script></body></html>"
 Response.End
End Sub
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
userip=Request.ServerVariables("REMOTE_ADDR")
if nickname="" then Response.Redirect "不在聊天室中，不能操作"
if Session("hxf_u_inthechat")<>1 then Msg "不在聊天室中，不能操作"
If nickname<>"聊天室管理员" Then
 f3="yes"
else
 f3 = Trim(Request.Form("f3"))
end if
If grade <> 12 Then
 qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
 If qx(17) <> "1" Then Msg "您无权执行此操作"
End If
f1 = Trim(Request.Form("f1"))
f2 = Trim(Request.Form("f2"))
if f2="" then Response.Redirect "manerr.asp?id=132"
If f1 = "" Then Msg "请指定要永久保留的用户名。"
If f2 = "" Then Msg "请输入永久保留的原因。"
If f3 <> "no" Then f3 = "yes"
If Len(f2) > 50 Then f2 = Left(f2, 50)
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))
f2 = Replace(f2, "'", "''")
 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
 sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m 
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql="SELECT leave,kill FROM reginfo WHERE username='" & f1 & "'"
rs.open sql,conn,1,3
if rs.Eof and rs.Bof then
 rs.close
 conn.close
 set rs=nothing
 set conn=nothing
 Msg "此用户名不存在"
end if
if rs("kill")="1" then
 rs.close
 conn.close
 set rs=nothing
 set conn=nothing
  Msg "此用户名已经自杀，请将其还魂后再进行永久保留"
end if
if rs("leave")="1" then
 rs.close
 conn.close
 set rs=nothing
 set conn=nothing
  Msg "此用户名已经被永久保留，不必重复操作"
end if
rs("leave")="1"
rs.Update
rs.close
if f3="yes" then
sql = "INSERT INTO logs (type, logtime, name, ip, opertion) VALUES ('3', '" & sj & "', '" & nickname & "', '" & userip & "', '永久保留用户名 <font color=green>" & f1 & "</font>。<br><font class=yy>【原因：" & f2 & "】</font>')"
conn.Execute sql
end if
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已经永久保留用户名：[" & f1 & "]。 ');window.close();</script></body></html>"
Response.End
%>
⌨️ 快捷键说明

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