欢迎您登陆并使用中国财税咨询中心为您免费提供的资料，交流，学习为一体的平台！

如果您在使用中遇到什么问题，请您不要吝啬，一定要写信给我们！！

Email:Shellapi@126.com 期待您的来信，或指导批语！

帮助内难免有收集的资料，如果侵犯了您的仅力，请您来信告知，我们马上删除或更新处理！

文章搜索--请输入关键词：

<%

userflag=trim(request("userflag"))

oldPwd=trim(request("oldPwd"))

newPwd=trim(request("newPwd"))



'修改内部网和邮箱的密码

adsPath = "LDAP://file/cn=" & userflag & ",cn=users,dc=yulong,dc=com"

Set oo = GetObject("LDAP:")

on error resume next

Set obj = oo.OpenDSObject(adsPath,userflag,oldPwd,0)

if err.Number <> o then

err.clear

%>

<script language="javascript">

alert("用户名或密码错，请重新输入！");

history.go(-1);

</script>

<%

else

'Response.Write "newPwd=" & newPwd

obj.SetPassword newPwd

'Response.Write "<hr>"

Response.Write("<div class=aa>你已经成功修改了网络密码！</div>")

end if

%>





//基本上只需改dc=yulong,dc=com这地方，改成自己的域