WINDOWS2000服务器账号登陆身份验证

<%

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这地方，改成自己的域