📄 admin.asp
字号:
<% If rs1("DQEpassword")<>Admin_Pass_Word Then Response.Write("原来的密码输入错误！") End If %> <% if Request.Form("newpassword1")<>Request.Form("newpassword2") Then Response.Write("两次输入的新密码不一致！") End If %>
<% if Request.Form("newpassword1")=Request.Form("newpassword2") and rs1("DQEpassword")=Admin_Pass_Word Then
Admin_Pass_Word=md5(Request.Form("newpassword1"),16)+"wr72bf13"
rs1("DQEpassword")=Admin_Pass_Word
rs1.update
rs1.close
Response.Write("密码修改成功！")
End If %> </div></td>
</tr>
</table>
<br></td>
</tr>
</table>
<% End If %>
<!--新曾用户 -->
<% If request.QueryString("dongzuo")="scaddadmin" 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"> </td>
</tr>
<tr>
<td height="60" class="shang"><div align="center">
<%
set rs4=server.CreateObject("ADODB.RECORDSET")
sql4="select * from admin where DQEname='"+Request.Form("adname")+"'"
rs4.open sql4,conn,1,1 %>
<% If not rs4.EOF Then Response.Write("帐号已经存在！") End If %> <% if Request.Form("adpassword1")<>Request.Form("adpassword2") Then Response.Write("两次输入的新密码不一致！") End If %>
<%
set rs3=server.CreateObject("ADODB.RECORDSET")
sql3="select * from admin "
rs3.open sql3,conn,1,3 %>
<% if Request.Form("adpassword1")=Request.Form("adpassword2") and rs4.EOF Then
Admin_Pass_Word=md5(Request.Form("adpassword1"),16)+"wr72bf13"
rs3.AddNew
rs3("DQEpassword")=Admin_Pass_Word
rs3("DQEname")=Request.Form("adname")
rs3("DQEzsname")=Request.Form("adzsname")
rs3("DQEquanxian")="普通管理员"
rs3.update
rs3.close
rs4.close
set rs3 = nothing
set rs4 = nothing
Response.Write("帐号申请成功！")
End If %> </div></td>
</tr>
</table>
<br></td>
</tr>
</table>
<% End If %>
<% If request.QueryString("dongzuo")="xiugaipassword" 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 rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from admin where DQEname='"+Session("adminname")+"'"
rs.open sql,conn,1,1 %>
<form name="form1" method="post" action="<%=ThisFileName%>?dongzuo=updateadmin">
<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="25%" class="shang"> <%= rs("DQEname") %></td>
<td width="23%" class="shang"><div align="center">名字：</div></td>
<td width="28%" class="shang"> <%= rs("DQEzsname") %></td>
</tr>
<tr>
<td height="30" class="shang"><div align="center">权限：</div></td>
<td height="30" class="shang"> <%= rs("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="Submit" value="提交修改">
</div>
</label></td>
</tr>
</table>
</form>
<% rs.close
set rs = nothing %>
<br></td>
</tr>
</table>
<% End If %>
<% If request.QueryString("dongzuo")="lookadmin" 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 rs2=server.CreateObject("ADODB.RECORDSET")
sql2="select * from admin "
rs2.open sql2,conn,1,1 %>
<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="25%" class="shang"><div align="center">名字 </div></td>
<td width="23%" class="shang"><div align="center">权限 </div></td>
<td width="28%" class="shang"><div align="center"><% If Session("adminquanxian")="超级管理员" Then Response.Write("操作") %> </div></td>
</tr>
<% do while not rs2.eof %>
<tr>
<td height="30" class="shang"><div align="center"><%= rs2("DQEname") %> </div></td>
<td height="30" class="shang"><div align="center"><%= rs2("DQEzsname") %> </div></td>
<td height="30" class="shang"><div align="center"><%= rs2("DQEquanxian") %> </div></td>
<td height="30" class="shang"><div align="center"><% If Session("adminquanxian")="超级管理员" Then %> <a href="<%=ThisFileName%>?dongzuo=xgadmin&adname=<%= rs2("DQEname") %>">修改</a> <a href="<%=ThisFileName%>?dongzuo=scadmin&adname=<%= rs2("DQEname") %>">删除</a><% End If %> </div></td>
</tr>
<% rs2.movenext
loop %>
<tr>
<td height="40" colspan="4" class="shang"><label></label></td>
</tr>
</table>
<% rs2.close
set rs2 = nothing %>
<br></td>
</tr>
</table>
<% End If %>
<% If request.QueryString("dongzuo")="addadmin" and Session("adminquanxian")="普通管理员" Then Response.Write(" 普通管理员没有权限添加管理员！") End If%> <% If request.QueryString("dongzuo")="addadmin" 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>
<form name="form2" method="post" action="<%=ThisFileName%>?dongzuo=scaddadmin">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="kuang">
<tr>
<td height="20" colspan="2" bgcolor="#F2EFF8"><div align="center">新增管理员:</div></td>
</tr>
<tr>
<td width="23%" height="30" class="shang"><div align="center"> 帐号</div></td>
<td class="shang">
<div align="left">
<input name="adname" type="text" id="adname" size="25" maxlength="50">
</div> </td>
</tr>
<tr>
<td height="30" class="shang"><div align="center">名字</div></td>
<td height="30" class="shang">
<div align="left">
<input name="adzsname" type="text" id="adzsname" size="25" maxlength="50">
</div> </td></tr>
<tr>
<td height="30" class="shang"><div align="center">密码</div></td>
<td height="30" class="shang"> <input name="adpassword1" type="password" id="adpassword1" size="27"></td>
</tr>
<tr>
<td height="30" class="shang"><div align="center">再输一次：</div></td>
<td height="30" class="shang"> <input name="adpassword2" type="password" id="adpassword2" size="27"></td>
</tr>
<tr>
<td height="30" colspan="2" class="shang">
<div align="center">
<input type="submit" name="Submit2" value="提交">
</div> </td>
</tr>
</table>
</form>
<br></td>
</tr>
</table>
<% End If %>
<p> </p></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -