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

📄 changepwd.asp

📁 个人相册程序-------------供大家分享
💻 ASP
字号:
<!--#include file="login.asp" -->
<%
 strSourceFile = Server.MapPath("../config.xml")
 Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 'Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
 objXML.load(strSourceFile)
 If objXML.parseError.ErrorCode <> 0 Then 
      objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?>"
 End If
set objadmin = objXML.documentElement.SelectSingleNode("admin")

%>
<script language="JScript" runAt="server">
  if(input["mode"]=="save"){
  var pwd=func.MD5(input["pwd"]).toUpperCase();
  var user=input["user"];
   }
</script>
<%
if request("mode")="save" then
objadmin.SelectSingleNode("user").text=user
objadmin.SelectSingleNode("pwd").text=pwd
objXML.save(strSourceFile)
response.Write("<script>alert('密码修改成功!');</script>")
end if
%>
<html><head><title></title>
<link href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">
function chk(){
  for (var i=0;i<document.form1.elements.length;i++)    {
    var e = document.form1.elements[i];
    if (e.value == '')
	{
	alert('请填写完整!');
	return  false; 
	}
   }
   return true;
  }
</script>
</head><body>
<br>
<br>
<br>
<br>
<br>
<table width="205" height="80"  border="1" align="center" cellpadding="1" cellspacing="1">
  <form name="form1" method="post" action="changepwd.asp?mode=save" onSubmit="return chk();"><tr>
    <td width="56" height="25">用户名</td>
    <td width="136" height="25"><input name="user" type="text" id="user" value="<%=objadmin.SelectSingleNode("user").text%>" size="15"></td>
  </tr>
  <tr>
    <td height="25">密码</td>
    <td height="25"><input name="pwd" type="password" id="pwd" size="15"></td>
  </tr>
  <tr align="center">
    <td height="25" colspan="2">
      <input type="submit" name="Submit" value="修改密码">
    </td>
  </tr></form>
</table></body></html>

⌨️ 快捷键说明

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