<%@ codepage ="936" %>
  <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="22"
	dir="../err.asp" 
 %>
 <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../rolecheck.asp"-->
  <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>展会信息类别管理</title>
<LINK href="../css/style.css" rel=stylesheet type=text/css>
</head>
<body>
<%content=(request.Form("content"))

content=replace(content,"<","[")
content=replace(content,">","]")
zdygl=request.Form("zdygl")
wordsArrays="法轮大法,法轮功,邪教,反革命,反政府,反共产党,他妈的,操他妈,王八旦,日你妈,傻X,操你妈,大日本帝国万岁,法西斯万岁,共匪,万能钥匙,窃听,窃照,麻醉枪,仿真枪,电表调教器,网胜,贸易通,财富通,淘宝旺旺,翻转车牌架,遥控车牌架,李洪志,支付宝,车牌隐形喷剂,反雷达测速器,反测速雷达,alibaba,阿里巴巴,阿里网站,阿里商铺,笨蛋,迷药,三唑仑,"
di=request("id")
Set rs= Server.CreateObject("ADODB.Recordset") 
sql="select *  from websen_Dirty where type="&di
rs.open sql,conn,1,3
if zdygl=1 then 
if rs.eof and rs.bof and wordsArrays<>"" then
rs.addnew
rs("Dirty")=wordsArrays&content
rs("type")=di
rs("websen_zd")=1
rs.update
Response.write("<script >alert('数据添加成功！');history.back(-1);</script>")
else
P=InStr(wordsArrays,"三唑仑")
l=InStr(content,"三唑仑")
if p<>l  then
rs("Dirty")=wordsArrays&content
rs("type")=di
rs("websen_zd")=1
rs.update
else
rs("Dirty")=content
rs("type")=di
rs("websen_zd")=1
rs.update
end if
Response.write("<script >alert('数据修改成功！');history.back(-1);</script>")
end if
else
if rs.eof and rs.bof then
rs.addnew
rs("Dirty")=content
rs("type")=di
rs("websen_zd")=0
rs()
rs.update
Response.write("<script >alert('数据添加成功！');history.back(-1);</script>")
else
rs("Dirty")=content
rs("type")=di
rs("websen_zd")=0
rs.update
Response.write("<script >alert('数据修改成功！');history.back(-1);</script>")
end if
end if
rs.close
%>
</body>
</html>