⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_edit.asp

📁 这是我根据动网新闻核心自行设计的校园新闻系统
💻 ASP
字号:
<%
pageadmin=10
%>
<!--#include file="../login/check.asp"-->
<!--#include file="../../inc/conn.asp"-->
<!--#include file="../category/category_class.asp"-->
<%
Dim rs
Dim id
id=Request.QueryString("id")
id=CInt(id)
Set rs=conn.Execute("select * from admin where id="&id)
adminname=rs("adminname")
adminpassword=rs("adminpassword")
adminpower=rs("adminpower")
ctt=rs("ct")
rs.close
Set rs=Nothing


%>
<head>
<link rel="stylesheet" type="text/css" href="../../inc/lbstyle.css">
<style type="text/css">
<!--
.style1 {color: #000000}
.style2 {color: #FF0000}
-->
</style>
</head>

<body bgcolor="#4473A5" marginheight=0 marginwidth=0 leftmargin=0>
<script LANGUAGE="JavaScript">
function check()
{

  if (document.form1.adminname.value=="")
     {
      alert("请输入用户名!")
      document.form1.adminname.focus()
      document.form1.adminname.select()
      return
     }
     document.form1.submit()
}
</SCRIPT>
<BR><BR>
<CENTER>
<FORM  method="post" action="admin_save.asp?action=edit&id=<%=id%>" name="form1">
<TABLE width="151" border="0" cellpadding="0" cellspacing="0">
  <TR> 
    <TD width="131" height="2" align="center">修 改 管 理 员</TD>
  </TR>
</TABLE><BR><BR>
<TABLE border="0" cellpadding="0" cellspacing="0" width="98%">
  <TR>
    <TD>
     <CENTER>
     <TABLE width="100%" border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#111111">
       <TR> 
          <TD align="left" height="10">
			<p align="center">用户名: 
          <font color="#FFFFFF"> 
          <input type=text name=adminname size="13" class="text" value="<%=adminname%>">&nbsp; </font>密码: 
          <font color="#FFFFFF"> 
          <input type=password name=adminpassword size="13" class="text">&nbsp; </font><font color="#FFFFFF">
          <select style="font-size: 9pt" name="adminpower" onchange="if(this.options[this.options.selectedIndex].value==10){document.form1.all.checked=true;selectall();}">
          <option value=10<%If CInt(adminpower)=10 Then Response.Write " selected"%>>超级管理员</option>
          <option value=1<%If CInt(adminpower)=1 Then Response.Write " selected"%>>普通管理员</option>
          </select>&nbsp;
          <input name="all" type="checkbox" id="all" value="checkbox" onclick="selectall();">
		  <SCRIPT LANGUAGE="JavaScript">
		  <!--
		  function selectall()
		  {
			 var num;     
			 num=document.form1.elements.length;
			for(i=0;i<num;i++)
			{
				if(document.form1.elements[i].name=="category")
				{	
					if(document.form1.all.checked)
					{
						document.form1.elements[i].checked=true;
					}
					else
					{
						document.form1.elements[i].checked=false;
					}
				}
			}
		  }
		  //-->
		  </SCRIPT>
          </font><span class="style1">选择所有权限</span> 
             <input type="button" value="修  改" class="smallInput" onclick="check()">&nbsp;&nbsp;&nbsp;&nbsp;
            <input type="button" value="返  回" class="smallInput" onclick=javascript:history.go(-1)>
          </TD>
       </TR>
       <TR>
         <TD align="center" height="10"><span class="style2">*如果不修改密码请留空</span></TD>
       </TR>
       <TR> 
          <TD align="left" height="25"><table width="90%"  border="0" align="center">
            <tr>
              <td><%
		  dim ct
		  set ct=new LBCategory
		  ct.categorytype="新闻"
		  ct.NewsCheckedList "-1",ctt
		  %></td>
            </tr>
          </table></TD>
       </TR>
       <TR> 
          <TD align="left" height="25"> </TD>
       </TR>
       <TR>
          <TD  height="25" align="center"> 
             </TD>
       </TR>
     </TABLE>
  </FORM>
   </TD>
 </TR>
</TABLE>
</center>
<%
call connclose
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -