📄 manipok.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ codepage ="936" %>
<%Response.Expires=0
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
userip=Request.ServerVariables("REMOTE_ADDR")
if nickname="" then Response.Redirect "manerr.asp?id=100"
if Session("hxf_u_inthechat")<>"1" and nickname<>"聊天室管理员" then Response.Redirect "manerr.asp?id=211"
If grade <> 12 Then
 qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
 If qx(18) <> "1" Then Response.Redirect "manerr.asp?id=310"
End If
dieip=Trim(Request.Form("dieip"))
if Instr(dieip," ")<>0 then Response.Redirect "manerr.asp?id=311"
if Instr(dieip,chr(13)&chr(10))<>0 then Response.Redirect "manerr.asp?id=311"
if Instr(dieip,";;")<>0 then Response.Redirect "manerr.asp?id=311"
if left(dieip,1)=";" then dieip=Right(dieip,len(dieip)-1)
if Right(dieip,1)=";" then dieip=left(dieip,len(dieip)-1)
dieip=";" & dieip & ";"
 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 dieip FROM iplockdie"
rs.open sql,conn,1,3
rs("dieip")=dieip
rs.Update
rs.close
sql = "INSERT INTO logs (type, logtime, name, ip, opertion) VALUES ('5', '" & sj & "', '" & nickname & "', '" & userip & "', '重新设置了永久封锁的 IP 段 <font color=green><font class=p9>[" & dieip & "]</font></font>')"
conn.Execute sql
conn.close
set rs=nothing
set conn=nothing
Application.Lock
 Application("wsaxhxf_c_dieip")=dieip
Application.UnLock%><html>
<head>
<title>永久封锁</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
</head>
<body bgcolor="#FFFFFF" class=p150>
<div align="center">
<h1><font color="0099FF">【永久封锁】</font></h1>
</div>
<div align="center"></div>
<hr noshade size="1" color=009900>
<b>［操作完成］</b><br>
<hr noshade size="1" color=009900>
<table border="1" cellspacing="0" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#D8D0C8" cellpadding="4">
<tr>
<td><font color="#FF9933">下列ＩＰ（段）被永久封锁：</font><br>
<br><%=dieip%><br><br><div align=center><a href="javascript:history.go(-1)">返回</a></div></td>
</tr>
</table>
<hr noshade size="1" color=009900>
<div align=center class=cp><%Response.Write "序列号：<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>，授权给：<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%></div>
</body>
</html>
⌨️ 快捷键说明

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