admin_badwords.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!-- #include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_badwords.asp
'Version:2.0
'UpdateTime: 2004-10-7 14:41:02
'Script Written by www.aspease.com 
'=========================================================
admheader
call main()
admfooter
sub main()	
if request("action") = "savebadword" then
	call savebadword()
else
response.Write("<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3""  align=center class=""tableBorder"">")
response.Write("  <tr> ")
response.Write("    <td colspan=2 class=row> </td>")
response.Write("  </tr>")
response.Write("  <form action=""admin_badwords.asp?action=savebadword"" method=post>")
response.Write("    ")
if request("stype")="badword" then
response.Write(" ")
response.Write("    <tr> ")
response.Write("      <th colspan=2 align=left height=23>商品名和商品描述过滤字符</th>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row width=""20%"">说明：</td>")
response.Write("      <td class=row width=""80%"">商品名和商品描述过滤字符将过滤包含以下字符的内容，请您将要过滤的字符串添入，如果有多个字符串，请用&quot;|&quot;分隔开，例如：妈妈的|我靠|fuck</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row width=""20%"">请输入过滤字符</td>")
response.Write("      <td class=row width=""80%""> ")
response.Write("        <input type=""text"" name=""badwords"" value=""")
response.Write(webgoodsbadwords)
response.Write(""" size=""80"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    ")
elseif request("stype")="splitreg" then
response.Write(" ")
response.Write("    <tr> ")
response.Write("      <th colspan=2 align=left height=23>用户注册过滤字符</th>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row width=""20%"">说明：</td>")
response.Write("      <td class=row width=""80%"">注册过滤字符将不允许用户注册包含以下字符的内容，请您将要过滤的字符串添入，如果有多个字符串，请用&quot;|&quot;分隔开，例如：动易|byhu</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row width=""20%"">请输入过滤字符</td>")
response.Write("      <td class=row width=""80%""> ")
response.Write("        <input type=""text"" name=""splitwords"" value=""")
response.Write(webuserbadwords)
response.Write(""" size=""80"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    ")
elseif request("stype")="forbidword" then
response.Write(" ")
response.Write("    <tr> ")
response.Write("      <th colspan=2 align=left height=23>商品名和用户名禁止使用的字符</th>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row width=""20%"">说明：</td>")
response.Write("      <td class=row width=""80%"">禁止使用的字符将不允许用户注册和商品名称中包含以下字符的内容，请您将要禁止的字符串添入，如果有多个字符串，请用&quot;,&quot;分隔开，例如：&lt;,&gt;,*,'</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=row width=""20%"">请输入禁止字符</td>")
response.Write("      <td class=row width=""80%""> ")
response.Write("        <input type=""text"" name=""forbidchar"" value=""")
response.Write(server.htmlencode(webforbidchar))
response.Write(""" size=""80"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    ")
end if
response.Write(" ")
response.Write("    <input type=hidden value=""")
response.Write(request("stype"))
response.Write(""" name=""stype"">")
response.Write("    <tr> ")
response.Write("      <td class=row width=""20%""></td>")
response.Write("      <td width=""80%"" class=row> ")
response.Write("        <input type=""submit"" name=""Submit"" value=""提 交"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("  </form>")
response.Write("</table>")
end if
end sub
sub savebadword()
if request("stype")="badword" then
sql = "update webconfig set webgoodsbadwords="&sqlstr(request("badwords"))&" where webid ="&webid&""
conn.execute(sql)
elseif request("stype")="splitreg" then
sql = "update webconfig set webuserbadwords="&sqlstr(request("splitwords"))&" where webid ="&webid&""
conn.execute(sql)
elseif request("stype")="forbidword" then
sql = "update webconfig set webforbidchar="&sqlstr(request("forbidchar"))&" where webid ="&webid&""
conn.execute(sql)
end if
response.write "更新成功！"
end sub
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_badwords.asp
'Version:2.0
'UpdateTime: 2004-10-7 14:41:02
'Script Written by www.aspease.com 
'=========================================================%>