<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%
call head()
%>

<%call saycardd("屏蔽设置")
dim TP,killtxt,killwml
TP=request("TP")
IF TP<>"" then
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select getpost,getpostwml from admin",conn,1,2

killtxt=request("killtxt")
killwml=request("killwml")
if killtxt="" or killwml="" then
  Call Error("所有不能为空！")
end if
rs("getpost")=killtxt
rs("getpostwml")=killwml
response.write"屏蔽设置成功！"
rs.update
rs.close
set rs=nothing
ELSE
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select getpost,getpostwml from admin",conn,1,1
if not rs.eof then
killtxt=rs("getpost")
killwml=rs("getpostwml")
end if
rs.close
set rs=nothing
if saytk>1 then

	Response.write "<form name=""form"" method=""post"" action=""gettxt.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;tp=1"">"
end if
response.write"屏蔽字符(用||分隔)<br/>"
if saytk>1 then
response.write"<input name=""killtxt"" value="""&killtxt&"""/><br/>"
else
response.write"<input name=""killtxt"&tt&""" value="""&killtxt&"""/><br/>"
end if
response.write"屏蔽提示(支持WML)<br/>"
if saytk>1 then
response.write"<input name=""killwml"" value="""&ubb1(killwml)&"""/><br/>"
else
response.write"<input name=""killwml"&tt&""" value="""&ubb1(killwml)&"""/><br/>"
end if
if saytk>1 then%>
<input type="submit" name="Submit" value="确定设置"></form><br/>
<%else
response.write"<anchor>[确定设置]<go href='gettxt.asp?sid="&sid&"&amp;saytk="&saytk&"' method='post' accept-charset='utf-8'>"
response.write"<postfield name='killtxt' value='$(killtxt"&tt&")'/>"
response.write"<postfield name='killwml' value='$(killwml"&tt&")'/>"
response.write"<postfield name='TP' value='1'/>"
response.write"</go></anchor>"
END IF
end if
conn.close
set conn=nothing
%><!--#include file="fanhui.asp"-->
<%response.write""
call headsay()%>
