📄 adminbad.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->
<body <%=background%> >
<% select case chktopic(request("action"))
case "do"
call do1()
case "lockreg"
call lockreg()
case "lockreg1"
call lockreg1()
case else
call bad()
end select
sub do1()
lockip=chktopic(request.form("lockip"))
sqlch="Update home set badword='"&lockip&"'"
conn.Execute (sqlch)
succmsg="操作成功"
call succ(succmsg)
response.end
end sub
sub lockreg1()
lockip=request.form("lockip")
sqlch="Update home set h_lockregtxt='"&lockip&"'"
conn.Execute (sqlch)
succmsg="操作成功"
call succ(succmsg)
response.end
end sub
sub bad()
sqlchk="select badword 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>
过滤的词语用|隔开</td>
</tr>
<tr>
<td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>过虑词语：</td>
<td bgcolor=<%=tColor2%> class=tdc>
<textarea rows="8" name="lockip" cols="50"><%=rschk("badword")%></textarea> </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>
<%end sub
sub lockreg()
sqlchk="select h_lockregtxt 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=lockreg1">
<tr align="center">
<td colspan="2" <%=tColor%> class=tdc1 height=22>
禁止注册的用户请用|隔开</td>
</tr>
<tr>
<td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>禁止注册的用户：</td>
<td bgcolor=<%=tColor2%> class=tdc>
<textarea rows="8" name="lockip" cols="50"><%=rschk("h_lockregtxt")%></textarea> </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>
<%end sub
conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -