但现在有个问题就是,这个代码是客户段执行的,也就是说如果要执行那么每个客户端必须打补丁,会有很多麻烦的。
这个可以放到服务器端执行吗 ? 改写成ASP代码,我改了一下,但执行的时候还是出来登录对话框,不知道怎么解决!
<%
dim Location1,auth
Location1="
http://172.18.1.205/exchange" '定义你的exchange 2000 server OWA路径
set auth = CreateObject("msxml2.xmlhttp") '创建msxml2.xmlhttp对象
auth.open "GET",Location1,false,"user","pwd"
auth.send()
if auth.status=200 then
response.Redirect(Location1)
elseif auth.status=401 then
response.write "用户无效或密码错误。"
else
response.write "对不起,服务器发生错误,请稍后再试!"
end if
%>