<%=ForumName%>--管理页面

<%@ LANGUAGE="VBSCRIPT" %> <%=ForumName%>--管理页面 <% if not master then Errmsg=Errmsg+"
"+"

本页面为管理员专用，请登陆后进入。" call Error() else call main() end if sub main() %> align=center>

欢迎<%=session("mastername")%>进入管理页面

<%call leftmenu()%>

<%if request("action") = "savebadword" then%> <%call savebadword()%> <%else%>

注意事项：请您将要过滤的字符串添入，如果有多个字符串，请用“|”分隔开，例如：
妈的|他妈的|草|奶奶的，如果您的服务器不支持FSO权限，请直接编辑inc/badwords.asp文件。

<%end if%>

<% 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.update rs.close set rs=nothing call getconst() conn.close set conn=nothing response.write "更新成功！" end sub %>