admin_admin.asp

个人网站比较简短

            Response.Write " "
        End If
        Response.Write "</td>"
        Response.Write "<td width='115'>"
        If rsAdminList("LastLoginTime") <> "" Then
            Response.Write rsAdminList("LastLoginTime")
        Else
            Response.Write "&nbsp;"
        End If
        Response.Write "</td>"
        Response.Write "<td width='55'>"
        If Trim(rsAdminList("LoginTimes")) <> "" Then
            Response.Write rsAdminList("LoginTimes")
        Else
            Response.Write "0"
        End If
        Response.Write "</td>"
        Response.Write "<td width='180'>"
        Response.Write "<a href='Admin_Admin.asp?Action=ModifyPwd&ID=" & rsAdminList("ID") & "'>修改密码及设置</a>&nbsp;&nbsp;"
        Response.Write "<a href='Admin_Admin.asp?Action=ModifyPurview&ID=" & rsAdminList("ID") & "'>修改权限</a>&nbsp;&nbsp;"
        Response.Write "</td>"
        Response.Write "</tr>"
        iCount = iCount + 1
        If iCount >= MaxPerPage Then Exit Do
        rsAdminList.MoveNext
    Loop
    rsAdminList.Close
    Set rsAdminList = Nothing
    
    Response.Write "</table>  "
    Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
    Response.Write "  <tr>"
    Response.Write "    <td width='200' height='30'><input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form)' value='checkbox'> 选中本页显示的所有管理员</td>"
    Response.Write "    <td><input name='Action' type='hidden' id='Action' value='Del'>"
    Response.Write "        <input name='Scode' type='hidden' id='Scode' value='" & CheckSecretCode("start") & "'>"
    Response.Write "        <input name='Submit' type='submit' id='Submit' value='删除选中的管理员'></td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "</td>"
    Response.Write "</form></tr></table>"
    
    Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个管理员", True)
End Sub

Sub ShowJS_Check()
    Response.Write "<SCRIPT language=javascript>" & vbCrLf
    Response.Write "function SelectAll(form){" & vbCrLf
    Response.Write "  for (var i=0;i<form.AdminPurview_Others.length;i++){" & vbCrLf
    Response.Write "    var e = form.AdminPurview_Others[i];" & vbCrLf
    Response.Write "    if (e.disabled==false)" & vbCrLf
    Response.Write "       e.checked = form.chkAll.checked;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function CheckAdd(){" & vbCrLf
    Response.Write "  if(document.form1.username.value==''){" & vbCrLf
    Response.Write "      alert('用户名不能为空！');" & vbCrLf
    Response.Write "   document.form1.username.focus();" & vbCrLf
    Response.Write "      return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  if(document.form1.Password.value==''){" & vbCrLf
    Response.Write "      alert('密码不能为空！');" & vbCrLf
    Response.Write "   document.form1.Password.focus();" & vbCrLf
    Response.Write "      return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  if((document.form1.Password.value)!=(document.form1.PwdConfirm.value)){" & vbCrLf
    Response.Write "      alert('初始密码与确认密码不同！');" & vbCrLf
    Response.Write "   document.form1.PwdConfirm.select();" & vbCrLf
    Response.Write "   document.form1.PwdConfirm.focus();" & vbCrLf
    Response.Write "      return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  if (document.form1.Purview[1].checked==true){" & vbCrLf
    Response.Write " GetClassPurview();" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    
    Response.Write "function CheckModifyPwd(){" & vbCrLf
    Response.Write "  if(document.form1.Password.value==''){" & vbCrLf
    Response.Write "      alert('密码不能为空！');" & vbCrLf
    Response.Write "   document.form1.Password.focus();" & vbCrLf
    Response.Write "      return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  if((document.form1.Password.value)!=(document.form1.PwdConfirm.value)){" & vbCrLf
    Response.Write "      alert('初始密码与确认密码不同！');" & vbCrLf
    Response.Write "   document.form1.PwdConfirm.select();" & vbCrLf
    Response.Write "   document.form1.PwdConfirm.focus();" & vbCrLf
    Response.Write "      return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "}" & vbCrLf
    
    Response.Write "function CheckModifyPurview(){" & vbCrLf
    Response.Write "  if (document.form1.Purview[1].checked==true){" & vbCrLf
    Response.Write " GetClassPurview();" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf

    Response.Write "function GetClassPurview(){" & vbCrLf
    
    Dim ChannelDir
    Dim sqlChannel, rsChannel
    sqlChannel = "select ChannelDir,ModuleType from PE_Channel where ChannelType<=1 and ModuleType <> 8 "
    sqlChannel = sqlChannel & "And Disabled=" & PE_False & " order by OrderID"
    Set rsChannel = Conn.Execute(sqlChannel)
    Do While Not rsChannel.EOF
        ChannelDir = rsChannel(0)
        If rsChannel(1) = 4 Then
            Response.Write "  document.form1.arrKind_Modify_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  document.form1.arrKind_Del_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  document.form1.arrKind_Move_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  document.form1.arrKind_Check_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  document.form1.arrKind_Quintessence_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  document.form1.arrKind_SetOnTop_" & ChannelDir & ".value='';" & vbCrLf
            Response.Write "  document.form1.arrKind_Reply_" & 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_Modify.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Modify[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrKind_Modify_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrKind_Modify_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Modify[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrKind_Modify_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Modify[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_Del.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Del[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrKind_Del_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrKind_Del_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Del[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrKind_Del_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Del[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf
            Response.Write "     }" & vbCrLf
            Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_Move.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Move[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrKind_Move_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrKind_Move_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Move[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrKind_Move_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Move[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.arrKind_Check_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrKind_Check_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Check[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrKind_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_Quintessence.length;i++){" & vbCrLf
            Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Quintessence[i].checked==true){" & vbCrLf
            Response.Write "             if (document.form1.arrKind_Quintessence_" & ChannelDir & ".value=='')" & vbCrLf
            Response.Write "                 document.form1.arrKind_Quintessence_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Quintessence[i].value;" & vbCrLf
            Response.Write "             else" & vbCrLf
            Response.Write "                 document.form1.arrKind_Quintessence_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Quintessence[i].value;" & vbCrLf
            Response.Write "         }" & vbCrLf