📄 adminip.asp
字号:
<!--#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%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -