Generar Public Function con un trozo de código

[Canal_on]

Hola a tod@s; a ver si podeis ayudarme...

Buscando por los foros encontré un código asp para hacer login validando contra LDAP. La página desde la que se ejecuta el código funciona perfectamente...

Para poderlo reutilizar en otras aplicaciones, quiero meter dicho codigo en una funcion de ASP, y llamarla cuando la necesite desde otras páginas. Tengo el típicofichero 'funciones.asp' con varias de ellas...

Pero algo debo hacer mal al convertir el código mencionado en una 'public function', porque cuando la llamo desde mi página, la función da siempre valor '0' (es decir, valor de incorrecto).

el código originario -que ya digo que funciona cuando va sólo en una página propia- es el siguiente: (quito la parte html, y dejo solo los que va entre <% %>)

Código asp:

<% 
 
strUsername = "MiUser"
strpassword = "Mipassw"
domainname = "MIDominio"
 
on error resume next
 
Set objDomain = GetObject ("GC://rootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.provider ="ADsDSOObject"
objConnection.Properties("User ID") = domainname+"\" + strUsername
objConnection.Properties("Password") = strpassword
objConnection.open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText ="select cn FROM 'GC://"+objADsPath+"' where sAMAccountname='"+strUsername+"'"
Set objRS = objCommand.Execute
 
If Err.Number <> 0 Then
ldap = 0
Response.write("Usuario o contraseña incorrecto")
Else
ldap = 1
Response.write("Usuario o contraseña logado correctamente")
End If
RESPONSE.WRITE("<P>")& LDAP &"<p>"
 
%>
 

Pues bien, con este código, reescibo la siguiente función... que no funciona (y no funciona aunque le ponga los valores 'a pedal' y no sacados del form...):

Código asp:

PUBLIC FUNCTION ValidaLdap(strUsername,strpassword,domainname)
 
on error resume next
 
Set objDomain = GetObject ("GC://rootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.provider ="ADsDSOObject"
objConnection.Properties("User ID") = domainname+"\" + strUsername
objConnection.Properties("Password") = strpassword
objConnection.open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText ="select cn FROM 'GC://"+objADsPath+"' where sAMAccountname='"+strUsername+"'"
Set objRS = objCommand.Execute
 
If Err.Number <> 0 Then
ldap = "0"
'Response.write("Usuario o contraseña incorrecto")
Else
ldap = "1"
'Response.write("Usuario o contraseña logado correctamente")
End If
'RESPONSE.WRITE("<P>")& LDAP &"<p>"
 
ValidaLdap=ldap
 
end function
 

Al incio de mi página donde uso la función va el include, ya para llamarla hago un

response.write "pasa: "&ValidaLdap(MiUser,MiPassw,MiDominio)

en donde, todoas las variables están perfectamente válidas...

y no se que hago mal...

Gracias por contestar!!!

[Wasper]

Puede ser porque el valor que mandas en ldap es:

Código ASP:

If Err.Number <> 0 Then
ldap = 0
Response.write("Usuario o contraseña incorrecto")
Else
ldap = 1
 

y en el otro codigo lo mandas con ""

¿Puede ser? Compruebalo...

[Canal_on]

Hola!
Gracias por contestar...
Los dos response.write que hay en código de la función están desactivados (comentados): los dejé en el código para acordarme de que 0=incorrecto y 1=correcto.

En el otro código (la página que llama a la función) la llamada a la función es:

Código ASP:

<%
Dim Logado
Dim User
Dim Passw
Dim Dominio
 
User= "yomismo"
Passw= "loquesea"
Dominio= "midominioLdap"
 
Logado= ValidaLdap(user,Passw,Dominio)
 
If logado =1 then
 
response.write("LOgin OK")
 
else
 
Response.write("Login Incorrecto")
 
end if
 
%>
 

por supuesto los tres valores (User, Pass y Dominio) son correctos: cuando uso el código originario de la página de donde la saqué , hace login correcto...

En dicho código, 'ldap' es una variable privada, que se usa para calcular si el login es correcto... Yo la convierto en variable pública en la última linea de la función:

'validaldap = ldap'

pero no funciona...



Logado=

Iniciado por Wasper

Puede ser porque el valor que mandas en ldap es:

Código ASP:

If Err.Number <> 0 Then
ldap = 0
Response.write("Usuario o contraseña incorrecto")
Else
ldap = 1
 

y en el otro codigo lo mandas con ""

¿Puede ser? Compruebalo...

[Myakire]

Cómo que no funciona?

Claro que lo hace

Código ASP:

<&#37;
FUNCTION ValidaLdap(strUsername,strpassword,domainname)
 
Set objDomain = GetObject ("GC://rootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.provider ="ADsDSOObject"
objConnection.Properties("User ID") = domainname+"\" + strUsername
objConnection.Properties("Password") = strpassword
objConnection.open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText ="select cn FROM 'GC://"+objADsPath+"' where sAMAccountname='"+strUsername+"'"
 
on error resume next
 
Set objRS = objCommand.Execute
 
If Err.Number <> 0 Then
ldap = 0
Else
ldap = 1
End If
ValidaLdap = ldap
 
End Function
 
if Request("login") <> "" Then
   if ValidaLdap(Request("login"), Request("password"), Request("dominio")) Then
        response.write "Correcto"
     else
        response.write "Incorrecto"
   end if
End if
 
%>
 
 
<html>
<body>
<form method=post>
  Login:&nbsp; <input type="text" name="login"    value=""><br>
    Password:&nbsp; <input type="password" name="password" value=""><br>
    Dominio:&nbsp; <input type="text" name="dominio" value="">
    <input type="submit" name="btn" value="Login">
</form>
</body>
</html>
 

[Canal_on]

Ok, gracias!!

mi manera de ejecutar la función no debe de ser correcta... pero ya veo que no es problema de la función en si misma

probaré a cambiar mi página llamando a la función de otra forma

reitero gracias!


sl2

Iniciado por Myakire

Cómo que no funciona?

Claro que lo hace

Código ASP:

<%
FUNCTION ValidaLdap(strUsername,strpassword,domainname)
 
Set objDomain = GetObject ("GC://rootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.provider ="ADsDSOObject"
objConnection.Properties("User ID") = domainname+"\" + strUsername
objConnection.Properties("Password") = strpassword
objConnection.open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText ="select cn FROM 'GC://"+objADsPath+"' where sAMAccountname='"+strUsername+"'"
 
on error resume next
 
Set objRS = objCommand.Execute
 
If Err.Number <> 0 Then
ldap = 0
Else
ldap = 1
End If
ValidaLdap = ldap
 
End Function
 
if Request("login") <> "" Then
   if ValidaLdap(Request("login"), Request("password"), Request("dominio")) Then
        response.write "Correcto"
     else
        response.write "Incorrecto"
   end if
End if
 
%>
 
 
<html>
<body>
<form method=post>
  Login:&nbsp; <input type="text" name="login"    value=""><br>
    Password:&nbsp; <input type="password" name="password" value=""><br>
    Dominio:&nbsp; <input type="text" name="dominio" value="">
    <input type="submit" name="btn" value="Login">
</form>
</body>
</html>