#眉標=Adobe Breeze
#副標=Adobe Breeze 5系列(4)
#大標=企業應用實務
#作者=文／張翰瑋




==程式1		<box>===========
	<cffunction name="ldapauth" access="remote" returntype="any">
		<cfargument name="Ldap_server" type="string" default="LADP Server IP or Domain">	
		<cfargument name="Ldap_root" type="string" default="cn / domain / info ">	
		<cfargument name="Ldap_username" type="string" required="yes">		
		<cfargument name="Ladp_password" type="string" required="yes">		
		<cfargument name="Ldap_port" type="string" default="389">				
		<cfargument name="Ldap_attributes" type="string" default="取出對應的欄位">		
		<cfargument name="Ldap_filter" type="string" default="(&(objectclass=user)(mail=#arguments.Ldap_username#))">	
		<cfset  var Ladp_authQuery = QueryNew("對應的欄位") />
		<cfset ldap_auth.flag = false>
		<cfset ldap_auth.password = "">
		
		<cftry>
				<cfldap action="QUERY" name="Ladp_authQuery" attributes="#arguments.Ldap_attributes#"
	       		 start="#arguments.Ldap_root#" filter="#arguments.Ldap_filter#" server="#arguments.Ldap_server#"
	       		 username="#arguments.Ldap_username#"  password="#arguments.Ladp_password#">
			<cfcatch type="any">
				<cfset ldap_auth.flag = false>
				<cfset ldap_auth.password = "">
			</cfcatch>
		</cftry>
		<cfif IsQuery(Ladp_authQuery)>
			<cfif ( Ladp_authQuery.recordcount  lte 0 ) >
				<cfset ldap_auth.flag = false>
				<cfset ldap_auth.password = "">
			<cfelse>
				<cfset ldap_auth.flag = true>
				<cfset ldap_auth.password = Ladp_authQuery.[ 對應的欄位 ]>
			</cfif>
		</cfif>
		<cfreturn ldap_auth>
	</cffunction>	
==<end>==============