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

2024-07-21 02:16:46

字体：大中小

来源：转载

供稿：网友

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

上一篇：一个实现自动求和/合并单元格/排序的DataGrid

下一篇：在datagrid中删除时确定