使用者登入?制在未?的??????得越?越重要, 很??的道理, 因??在的?站很著急的要做好??管理, 然後向??收?, 其??是很正常的代?, 台?的公司法?的很清楚嘛, 『公司以?利?目的』
在 IIS 5.0 的安全性身分???制中, 整合的 Windows ?? (在 IIS 4.0 ?做 Windows NT 挑??回?) 是一?不歹的??, 很??的一?方法就可以?到一定水?的安全性, 而且可以整合 Windows 2000 的使用者, 不?有一好??好, 缺?是?有一?很好的?上更改密??制, 所以今天就要?介?如何透? ASP ?更改 NT 使用者密?
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
%>
希望?篇文章?你有?助!
在 IIS 5.0 的安全性身分???制中, 整合的 Windows ?? (在 IIS 4.0 ?做 Windows NT 挑??回?) 是一?不歹的??, 很??的一?方法就可以?到一定水?的安全性, 而且可以整合 Windows 2000 的使用者, 不?有一好??好, 缺?是?有一?很好的?上更改密??制, 所以今天就要?介?如何透? ASP ?更改 NT 使用者密?
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
%>
希望?篇文章?你有?助!