?? admin_badword.asp
字號:
<!--#include file=conn.asp-->
<!-- #include file="inc/const.asp" -->
<!--#include file=inc/char.asp-->
<!--#include file=chkuser.asp-->
<title><%=ForumName%>--管理頁面</title>
<link rel="stylesheet" type="text/css" href="forum.css">
<BODY <%=ForumBody%>>
<%
if instr(session("flag"),"28")=0 then
Errmsg=Errmsg+"<br>"+"<li>本頁面為管理員專用，請<a href=admin_index.asp target=_top>登陸</a>后進入。<br><li>您沒有管理本頁面的權限。"
call Error()
else
call main()
end if
sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=<%=tablewidth%> bgcolor=<%=tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor='<%=Tabletitlecolor%>'>
<td><font color="<%=TablefontColor%>">歡迎<b><%=membername%></b>進入管理頁面</font>
</td>
</tr>
<tr bgcolor=<%=tablebodycolor%>>
<td width="100%" valign=top> <font color="<%=TableContentColor%>">
<%if request("action") = "savebadword" then%>
<%call savebadword()%>
<%else%>
<p><B>注意：</B>帖子過濾字符將過濾帖子內容中包含以下字符的內容，注冊過濾字符將不允許用戶注冊包含以下字符的內容。
<br>
</p>
<form action="admin_badword.asp?action=savebadword" method=post>
<table width="100%" border="0" cellspacing="3" cellpadding="0">
<tr>
<td width="100%"><font color="<%=TableContentColor%>">發貼過濾字符：<input type="text" name="badwords" value="<%=badwords%>" size="60"> <BR><BR>請您將要過濾的字符串添入，如果有多個字符串，請用“|”分隔開，例如：媽媽的|我靠|fuck</font></td>
</tr>
<tr>
<td width="100%"><font color="<%=TableContentColor%>"><BR>注冊過濾字符：<input type="text" name="splitwords" value="<%=splitwords%>" size="60"> <BR><BR>請您將要過濾的字符串添入，如果有多個字符串，請用“,”分隔開，例如：沙灘,quest,木鳥<BR></font></td>
</tr>
<tr>
<td width="100%"><input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form>
<p> <br>
</p> <%end if%></font>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
sub savebadword()
set rs = server.CreateObject ("adodb.recordset")
sql="select * from config"
rs.open sql,conn,1,3
rs("badwords")=trim(request("badwords"))
rs("splitwords")=trim(request("splitwords"))
rs.update
rs.close
set rs=nothing
call getconst()
conn.close
set conn=nothing
response.write "更新成功！"
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -