adminmanage.asp

来自「很漂亮的一个网络公司的源码」· ASP 代码 · 共 76 行

ASP
76 行
字号 
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../Function/chklogin.asp"-->
<!--#include file="../Function/function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>密码修改</title>
<link rel="stylesheet" href="../css/style.css" type="text/css">
<script language="javascript">
	function chkInput(frm)
	{
		var username,password
		username=trim(frm.UserName.value);
		password=trim(frm.PassWord.value);
		if (username.length==0)
		{
			frm.UserName.focus();
			msgbox("输入管理员帐号");			
			return false;
		}
		if (password.length==0)
		{
			frm.PassWord.focus();
			msgbox("请输入新的密码");
			return false;
		}
	}
function msgbox(strValue)
	{
		alert("温馨提示:\n"+strValue + "！");
	}
function trim(val)
	{
		var str = val+"";
		if ( str.length == 0 ) 
		return str;		
		var re = /^\s*/;
		str = str.replace(re,'');	
		re = /\s*$/;
		return str.replace(re,'');
}
</script>
<body topmargin=50>
<%
	If IsSubmit and CheckAdmin Then
		Dim strUser,strPass
		strUser=Request.Form("UserName")
		strPass=Request.Form("PassWord")
		if ChangePass(strUser,strPass) Then
			MessageBox "温馨提示：\n\n密码修改成功,系统需要重新登陆！！",101			
		Else
			MessageBox "温馨提示：\n\n密码修改失败！",1
		End if
		Response.End
	End if
%>
<table width="60%" cellpadding=3 cellspacing=1 bgcolor=#a7a7a7 align=center>
<form name=form method=post action=?menu=modify OnSubmit="return chkInput(this);">
 <tr height=25 bgcolor=#f3f3f3>
 <td colspan=2 align=center>管理员修改</td>
 </tr>
 <tr height=22 bgcolor=#ffffff>
   <td width=80>用户名：</td> 
   <td><input type=text name="UserName" value="<%= Session("UserName")%>" readonly></td> 
 </tr>
 <tr height=22 bgcolor=#ffffff>
   <td width=80>密码：</td> 
   <td><input type=password name="PassWord" value=""></td> 
 </tr>
 <tr height=22 bgcolor=#ffffff>
   <td colspan=2 align=center><input type=submit value="确定"></td> 
 </tr>
 </form>
</table>
</body>

adminmanage.asp - 源码说明

本页面展示了「很漂亮的一个网络公司的源码」中的 adminmanage.asp 源码文件，采用 ASP 编程语言编写，共 76 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与网络相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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