新客网WWW.XKER.COM:致力做中国最专业的网络学院!
学院: 操作系统 - 网络应用 - 服务器 - 网络安全 - 工具软件 - 办公软件 - Web开发 - 数据库 - 网页设计 - 图形图像 - 媒体动画 - 硬件学堂 - 存储频道 - QQ专区
您的位置:首页 > 软件开发 > Web开发 > Asp教程 > 正文:透过 ASP 修改 NT 使用者密码(转)

透过 ASP 修改 NT 使用者密码(转)

新客网 XKER.COM 2003-07-11 来源: 收藏本文
 HTML 部分

当一个使用者登入你网站的安全区域, 你就可以利用 ServerVariables 集合中的 LOGIN_USER 来了解登入的使用者帐号, 当然记得要把允许匿名登入选项关闭, 现在就先来看 HTML 部分

<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>

程序代码

接下来是 ASP 的部分, 看看如何透过 ADSI 来修改 WIndows 2000 使用者帐号, 将下底的程序代码存成 changepwd.asp 檔名

<%
OldPwd = Request.Form("OldPwd")
NewPwd1 = Request.Form("NewPwd1")
NewPwd2 = Request.Form("NewPwd2")
UserName = Request.Form("UserName")
  
If NewPwd1 = NewPwd2 Then
  Set oUser = GetObject("WinNT://ComputerName/" & UserName)
  oUser.ChangePassword OldPwd, NewPwd1
  oUser.SetInfo
  Set oUser = Nothing
Else
  Response.Write "请再确认你的密码"
End If
%>
收藏】 【评论】 【推荐】 【投稿】 【打印】 【关闭
发表评论
要记得去论坛讨论,点击注册新会员匿名评论
评论内容:不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐