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

📄 lockip.asp

📁 功能强大的一个b/s工作站
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
If session("kenanbook")="" Then
   Response.Redirect("login.asp")
End If
 %>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<% ipcheck()
If Request("id")="" Then
   Response.Redirect("error.asp?err=108")
End If
If Request("style")="chk" Then
	ipsql="select ip,user from content where ID="&Request.Form("id")
	set iprs=conn.execute(ipsql)
	sql="insert into iplock (ip,content) values ('"&iprs("ip")&"','"&Request.Form("content")&"')"
	conn.execute(sql)
	Call showlock()
	iprs.close
	set iprs=nothing
	connclose()
Else
   call manage()
   connclose()
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<% sub manage() %>
<br>
<br>
<form name="form1" method="post" action="lockip.asp?style=chk">
  <table width="359" height="137" border="0" align="center" cellpadding="0" cellspacing="0" class="table002">
    <tr>
      <td align="center">
<table width="87%" height="89" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td colspan="2" align="center">确认要屏蔽IP吗
              <input name="id" type="hidden" id="id" value="<%=Request("id")%>">
              ?</td>
          </tr>
          <tr> 
            <td width="40%">请选择一个操作理由:</td>
            <td width="60%"><select name="content" id="content">
                <option value="留言带有反动、邪教内容" selected>留言带有反动、邪教内容</option>
                <option value="对本站及本站成员出言不逊">对本站及本站成员出言不逊</option>
                <option value="留言包含色情暴力内容">留言包含色情暴力内容</option>
              </select></td>
          </tr>
          <tr align="center"> 
            <td colspan="2"><input type="submit" name="Submit" value="我要屏蔽!!!"></td>
          </tr>
        </table>
      </td>
  </tr>
</table>
</form>
<% end sub %>
</body>
</html>
<% sub showlock()  %>
<br>
<br>
<table width="346" height="148" border="0" align="center" cellpadding="0" cellspacing="0" class="table002">
  <tr>
    <td align="center"><% Response.Write(iprs("user") & "的IP已经被你屏蔽。你也可以通过<a href=adminindex.asp target=_blank>超级管理来解锁</a><br><br><a href=javascript:window.close()>关闭此窗口</a>")%></td>
  </tr>
</table>
<% End Sub  %>

⌨️ 快捷键说明

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