<% 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"...
[ 查看全文 ]