admin_admin.asp

个人网站比较简短

            Response.Write "     }" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_SetOnTop.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_SetOnTop[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrKind_SetOnTop_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrKind_SetOnTop_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_SetOnTop[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrKind_SetOnTop_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_SetOnTop[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_Reply.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Reply[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrKind_Reply_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrKind_Reply_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Reply[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrKind_Reply_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Reply[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
        ElseIf rsChannel(1) = 7 Then
            Response.Write "  document.form1.arrHouseClass_Input_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  document.form1.arrHouseClass_Check_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  document.form1.arrHouseClass_Manage_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  if(document.form1.AdminPurview_" & ChannelDir & "[1].checked==true){" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_View.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_View[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrHouseClass_View_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrHouseClass_View_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_View[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrHouseClass_View_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_View[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_Input.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Input[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrHouseClass_Input_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrHouseClass_Input_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Input[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrHouseClass_Input_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Input[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_Check.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Check[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrHouseClass_Check_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrHouseClass_Check_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Check[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrHouseClass_Check_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Check[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_Manage.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Manage[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrHouseClass_Manage_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrHouseClass_Manage_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Manage[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrHouseClass_Manage_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Manage[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
        Else
            Response.Write "  document.form1.arrClass_Input_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  document.form1.arrClass_Check_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  document.form1.arrClass_Manage_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  if(document.form1.AdminPurview_" & ChannelDir & "[2].checked==true){" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_View.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_View[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrClass_View_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrClass_View_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_View[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrClass_View_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_View[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_Input.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Input[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrClass_Input_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrClass_Input_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Input[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrClass_Input_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Input[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_Check.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Check[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrClass_Check_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrClass_Check_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Check[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrClass_Check_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Check[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_Manage.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Manage[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrClass_Manage_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrClass_Manage_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Manage[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrClass_Manage_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Manage[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
        End If
        Response.Write " }" & vbCrLf
        rsChannel.MoveNext
    Loop
    rsChannel.Close
    Set rsChannel = Nothing
    Response.Write "}" & vbCrLf
    Response.Write "</SCRIPT>" & vbCrLf
    
End Sub

Sub AddAdmin()
    Call ShowJS_Check
    Response.Write "<form method='post' action='Admin_Admin.asp' name='form1' onsubmit='javascript:return CheckAdd();'>"
    Response.Write "  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border' >"
    Response.Write "    <tr class='title'> "
    Response.Write "      <td height='22' colspan='2'> <div align='center'><strong>新 增 管 理 员</strong></div></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'> "
    Response.Write "      <td width='12%' align='right' class='tdbg'><strong>管理员名：</strong></td>"
    Response.Write "      <td width='88%' class='tdbg'><input name='AdminName' type='text'></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'> "
    Response.Write "      <td width='12%' align='right' class='tdbg'><strong>前台会员名：</strong></td>"
    Response.Write "      <td width='88%' class='tdbg'><input name='username' type='text'> <a href='Admin_User.asp?Action=AddUser'>添加新会员</a></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'> "
    Response.Write "      <td width='12%' align='right' class='tdbg'><strong>初始密码：</strong></td>"
    Response.Write "      <td width='88%' class='tdbg'><input type='password' name='Password' onkeyup='javascript:EvalPwdStrength(document.forms[0],this.value);' onmouseout='javascript:EvalPwdStrength(document.forms[0],this.value);' onblur='javascript:EvalPwdStrength(document.forms[0],this.value);'></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'> "
    Response.Write "      <td width='12%' align='right' class='tdbg'><strong>密码强度：</strong></td>"
    Response.Write "      <td width='88%' class='tdbg'>"
    Call ShowPwdStrength
    Response.Write "</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='12%' align='right' class='tdbg'><strong>确认密码：</strong></td>"
    Response.Write "      <td width='88%' class='tdbg'><input type='password' name='PwdConfirm'></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'> "
    Response.Write "      <td width='12%'>&nbsp;</td>"
    Response.Write "      <td width='88%'><input name='EnableMultiLogin' type='checkbox' value='Yes'>允许多人同时使用此帐号登录</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='12%' align='right' class='tdbg'><strong>权限设置： </strong></td>"
    Response.Write "      <td width='88%' class='tdbg'><input name='Purview' type='radio' value='1' onClick=""PurviewDetail.style.display='none'"">超级管理员：拥有所有权限。某些权限（如管理员管理、网站信息配置、网站选项配置等管理权限）只有超级管理员才有。"
    Response.Write "  <br><input type='radio' name='Purview' value='2' checked  onClick=""PurviewDetail.style.display=''"">普通管理员：需要详细指定每一项管理权限</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td colspan='2'><table id='PurviewDetail' width='100%' border='0' cellspacing='10' cellpadding='0' style='display:'>"
    Response.Write "        <tr>"
    Response.Write "          <td colspan='2' align='center'><strong>管 理 员 权 限 详 细 设 置</strong></td>"
    Response.Write "        </tr>"

    Dim sqlChannel, rsChannel
    sqlChannel = "select * from PE_Channel where ChannelType<=1 and Disabled=" & PE_False & " order by OrderID"

    Set rsChannel = Conn.Execute(sqlChannel)
    Do While Not rsChannel.EOF
        ChannelID = rsChannel("ChannelID")