 <%@ 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 xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<LINK href="../css/gl.css" rel=stylesheet type=text/css>
<title>过滤管理</title>


<script type="text/javascript">
<!--
function toggleTo(img)
{
var ts=document.getElementById("tab").getElementsByTagName("div"); 
for(i=1;i<ts.length+1;i++){ 
if(img==i) 
{
document.getElementById("oDIV"+i).parentNode.className+=" up";
}
else{
document.getElementById("oDIV"+i).parentNode.className=" ";
}
}
}
//-->
</script>
<script language="javascript">
function queding()
{
 if(document.metaform1.content.value=="")
 {
   alert("不能为空！");
   document.metaform1.content.focus();
   return false;
 }
}
</script>

<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>

<body>
<title>脏话信息管理</title>
<%
Set rs2= Server.CreateObject("ADODB.Recordset") 
sql2="select * from websen_Dirty where type=1"
rs2.open sql2,conn,1,3
zdygl=rs2("Websen_zd")
rs2.close
%>
<table width="100%" border="0" align=center cellpadding="3" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#C4D8ED">
  <tr>
    <td height=30 align="center" bgcolor="#FFFFFF"><strong>资讯评论过滤管理</strong></td> 
  </tr>
<table width="100%" border="0" align=center cellpadding="3" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#C4D8ED">
  <tr>
    <td height=25 class=forumRow><span class="STYLE1">说明：</span>此处设置过滤信息，在会员中心发布供应、求购、产品等信息如果出现过滤信息则不能正常发布！</td>
  </tr>
    <tr>
    <td height=25 align="center" class=forumRow>
  <table width="95%" border="0"  align=center cellpadding="0" cellspacing="0">
  <form name="metaform1" action="websen_gljz.asp" method="post" >
<tr >
  <td width="19%" height="30" align="center" valign="middle">资讯评论过滤管理<br>
    开启系统自定义过滤
      <input name="zdygl" type="checkbox" value="1" <%if zdygl=1 then%> checked<%else%> <%end if%> /></td>
  
<td width="83%" align="center"><textarea name="content" id="content" rows="20" cols="80" style="color:#337ABB"><%Set rs= Server.CreateObject("ADODB.Recordset") 
sql="select Dirty from websen_Dirty where type=1"
rs.open sql,conn,1,3
response.Write  rs("Dirty")
rs.close
%></textarea></td>
</tr>
<tr >
  <td height="29" colspan="2" align="center"><input type="submit" name="submit" value=" 提交 "  
  onclick="javascript:return queding();"/></td>
  </tr>
  <input name="id" id="id" type="hidden" value="1">
  </form>
</table>
</td></tr></table>
</body>
</html>
<!--#include file="../copy.asp" -->



