<!--#include file="../common/conn.asp"-->
<%
'检查用户权限
call checkuser("会员管理")
%>
<%

'保存加密设置
if request("action")="save" then
	Call SetKey("Visitor",request.Form("chkVisitor"),WebUserID,"member")
	Call SetKey("Member",request.Form("chkMember"),WebUserID,"member")
end if

'取出加密设置
strForVisitor=GetKey("Visitor",WebUserID,"member")
strForMember=GetKey("Member",WebUserID,"member")
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员管理－普通会员</title>
<LINK href="images/default.css" rel=stylesheet type=text/css>
<style>
<!--
td{font-size:9pt;line-height:160%}
A:link {text-decoration: none; color: #000000}
A:visited {text-decoration: none; color: #990000}
A:active {text-decoration: none}
A:hover {text-decoration: underline; color: #ff0000}
//-->
</style>

<script language="JavaScript" src="../common/JS_CheckForm.js"></script>
<script language="JavaScript">

function init(){
	CheckValues(memberForm.chkVisitor,"<%=strForVisitor%>");
	CheckValues(memberForm.chkMember,"<%=strForMember%>");
}
</script>
</head>
<body leftmargin="0" topmargin="0" onLoad="init()">
<form name="memberForm" method="post" action="?action=save">
  <table width="100%" height="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#336600">
    <tr> 
      <td width="100%" height="10" bgcolor="#669900"><strong><font color="#FFFFFF">会员管理－栏目加密设置</font></strong></td>
    </tr>
    <tr bgcolor="#F9F9F9"> 
      <td height="10" bgcolor="#F9F9F9"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="6%">&nbsp;</td>
            <td width="94%"> <ul>
                下面是本站的基本栏目，请在栏目后面选择加密的程度。 
                <%
				strSQL="Select mn_name,id From menu Where m_id=" & WebUserID & " And mn_parent=0 Order By mn_index"
				rs.open strSQL,conn,1,1
				intCount=rs.recordcount
				for i=1 to intCount
				%>
                <li id=foldheader><strong><%=trim(rs("mn_name"))%></strong>　　　　　 
                  <input name="chkVisitor" type="checkbox" id="chkVisitor" value="<%=rs("id")%>">
                  <font color="#FF0000">对访客加密</font> 
                  <input name="chkMember" type="checkbox" id="chkMember" value="<%=rs("id")%>">
                  <font color="#FF0000">对普通会员加密</font> </li>
                <%
						strSQL="Select mn_name,id From menu Where m_id=" & WebUserID & " And mn_parent=" & rs("id") & " Order By mn_index"
						Set rsSub=Server.CreateObject("ADODB.RecordSet")
						rsSub.open strSQL,conn,1,1
						if rsSub.recordcount>0 then
					  %>
                <ul id=foldinglist>
                  <%
						for j=1 to rsSub.recordcount
						%>
                  <li><strong><%=trim(rsSub("mn_name"))%></strong>　　 
                    <input name="chkVisitor" type="checkbox" id="chkVisitor" value="<%=rsSub("id")%>">
                    <font color="#FF0000">对访客加密</font> 
                    <input name="chkMember" type="checkbox" id="chkMember" value="<%=rsSub("id")%>">
                    <font color="#FF0000">对普通会员加密</font> </li>
                  <%
							rsSub.movenext
						next
						%>
                </ul>
                <%
					  end if
					  %>
                <%
					rs.movenext
				next
				%>
              </ul></td>
          </tr>
        </table> </td>
    </tr>
    <tr> 
      <td height="10" bgcolor="#669900"><strong><font color="#FFFFFF">其它加密设置</font></strong></td>
    </tr>
    <tr> 
      <td height="10" bgcolor="#F9F9F9"> <table width="100%" height="50" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="6%">&nbsp;</td>
            <td width="94%">
			1）在线购物　 
              <input name="chkVisitor" type="checkbox" id="chkVisitor" value="sp">
            <font color="#FF0000">对访客加密</font> 
            <input name="chkMember" type="checkbox" id="chkMember" value="sp">
            <font color="#FF0000">对普通会员加密</font>
			<br>
			2）新闻内容　 
              <input name="chkVisitor" type="checkbox" id="chkVisitor" value="new">
            <font color="#FF0000">对访客加密</font> 
            <input name="chkMember" type="checkbox" id="chkMember" value="new">
            <font color="#FF0000">对普通会员加密</font>
			<br>
			3）招聘内容　 
              <input name="chkVisitor" type="checkbox" id="chkVisitor" value="job">
            <font color="#FF0000">对访客加密</font> 
            <input name="chkMember" type="checkbox" id="chkMember" value="job">
            <font color="#FF0000">对普通会员加密</font>
			<br>
			4）留言内容　 
              <input name="chkVisitor" type="checkbox" id="chkVisitor" value="ly">
            <font color="#FF0000">对访客加密</font> 
            <input name="chkMember" type="checkbox" id="chkMember" value="ly">
            <font color="#FF0000">对普通会员加密</font>
			<br>
			<br>
            </td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td height="1" align="center" bgcolor="#669900"></td>
    </tr>
    <tr>
      <td height="100%" align="center" bgcolor="#F9F9F9"> <input type="submit" name="Submit" value=" 提 交 ">
        　 
        <input type="reset" name="Submit2" value=" 重 置 "></td>
    </tr>
  </table>
  <iframe name="BackFrame" width="0" height="0" src="about:blank"></iframe>
</form>
</body>
</html>
