📄 admin_admin.asp

📁 在线报价程序V0.1 免费版： 1、后台添加产品 2、后台分类 3、后台添加友情连接 4、会员管理 5、客户留言 6、在线订单 7、捆绑了《忠网广告管理系统》 8、公告发布、管理管理员：admin
💻 ASP
字号:
<!-- #include file="conn.asp"-->
<!-- #Include File="top1.asp" -->
<!--#include file="../md5.asp"-->
<%
dim admin
admin = session("adname")
%>
<%
set rs=server.CreateObject("ADODB.recordset")
rs.open "index",conn,3,3
name=rs("name")
rs.close
set rs=nothing
%>
<title><%=name%>购物--管理系统</title>
<link rel="stylesheet" href="style.css" type="text/css">
<meta NAME=GENERATOR Content=""Microsoft FrontPage 4.0"" CHARSET=GB2312>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
if request("action")="pass" then

    server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
    server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
    if mid(server_v1,8,len(server_v2))<>server_v2 then
	   response.write "<script language=JavaScript>{window.location='error.asp'}</script>"
	   response.end
    end if

    set rs=server.CreateObject("ADODB.recordset")
	sql="select * from admin where name='"&admin&"' and pwd='"&MD5(request("pwd"))&"'"
	rs.open sql,conn,3,3
	if rs.eof and rs.bof then
   	response.write "<script language=JavaScript>{window.alert('原先密码错误！');window.history.go(-1);}</script>"	
	else
	rs("pwd")= MD5(request("newpwd"))		
	rs.update
	session("adpwd")=rs("pwd")
	rs.close
	set rs=nothing
	response.write "<script language=JavaScript>{window.alert('密码修改成功！');window.location='admin_admin.asp?action=pwd'}</script>"	
	response.end
	end if
end if
%>
<%
if  request("action")="add" then
    
	server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
    server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
    if mid(server_v1,8,len(server_v2))<>server_v2 then
	   response.write "<script language=JavaScript>{window.location='error.asp'}</script>"
	   response.end
    end if
	
	set rs=server.CreateObject("ADODB.recordset")
	sql="select * from admin where name='"&request("name")&"'"
	rs.open sql,conn,3,3
	if not rs.eof then
   	response.write "<script language=JavaScript>{window.alert('已经有此管理员，请重新输入！');window.history.go(-1);}</script>"	
	else
	rs.addnew
	rs("name")=request("name")
	rs("pwd")=MD5(request("pwd"))		
	rs.update
	rs.close
	set rs=nothing
    response.write "<script language=JavaScript>{window.alert('管理员添加成功！');window.location='admin_admin.asp?action=admin'}</script>"	
	response.end
	end if
end if
%>
<%
if request("action")="del" then

   server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
   server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
   if mid(server_v1,8,len(server_v2))<>server_v2 then
	  response.write "<script language=JavaScript>{window.location='error.asp'}</script>"
	  response.end
   end if

   set rs=server.CreateObject("ADODB.recordset")
   sql="DELETE id from admin where id="&request("sel")
   rs.open sql,conn,3,3
   rs.update
   rs.close
   set rs=nothing
   response.write "<script language=JavaScript>{window.alert('管理员删除成功！');window.location='admin_admin.asp?action=admin'}</script>"	
   response.end
end if
%>
<br>
<%if request("action")="admin" then%>
<%
set rs=server.CreateObject("ADODB.recordset")
sql="select * from admin order by id desc"
rs.open sql,conn,3,3
%>
<script language="JavaScript">
function checkform()
{
if(document.add.name.value==""){
 window.alert("请输入你的用户姓名！");
 document.add.name.focus();
 return false ;
 }
if(document.add.pwd.value==""){
 window.alert("请输入你的用户密码！");
 document.add.pwd.focus();
 return false ;
 }
if(document.add.pwd.value.length<"6"){
 window.alert("密码不能少于6位数！");
 document.add.pwd.focus();
 return false ;
 }
return true;
}
</script>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align="center" class="tableBorder">
<form action="admin_admin.asp?action=add" method="post" onSubmit="return checkform()" name="add">
  <tr> 
    <th width="100%" colspan=2 height=25>添加管理员</th>
  </tr>
  <tr> 
    <td width="30%" height=25 class=forumrow>用户名称</td>
    <td width="70%" height=25 class=forumrow> 
      <input name="name" size=40 maxlength="20">
    </td>
  </tr>
  <tr>
    <td width="30%" height=25 class=forumrow>用户密码</td>
    <td width="70%" class=forumrow> 
      <input type="password" name="pwd" size=40 maxlength="10">
    </td>
  </tr>
  <tr> 
    <td height="15" colspan="2" class=forumrow> 
        <input type="submit" style="CURSOR:hand" name="Submit" value="添  加">
    </td>
  </tr>
</form>
</table>
<br>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<form action="admin_admin.asp?action=del" method="post">
  <tr> 
    <th width="100%" colspan=5 height=25>删除管理员</th>
  </tr>
  <tr> 
    <td width="30%" height=25 class=forumrow align=center>用户名称</td>
    <td width="30%" class=forumrow align=center>登陆次数</td>
	<td width="30%" class=forumrow align=center>最后登陆时间</td>
	<td width="10%" class=forumrow align=center>删&nbsp;&nbsp;除</td>
  </tr>
<%do while not rs.eof%>
  <tr> 
   <td height=25 class=forumrow align=center><%=rs("name")%></td>
   <td class=forumrow align=center><%=rs("hits")%></td>
   <td class=forumrow align=center><%=rs("time")%></td>
   <td class=forumrow align=center>
   <input type="radio" style="CURSOR:hand" name="sel" value="<%=rs("id")%>"></td>
  </tr>    
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
   <tr>
    <td height="15" colspan="5" class="forumrow"> 
    <input type="submit" style="CURSOR:hand" name="Submit" value="删  除">
    </td>
  </tr>
</form>
</table>
<%end if%>
<%if request("action")="pwd" then%>
<script language="JavaScript">
function checkform()
{
if(document.pass.pwd.value==""){
 window.alert("请输入你的原先密码！");
 document.pass.pwd.focus();
 return false ;
 }
if(document.pass.newpwd.value==""){
 window.alert("请输入你的新密码！");
 document.pass.newpwd.focus();
 return false ;
 }
if(document.pass.newpwd.value.length<"6"){
 window.alert("密码不能少于6位数！");
 document.pass.newpwd.focus();
 return false ;
 }
if(document.pass.newpwd1.value!=document.pass.newpwd.value){
 window.alert("两次密码输入不一致！");
 document.pass.newpwd1.focus();
 return false ;
 }
return true;
}
</script>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<form action="admin_admin.asp?action=pass" method="post" onSubmit="return checkform()" name="pass">
  <tr> 
    <th width="100%" colspan=2 height=25>管理员密码修改</th>
  </tr>
  <tr> 
    <td width="30%" height=25 class=forumrow>原先密码</td>
    <td width="70%" height=25 class=forumrow> 
      <input name="pwd" size=40 maxlength="10">
    </td>
  </tr>
  <tr>
    <td width="30%" height=25 class=forumrow>新 密 码</td>
    <td width="70%" class=forumrow> 
      <input type="password" name="newpwd" size=40 maxlength="10">
    </td>
  </tr>
    <tr>
    <td width="30%" height=25 class=forumrow>验证密码</td>
    <td width="70%" class=forumrow> 
      <input type="password" name="newpwd1" size=40 maxlength="10">
    </td>
  </tr>
  <tr> 
    <td height="15" colspan="2" class=forumrow> 
       <input type="submit" style="CURSOR:hand" name="Submit" value="修  改">
    </td>
  </tr>
 </form>
</table>
<%end if%>
<%
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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