基于ADSI的NT帐号及Exchange Server帐号申请及验证模块源代码[10]|中文方案文档站(提供各类方案下载,WORD文档下载,范文,案例等)

<td width="80">
<p align="center"><input type="button" value="确定" name="cmdok"></p>
</td>
<td width="80">
<p align="center"><input type="button" value="取消" name="cancel" onclick="javascript:history.back();"></td>
</tr>
<tr>
<td width="92">　</td>
<td width="80">　</td>
<td width="80">　</td>
</tr>
</table>
</div>
</td></tr></table>
</center>
</div></tr></table>
</center>
</div>
</form>
</body>

</html>

b>响应文件chpwd.asp
<html>

<head>
<meta name="microsoft theme" content="mstheme1530 1111, default">
</head>

<body>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="100%" align="center" valign="middle">
<%

' variables
dim rbox

uid=session("sid_uid")
opwd=request.form("opwd")
npwd=request.form("npwd")
cpwd=request.form("cpwd")

if opwd="" then
response.write "请输入旧密码！"
response.end
end if

if npwd="" then
response.write "请输入新密码！"
response.end
end if

if cpwd="" then
response.write "请输入确认密码！"
response.end
end if

if npwd<>cpwd then
response.write "新密码与确认密码不一致！"
response.end
end if

if ucase(opwd)=ucase(npwd) then
response.write "新密码不得与旧密码相同！"
response.end
end if

if len(npwd)<3 then
response.write "新密码长度不得小于3位！"
response.end
end if

set rbox = server.createobject("rbsboxgen.ntusermanager")

' rbox.resetpwd uid,npwd
' rbox.login uid,npwd
rbox.changepwd uid,opwd,npwd

if rbox.isok then
set rbox = nothing
response.write "密码更改成功!"
else
set rbox = nothing
response.write "旧密码输入错误！"
end if
response.end

%>
</td>
</tr>
</table>
</body>
</html>

3.登陆验证(asp):
dim rbox
set rbox = server.createobject("rbsboxgen.ntusermanager")
'以下如果已在dll的初始化事件中设置正确则无须设置,可提高安全性
'rbox.domain="yourdomain"
'rbox.admin="administrator"
'rbox.password="xxxxxx"
'rbox.ntserver="yonrntserver"
'rbox.emailaddress="@xxx.xxx"
'rbox.exchserver="yourexchangeservername"
'rbox.exchsite="yourexchangesitename"
'rbox.exchorganization="yourexchangeorganizationname"

rbox.login name,pass 'name:待验证的用户帐号,pass:用户密码
login=cbool(rbox.isok) '如果rbox.isok为真,验证通过.
set rbox = nothing
if not login then
response.redirect request.servervariables("http_referer")
response.end

基于ADSI的NT帐号及Exchange Server帐号申请及验证模块源代码[10]

[入库：2005年8月18日] [更新：2007年3月24日]