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

📄 admin.asp

📁 基于ASP的查询搜索源代码 文件利用ASP对ACCESS数据库进行搜索
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="DQE_Conn.asp"-->
<!--#include file="md5.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欢迎使用星旧新闻管理系统1.0</title>
<style type="text/css">
<!--
body,td,th {
	color: #492D75;
	font-family: 宋体;
	font-size: 9pt;
}
body {
	background-color: #F4F5F9;
}
.kuang {
	border: 1px solid #636EA2;
	background-color: #FFFFFF;
}
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
.shang {
	border-top-width: 1px;
	border-top-style: solid;
	border-top-color: #636EA2;
	border-right-color: #636EA2;
	border-bottom-color: #636EA2;
	border-left-color: #636EA2;
}
a:link {
	color: #25163A;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #25163A;
}
a:hover {
	text-decoration: underline;
	color: #25163A;
}
a:active {
	text-decoration: none;
	color: #25163A;
}
-->
</style></head>

<body>
 
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td class="kuang"><p>&nbsp;</p>
	<!-- 删除用户 -->
	<% If request.QueryString("dongzuo")="scadmin" and Session("adminquanxian")="超级管理员" Then %>
 <% 
   	set rs5=server.CreateObject("ADODB.RECORDSET")
sql5="select * from admin where DQEname='"+request.QueryString("adname")+"'"
	rs5.open sql5,conn,1,3  %>
    <table width="400" border="0" align="center" cellpadding="0" cellspacing="0" class="kuang">
      <tr background="images/2.jpg">
        <td height="30" bgcolor="#A07AD1"><div align="center" class="style1">欢迎使用多媒体作品发布系统V1.0</div></td>
      </tr>
      <tr>
        <td height="20"><br>
            <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0" class="kuang">
              <tr>
                <td height="20" bgcolor="#F2EFF8">&nbsp;</td>
              </tr>
              <tr>
                <td height="60" class="shang"><div align="center">
	<% rs5.Delete      
       rs5.close		
	   Response.Write("帐号删除成功！")%>            </div></td>
              </tr>
            </table>
          <br></td>
      </tr>

    </table>
	<% End If %>
	<!--修改用户的界面 -->
	<% If request.QueryString("dongzuo")="xgadmin" and Session("adminquanxian")="超级管理员" Then %>
	<table width="500" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bgcolor="#E9E2F3" class="kuang">
      <tr background="images/2.jpg">
        <td height="30" bgcolor="#A07AD1"><div align="center" class="style1">欢迎使用星旧新闻发布系统V1.0</div></td>
      </tr>
      <tr>
        <td height="20"><br>
            <% 
   	set rs6=server.CreateObject("ADODB.RECORDSET")
sql6="select * from admin where DQEname='"+request.QueryString("adname")+"'"
	rs6.open sql6,conn,1,1  %>
            <form name="form1" method="post" action="<%=ThisFileName%>?dongzuo=upxgadmin&adname=<%= request.QueryString("adname") %>">
              <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0" class="kuang">
                <tr>
                  <td height="20" colspan="4" bgcolor="#F2EFF8"><div align="center">资料修改:</div></td>
                </tr>
                <tr>
                  <td width="23%" height="30" class="shang"><div align="center">帐号：</div></td>
                  <td width="21%" class="shang">&nbsp;&nbsp;<%= rs6("DQEname") %></td>
                  <td width="22%" class="shang"><div align="center">名字：</div></td>
                  <td width="34%" class="shang"><div align="left">
                      <input name="oldname" type="text" id="oldname" value="<%= rs6("DQEzsname") %>" size="15" maxlength="50">
                  </div></td>
                </tr>
                <tr>
                  <td height="30" class="shang"><div align="center">权限：</div></td>
                  <td height="30" class="shang">&nbsp;&nbsp;<%= rs6("DQEquanxian") %></td>
                  <td height="30" class="shang"><div align="center">&nbsp;</div></td>
                  <td height="30" class="shang">&nbsp;</td>
                </tr>
                <tr>
                  <td height="30" class="shang"><div align="center">原来的密码：</div></td>
                  <td height="30" colspan="3" class="shang"><label>
                    &nbsp;
                    <input name="oldpassword" type="password" id="oldpassword" size="25" maxlength="50">
                  </label></td>
                </tr>
                <tr>
                  <td height="30" class="shang"><div align="center">新密码：</div></td>
                  <td height="30" colspan="3" class="shang">&nbsp;
                    <input name="newpassword1" type="password" id="newpassword1" size="25" maxlength="50"></td></tr>
                <tr>
                  <td height="30" class="shang"><div align="center">再输一次新密码：</div></td>
                  <td height="30" colspan="3" class="shang">&nbsp;
                    <input name="newpassword2" type="password" id="newpassword2" size="25" maxlength="50"></td></tr>
                <tr>
                  <td height="40" colspan="4" class="shang"><label>
                      <div align="center">
                        <input type="submit" name="Submit3" value="提交修改">
                      </div>
                    </label></td>
                </tr>
              </table>
            </form>
          <% rs.close
	set rs = nothing %>
            <br></td>
      </tr>
    </table>
	<% End If %>
	<!--修改用户 -->	
	<% If request.QueryString("dongzuo")="upxgadmin" and Session("adminquanxian")="超级管理员" Then %>
 
    <table width="400" border="0" align="center" cellpadding="0" cellspacing="0" class="kuang">
      <tr background="images/2.jpg">
        <td height="30" bgcolor="#A07AD1"><div align="center" class="style1">欢迎使用多媒体作品发布系统V1.0</div></td>
      </tr>
      <tr>
        <td height="20"><br>
            <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0" class="kuang">
              <tr>
                <td height="20" bgcolor="#F2EFF8">&nbsp;</td>
              </tr>
              <tr>
                <td height="60" class="shang"><div align="center">
				
	 <% 
   	set rs7=server.CreateObject("ADODB.RECORDSET")
sql7="select * from admin where DQEname='"+request.QueryString("adname")+"'"
	rs7.open sql7,conn,1,3 %>
	<% if Request.Form("newpassword1")<>Request.Form("newpassword2") Then Response.Write("两次输入的新密码不一致！")   End If %> 
	<% Admin_Pass_Word=md5(Request.Form("oldpassword"),16)+"wr72bf13" 
	if Admin_Pass_Word<>rs7("DQEpassword") Then Response.Write("密码错误！")   End If
	%>
	 <% if Request.Form("newpassword1")=Request.Form("newpassword2") and Admin_Pass_Word=rs7("DQEpassword") Then 
Admin_Pass_Word=md5(Request.Form("newpassword1"),16)+"wr72bf13"
rs7("DQEpassword")=Admin_Pass_Word
rs7("DQEzsname")=Request.Form("oldname")
rs7.update
rs7.close 
set rs7 = nothing
Response.Write("资料修改成功！")
End If %>            </div></td>
              </tr>
            </table>
          <br></td>
      </tr>

    </table>
	<% End If %>
	<!--密码修改 -->
	<% If request.QueryString("dongzuo")="updateadmin" Then %>
 <% 
   	set rs1=server.CreateObject("ADODB.RECORDSET")
sql1="select * from admin where DQEname='"+Session("adminname")+"'"
	rs1.open sql1,conn,1,3  %>
    <table width="400" border="0" align="center" cellpadding="0" cellspacing="0" class="kuang">
      <tr background="images/2.jpg">
        <td height="30" bgcolor="#A07AD1"><div align="center" class="style1">欢迎使用多媒体作品发布系统V1.0</div></td>
      </tr>
      <tr>
        <td height="20"><br>
            <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0" class="kuang">
              <tr>
                <td height="20" bgcolor="#F2EFF8">&nbsp;</td>
              </tr>
              <tr>
                <td height="60" class="shang"><div align="center">
				<% dim Admin_Pass_Word,asppassword
				asppassword=Request.Form("oldpassword")
	Admin_Pass_Word=md5(asppassword,16)+"wr72bf13" %>
12

⌨️ 快捷键说明

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