发信人: ectide()
整理人: ectide(2002-12-25 13:15:13), 站内信件
|
这个问题已经有好几个人在此问过了，今天抽空整理出以下一段代码供大家分享，也算是送给各位版友的一份圣诞贺礼：
==================================================================
IIS的安全验证机制做得很好，我们可以用ASP的安全验证来对windows 2000的管理者密码进行在线修改。
当有人登录站点时，利用ServerVariables集合中的LOGIN_USER捕获登录帐号，前提是必须关闭IIS中允许匿名登录这个选项，然后在changepwd.asp文件中通过ADSI来修改密码。
以下是程序：
changepwd.htm
<body>
<!--与该输入表单有关的客户端验证脚本（即不允许新密码为空和两次密码输入是否相等的判断）请自行编号-->
<form action='changepwd.asp' method='post'>
<input type='hidden' name='UserName' value='<%=request.servervariables("LOGIN_USER")%>'>
<br>输入旧密码：<input name="OldPwd">
<br>输入新密码：<input name="NewPwd1">
<br>确认新密码：<input name="NewPwd2">
<input type=submit value='更改'>
</form>
</body>
changepwd.asp
<%
OldPwd=request.form("OldPwd")
NewPwd=request.form("NewPwd1")
UserName=request.form("UserName")
Set oUser=GetObject("WinNT://ComputerName/" & UserName)
oUser.ChangePassword OldPwd,NewPwd
oUser.SetInfo
set oUser=Nothing
response.write "密码修改成功！"
%>
----
厦门商务潮：http://www.ectide.com/ |
|