📄 admin_admin.asp

📁 asp+sql软件系统
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../admin/CheckAdmin.asp"-->
<!--#include file="../Include/MD5.asp"-->

<%
ErrTitle = "管理用户出错："
SucTitle = "管理用户成功："
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<style type="text/css">
<!--
.STYLE1 {
	font-size: 12px;
	color: #000000;
}
.tb { 
width: 100%; 
border: 1px #FFAC53 solid; 
border-collapse: collapse; 
float:left; 
}  
 a:link{
color:#000000;
text-decoration:none;
}
 a:visited{
color:#000000;
text-decoration:none;
}
 a:hover{color:#FF0000;
text-decoration:underline;
}
.tb { 
width: 100%; 
border: 1px #FFAC53 solid; 
border-collapse: collapse; 
float:left; 
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理代理</title>
</head>

<body>
<%
Select Case Action
	Case "SavePass"
		Call SavePass()
	Case Else
		Call Main()
End Select

Sub Main()
%>

<form name="form1" method="post" action="?Action=SavePass">
<table width="75%" border=0 align="center" cellpadding="0" cellspacing="0" class="tb">
  <tr>
    <td colspan="2" class="tb"><font class="STYLE1">修改管理员密码</font></td>
  </tr>
  <tr>
    <td width="31%" align="right"><font class="STYLE1">管理员名:</font></td>
    <td width="69%"><%=Session("NetCom_Admin_Name")%></td>
  </tr>
  <tr>
    <td align="right"><font class="STYLE1">旧密码</font></td>
    <td><input name="opass" type="text" id="opass" size="25"></td>
  </tr>
  <tr>
    <td align="right"><font class="STYLE1">新密码</font></td>
    <td><input name="npass" type="text" id="npass" size="25"></td>
  </tr>
  <tr align="center">
    <td colspan="2"><input type="submit" name="Submit" value="提交"></td>
  </tr>
</table>
</form>
<%
End Sub

Sub SavePass()
Dim opass,npass
opass=Trim(Request.Form("opass"))
npass=Trim(Request.Form("npass"))

If opass="" or npass="" Then
	ErrInfo = ErrInfo&"<li>请输入完整数据。</li>"
	FoundErr=True
End If
If MD5(opass,16)<>Session("NetCom_Admin_Password") Then
	ErrInfo = ErrInfo&"<li>请输入的旧密码不相符。</li>"
	FoundErr=True
End If
If FoundErr Then
	Call ErrorMsg()
Else
	Call OpenDatabase()
	Conn.Execute("UPDATE [Admin] SET Adminpassword='"&MD5(npass,16)&"' WHERE Adminid="&CInt(Session("NetCom_Admin_Id"))&"")
	Call CloseDatabase()
	Call SucMsg("<li>修改密码成功！</li>","Admin_Login.asp")
End If
End Sub
%>
</body>
</html>
⌨️ 快捷键说明

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