<% if request.form<>"" then Dim objCon Application.lock Application(dbName&"wordFilter") = left(""&HTMLEncode(""&replace(request.form("wordList"),", ","|")),1000) Application(dbName&"bannedIP") = left(""&HTMLEncode(""&replace(request.form("ipList"),", ","|")),1000) Application(dbName&"domainFilter") = left(""&replace(request.form("domainList"),", ","|"),1000) Application(dbName&"namefilter") = left(""&replace(request.form("nameList"),", ","|"),1000) Application.unlock SET objCon = server.createObject("ADODB.connection") with objCon .open datastore .execute "UPDATE pgd_config SET BannedIP='"& SQLAccessInput(Application(dbName&"bannedIP")) &"', WordFilter='"& SQLAccessInput(Application(dbName&"wordFilter")) &_ "', DomainFilter='"&SQLAccessInput(Application(dbName&"domainFilter"))&"', namefilter='"&SQLAccessInput(Application(dbName&"namefilter"))&"'", , adCmdtext + adExecuteNoRecords .close end with Set objCon = nothing response.clear response.redirect ("admin_banned.asp?done=yes") response.end end if Dim wordFilter, bannedIP, arrWord, arrIP, i, namefilter,domainfilter wordFilter = Application(dbName&"wordFilter") bannedIP = Application(dbName&"bannedIP") namefilter = Application(dbName&"namefilter") domainfilter = Application(dbName&"domainFilter") %> Forum Management <%= OutputCSS() %>
Forum Filters :       Help
<% if request("done")="yes" then response.write "
Forum Filters Set Up Successfully." end if %>
Bad word filter (All bad words will become " *** ")
>
>
>


IP Filter (wildcard is allowed, e.g. 192.168.* ; 10.*)
>
>
>


E-mail Filter (domain name, e.g. yahoo.com ; hotmail.com)
>
>
>


Restricted User Name (login name, e.g. damn ; shit)
>
>
>