?? admin.asp
字號(hào):
<%@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>歡迎使用星舊新聞管理系統(tǒng)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> </p>
<!-- 刪除用戶 -->
<% If request.QueryString("dongzuo")="scadmin" and Session("adminquanxian")="超級(jí)管理員" 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">歡迎使用多媒體作品發(fā)布系統(tǒng)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"> </td>
</tr>
<tr>
<td height="60" class="shang"><div align="center">
<% rs5.Delete
rs5.close
Response.Write("帳號(hào)刪除成功！")%> </div></td>
</tr>
</table>
<br></td>
</tr>
</table>
<% End If %>
<!--修改用戶的界面 -->
<% If request.QueryString("dongzuo")="xgadmin" and Session("adminquanxian")="超級(jí)管理員" 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">歡迎使用星舊新聞發(fā)布系統(tǒng)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">帳號(hào)：</div></td>
<td width="21%" class="shang"> <%= 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">權(quán)限：</div></td>
<td height="30" class="shang"> <%= rs6("DQEquanxian") %></td>
<td height="30" class="shang"><div align="center"> </div></td>
<td height="30" class="shang"> </td>
</tr>
<tr>
<td height="30" class="shang"><div align="center">原來的密碼：</div></td>
<td height="30" colspan="3" class="shang"><label>
<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">
<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">
<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")="超級(jí)管理員" 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">歡迎使用多媒體作品發(fā)布系統(tǒng)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"> </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("密碼錯(cuò)誤！") 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">歡迎使用多媒體作品發(fā)布系統(tǒng)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"> </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" %>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -