ASP调用域用户验证

来源：互联网发布：数据漏斗模型编辑：程序博客网时间：2024/05/22 09:41

http://dev.firnow.com/course/4_webprogram/webjis/20100710/430491.html

第一步，域用户验证，用户登录界面。logon.asp
<html>
<body>
<table width="600" height="200" border="0">
<tr><td>
<form   action="chkusr.asp"   method="post">
    <div ><span class="STYLE1">域用户:
        <input width="145"   name=id   type=text value="<%=request.cookies("id")%>">
          <br>
          <br>
      域密码:
      <input width="150"   type=password   name=pwd>
      <br>
      <br>
      登录域:
      <input width="150"   type=password   name=domain>
      <br>
      <br>
    </span>
    <input   name=sub   type=submit   value="提交">
    </div>
</form>
</td>
</tr>
</table>
</body>
</html>
第二步，用户验证。chkusr.asp
<html>
<body>
<script   language=javascript   RUNAT="SERVER">
function   logonDoADLogon(p_strDomain,   p_strUserID,   p_strPWD)
{               //return   true;
var   f_oIADS,   f_oUser,   f_oContainer;
var   f_blnRet   =   true;

try
{
var   f_oIADS   =   GetObject('WinNT:');
f_oContainer   =   f_oIADS.OpenDSObject('WinNT://'   +   p_strDomain,   p_strDomain   +   "//"   +   p_strUserID,   p_strPWD,   0);

delete   f_oContainer;
delete   f_oIADS;
}
catch   (e)
{
return   false;
}

try
{
var   objUser   =   GetObject("WinNT://"   +   p_strDomain   +   "/"   +   p_strUserID   );
delete   objUser;
}
catch(e){
return   false;
}

return   true;
}
</script>

<%
id=trim(request("id"))
Response.Cookies("id")=id
pwd=trim(request("pwd"))
domain=trim(request("domain"))
if     logonDoADLogon(domain,id,pwd)   then

     %>
<script language="javascript">
   window.location.href="12.asp"
</script>
<%
else %>
<script language="javascript">
   alert("用户名或密码错，请重新输入！");
   window.history.back(-1);
</script>
<%end   if%>
</body>
</html>
判断用户与密码是否正确，如果正确页面跳转到12.asp，如果错误，提示错误信息，确定后，回到登录界面。
文章出处：飞诺网(www.firnow.com):http://dev.firnow.com/course/4_webprogram/webjis/20100710/430491.html