adminip.asp

来自「一个不错的论坛原代码」· ASP 代码 · 共 47 行

ASP

47 行

<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->

<body  <%=background%> >
 
 <% if Request.QueryString("action")="do" then
badword=chktopic(request.form("badword"))
sqlch="Update home set lockip='"&badword&"'"
conn.Execute (sqlch)
response.write "<script>alert(""修改成功"");</script>"
end if 

%>


<%  sqlchk="select lockip from home"
set rschk=conn.Execute (sqlchk)
%>

 <table  border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
   
<form name="form1" method="POST" action="?action=do">
  
    <tr align="center"> 
      <td colspan="2" <%=tColor%> class=tdc1 height=22>
      每一行表示一个要禁止的IP,左边为地址,右边为原因,中间用|分开</td>
    </tr>
      <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>禁止ip：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <textarea rows="8" name="badword" cols="50"><%=rschk("lockip")%></textarea>
        <br>
        第四段IP可以用*代替,表示禁止该段所有地址(例如 0.0.0.*) <br>  
        　</td>
    </tr>
    <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>　</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="submit" name="Submit" value="提交" class=bdtj>
        <input type="reset" name="Submit2" value="重置" class=bdtj>
      </td>
    </tr>
  </table>
  </form>
<%set rschk=nothing
 conn.close
set conn=nothing%>

adminip.asp - 源码说明

本页面展示了「一个不错的论坛原代码」中的 adminip.asp 源码文件，采用 ASP 编程语言编写，共 47 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与论坛相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?