 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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 & " " Err.Clear End If End If If Not foundErr Then objContext.SetComplete Response.Write "<font class=""A2"" size=""2"" face=""Arial"">[B]Password changed successful! [/B] " Response.Write "<input type=""button"" class=""A1"" name=""b2"" value="" Back "" onclick=""window.location.replace(\\\'default.asp\\\');"">" Response.Write "</font>" Else objContext.SetAbort Response.Write "<font class=""A2"" size=""2"" face=""Arial"">[B]Wrong old password, back to reinput![/B] "&ErrMsg Response.Write "<input type=""button"" class=""A1"" name=""b2"" value="" Back "" onclick=""history.back();"">" Response.Write "</font>" End If Set adsUser=Nothing End Sub response.write "NT的密码改为qian!" Computer="yp" UserName="sky" oldPassword="dir" newPassword="qian" ChangeUserPassword Computer,UserName,oldPassword,newPassword %> 返回类别: 教程 上一教程: ASP数据库连接的实现 下一教程: WEB打印设置解决方案四(在ASP中实现网络打印功能) 您可以阅读与"用ASP修改NT登陆密码"相关的教程: · 透过ASP修改NT使用者的密码 · 创建ASP组件修改SERV-U FTP的密码 · 用ASP实现登陆页面控制的源代码 · 利用SMTP和ASP发送CDONTS电子邮件 · 用ASP技术编制隐藏用户密码程序 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
