<%@ 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 language="javascript">
function queding()
{
 if(document.metaform1.content.value=="")
 {
   alert("不能为空！");
   document.metaform1.content.focus();
   return false;
 }
}
</script>
<LINK href="../css/style.css" rel=stylesheet type=text/css>

<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>
<body> 
<%
Set rs2= Server.CreateObject("ADODB.Recordset") 
sql2="select * from websen_Dirty where type=2"
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="metaform2" action="websen_gljz.asp" method="post" >
        <tr >
          <td width="24%" 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="76%"><textarea name="content" id="content" rows="20" cols="80" style="color:#337ABB"><%Set rsf= Server.CreateObject("ADODB.Recordset") 
sql1="select Dirty from websen_Dirty where type=2"
rsf.open sql1,conn,1,3
response.Write  rsf("Dirty")
rsf.close
%>
    </textarea></td>
        </tr>
        <tr >
          <td height="29" colspan="2" align="center"><input type="submit" name="submit" value=" 提交 "  
  onclick="javascript:return queding1();"/></td>
        </tr>
        <input name="id" id="id" type="hidden" value="2">
      </form>
    </table></td>
  </tr>
</table>
 </body>
</html>
