透过ASP修改NT使用者的密码
类别: ASP教程
使用者登入?C制在未?淼木W??檫办??锢得越?碓街匾?, 很???蔚牡览憩 因?楝F在的咀站很著急的要做好???T管理, 然後向???T收遑, 其??呃是很正常的代丈, 台?车墓?司法真的很清楚嘛, 『公司以?I利?槟康摹患br>
在 IIS 5.0 的安全性身分??酌?C制中, 整合的 Windows ??酌 (在 IIS 4.0 ??做 Windows NT 挑?鹋c回??) 是一??不歹的啉?瘳 很???蔚囊???方法就可以哌到一定水?实陌踩?性, 而且可以整合 Windows 2000 的使用者, 不咿有一好?o?珊矛 缺?c是?]有一??很好的??上更改密瘁?C制, 所以今天就要?斫榻B如何透咿 ASP ?砀?改 NT 使用者密瘁
HTML 部分
??一??使用者登入你咀站的安全?^域, 你就可以利用 ServerVariables 集合中的 LOGIN_USER ?砹私獾侨氲氖褂谜??ぬ?, ??然??得要把允杂匿名登入啉??晷檩, ?F在就先?砜? 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 使用者?ぬ?, ?⑾碌椎某淌酱a存成 changepwd.asp ?n名
<%
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
%>
希望呃篇文章?δ阌??椭?!
在 IIS 5.0 的安全性身分??酌?C制中, 整合的 Windows ??酌 (在 IIS 4.0 ??做 Windows NT 挑?鹋c回??) 是一??不歹的啉?瘳 很???蔚囊???方法就可以哌到一定水?实陌踩?性, 而且可以整合 Windows 2000 的使用者, 不咿有一好?o?珊矛 缺?c是?]有一??很好的??上更改密瘁?C制, 所以今天就要?斫榻B如何透咿 ASP ?砀?改 NT 使用者密瘁
HTML 部分
??一??使用者登入你咀站的安全?^域, 你就可以利用 ServerVariables 集合中的 LOGIN_USER ?砹私獾侨氲氖褂谜??ぬ?, ??然??得要把允杂匿名登入啉??晷檩, ?F在就先?砜? 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 使用者?ぬ?, ?⑾碌椎某淌酱a存成 changepwd.asp ?n名
<%
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
%>
希望呃篇文章?δ阌??椭?!
- 上一篇: XML加ASP实现网页“本地化”
- 下一篇: 为输入及输出的数据库的资料做造型
-= 资 源 教 程 =-
文 章 搜 索