changepwd.asp

来自「集合了学习asp的100个实例」· ASP 代码 · 共 47 行

ASP
47 行
字号 
<html>

<title>

更改NT用户密码

</title>

<body>

<%

Sub ChangeUserPassword(Computer,UserName,oldPassword,newPassword)

Dim adsUser,foundErr,ErrMsg

On Error Resume Next

foundErr=False

ErrMsg=""

Set adsUser=GetObject("WinNT://"+Computer+"/"+UserName+",user")

If Err.Number<>0 Then

foundErr=True

ErrMsg="User not found!"

Err.Clear

Else

adsUser.ChangePassword oldPassword, newPassword

adsUser.SetInfo

If Err.Number<>0 Then

foundErr=True

ErrMsg=Now & ". Error Code: " & Hex(Err) & " - " & Err.Description & "<br>"

Err.Clear

End If

End If

If Not foundErr Then

objContext.SetComplete

Response.Write "<font color=red><b>密码已经成功修改! </b><br><br>"

Response.Write "</font>"

Else

objContext.SetAbort

Response.Write "<font color=red><b>错误的旧密码，请重新输入正确的旧密码!</b><br><br>"&ErrMsg

Response.Write "</font>"

End If

Set adsUser=Nothing

End Sub 



response.write "<center><h2>更改NT用户密码</h2></center>"

Computer="fang"

UserName="fenfang"

oldPassword="1234"

newPassword="4321"

ChangeUserPassword Computer,UserName,oldPassword,newPassword

%>

</body>

</html>

changepwd.asp - 源码说明

本页面展示了「集合了学习asp的100个实例」中的 changepwd.asp 源码文件，采用 ASP 编程语言编写，共 47 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP实例相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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