asp查询ldap
asp如何查询ldap示例demo
<%@ Language=VBScript %>
<%
Option Explicit
Dim con,rs,Com,letter,school
%>
<html>
<head>
<style>
.over { background-color: #FFFF66; cursor: hand}
.out { background-color: #CCCCCC}
</style>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#CCCCCC" >
<%
Set con = Server.CreateObject("ADODB.Connection")
con.provider ="ADsDSOObject"
con.open "Active Directory Provider"
Set Com = CreateObject("ADODB.Command")
Set Com.ActiveConnection = con
Com.CommandText ="select name, sAMAccountname from 'LDAP://curxch1/cn=Recipients,ou=CURACAO,o=Maduro & Curiel's Group'"
Set rs = Com.Execute
%>
<table border="0" cellpadding="0" bgcolor="#CCCCCC">
<%
Do While Not rs.EOF
%>
<tr><td onMouseOver="this.className='over'" onMouseOut="this.className='out'" class="out" valign="middle" onclick="window.open('info.asp?user=<% response.write rs("sAMAccountname")%>','InfoFrame');window.open('emailstart.htm','EmailFrame');"><a><b><font color="#000080" face="Verdana" size="2">
<% response.write rs("Name")%></font></b></a></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
%>
</table>
<%
con.Close
Set rs = Nothing
Set con = Nothing
%>
</body>
</html>
来源：http://hi.baidu.com/stresume/item/ac5e2c36e05bf3d56c15e915
加支付宝好友偷能量挖...
