Duda asp

02/11/2007 - 09:50 por Carlos López | Informe spam

Hola

Tengo una problema a la hora de crear un sencillo login en asp y es que todo
el sistema de login lo creo sin problemas , lo que me ocurre es que quiero
que cada persona al logearse accedan a un sistema ftp y claro no se como
puedo hacerlos.

Me explico.

Tengo un servidor ftp y quiero que cada persona al meter su nombre de
usuario y contraseña vaya al sitio correcto ( redireccionar ese usuario a
una pagina ftp )

He conseguido crearlo de una manera pero solo me direcciona a paginas que
esten dentro del servidor.

A ver si me podeis hechar una mano

Gracias

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Carlos López

02/11/2007 - 10:13 | Informe spam

Hola

Este es el codigo que utilizo:

<%@ Language = "VBScript" %>
<%
Option Explicit
Response.Buffer = True
%>
<html>
<head><title>Login Page</title>
</head>
<body bgcolor="gray">
<%
If Request.Form("action") <> "validate_login" Then
%>
<form method="post">
<input type="hidden" name="action" value="validate_login" />
<table border="0">
<tr>
<td align="right">Login:</td>
<td><input type="text" name="login" /></td>
</tr>
<tr>
<td align="right">Password:</td>
<td><input type="password" name="password" /></td>
</tr>
<tr>
<td align="right"></TD>
<td><input type="submit" VALUE="Login" /></td>
</tr>
</table>
</form>

<%
Else
Dim cnnLogin
Dim rstLogin
Dim strSQL
Dim strUsername, strPassword, strURL

strUsername = Request.Form("login")
strPassword = Request.Form("password")

If Len(strUsername) > 25 Or Len(strPassword) > 25 Then
strUsername = ""
strPassword = ""
Else
strUsername = Replace(strUsername, "'", "''")
strPassword = Replace(strPassword, "'", "''")
End If

strSQL = "SELECT * FROM tblLoginInfo " _
& "WHERE username='" & strUsername & "' " _
& "AND password='" & strPassword & "';"

Set cnnLogin = Server.CreateObject("ADODB.Connection")
cnnLogin.Open("DRIVER={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("login.mdb"))

Set rstLogin = cnnLogin.Execute(strSQL)

If rstLogin.EOF Then
Session("username") = ""
strURL = ""
%>
<p>
<font size="4" face="arial,helvetica"><strong>
Login Failed - Please verify username and password.
</strong></font>
</p>
<p>
<a href="login_db_nav.asp">Try Again</a>
</p>
<%
'Response.End
Else
Session("username") = rstLogin.Fields("username").Value
strURL = rstLogin.Fields("destination").Value

Response.Redirect ("ftp://" & strusername & ":" & strpassword & "@" &
strURL)
End If

' Clean Up
rstLogin.Close
Set rstLogin = Nothing
cnnLogin.Close
Set cnnLogin = Nothing
End If
%>
</body>
</html>

Despues tengo una base la cual consta de:

Usuario
Password
Url

A ver si me podeis ayudar

Gracias

"Carlos López" escribió en el mensaje
news:

Hola

Tengo una problema a la hora de crear un sencillo login en asp y es que
todo el sistema de login lo creo sin problemas , lo que me ocurre es que
quiero que cada persona al logearse accedan a un sistema ftp y claro no se
como puedo hacerlos.

Me explico.

Tengo un servidor ftp y quiero que cada persona al meter su nombre de
usuario y contraseña vaya al sitio correcto ( redireccionar ese usuario a
una pagina ftp )

He conseguido crearlo de una manera pero solo me direcciona a paginas que
esten dentro del servidor.

A ver si me podeis hechar una mano

Gracias

Responder a este mensaje

#2 Telerín

02/11/2007 - 10:32 | Informe spam

Se supone que todos los usuarios pueden acceder a la cuenta FTP con sus
claves, o sea, tienen permisos ¿no?

"Carlos López" escribió en el mensaje
news:

Hola

Este es el codigo que utilizo:

<%@ Language = "VBScript" %>
<%
Option Explicit
Response.Buffer = True
%>
<html>
<head><title>Login Page</title>
</head>
<body bgcolor="gray">
<%
If Request.Form("action") <> "validate_login" Then
%>
<form method="post">
<input type="hidden" name="action" value="validate_login" />
<table border="0">
<tr>
<td align="right">Login:</td>
<td><input type="text" name="login" /></td>
</tr>
<tr>
<td align="right">Password:</td>
<td><input type="password" name="password" /></td>
</tr>
<tr>
<td align="right"></TD>
<td><input type="submit" VALUE="Login" /></td>
</tr>
</table>
</form>

<%
Else
Dim cnnLogin
Dim rstLogin
Dim strSQL
Dim strUsername, strPassword, strURL

strUsername = Request.Form("login")
strPassword = Request.Form("password")

If Len(strUsername) > 25 Or Len(strPassword) > 25 Then
strUsername = ""
strPassword = ""
Else
strUsername = Replace(strUsername, "'", "''")
strPassword = Replace(strPassword, "'", "''")
End If

strSQL = "SELECT * FROM tblLoginInfo " _
& "WHERE username='" & strUsername & "' " _
& "AND password='" & strPassword & "';"

Set cnnLogin = Server.CreateObject("ADODB.Connection")
cnnLogin.Open("DRIVER={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("login.mdb"))

Set rstLogin = cnnLogin.Execute(strSQL)

If rstLogin.EOF Then
Session("username") = ""
strURL = ""
%>
<p>
<font size="4" face="arial,helvetica"><strong>
Login Failed - Please verify username and password.
</strong></font>
</p>
<p>
<a href="login_db_nav.asp">Try Again</a>
</p>
<%
'Response.End
Else
Session("username") = rstLogin.Fields("username").Value
strURL = rstLogin.Fields("destination").Value

Response.Redirect ("ftp://" & strusername & ":" & strpassword & "@" &
strURL)
End If

' Clean Up
rstLogin.Close
Set rstLogin = Nothing
cnnLogin.Close
Set cnnLogin = Nothing
End If
%>
</body>
</html>

Despues tengo una base la cual consta de:

Usuario
Password
Url

A ver si me podeis ayudar

Gracias

"Carlos López" escribió en el mensaje
news:
> Hola
>
> Tengo una problema a la hora de crear un sencillo login en asp y es que
> todo el sistema de login lo creo sin problemas , lo que me ocurre es que
> quiero que cada persona al logearse accedan a un sistema ftp y claro no

> como puedo hacerlos.
>
> Me explico.
>
> Tengo un servidor ftp y quiero que cada persona al meter su nombre de
> usuario y contraseña vaya al sitio correcto ( redireccionar ese usuario

> una pagina ftp )
>
> He conseguido crearlo de una manera pero solo me direcciona a paginas

que

> esten dentro del servidor.
>
> A ver si me podeis hechar una mano
>
>
>
> Gracias
>

Responder a este mensaje

#3 Carlos López

02/11/2007 - 10:59 | Informe spam

Si todos tienen permisos.

He conseguido que el direccionamiento lo haga. pero al dirigirme a la pagina
ftp me pone pagina principal del dominio ftp y no se ve nada. Tendria que
salir todas la carpetas que estan relacionadas con este usuario ftp.

Si pongo la direccion a mano en el navegador funciona perfectamente (
ejemplo: ftp://carlos:) y si la pongo a traves de la
pagina de usuario y contraseña solo me direcciona a ftp://www.dominio.com y
no me sale nada.

A ver si me podeis ayudar

Un saludo

"Telerín" escribió en el mensaje
news:

Se supone que todos los usuarios pueden acceder a la cuenta FTP con sus
claves, o sea, tienen permisos ¿no?

"Carlos López" escribió en el mensaje
news:

Hola

Este es el codigo que utilizo:

<%@ Language = "VBScript" %>
<%
Option Explicit
Response.Buffer = True
%>
<html>
<head><title>Login Page</title>
</head>
<body bgcolor="gray">
<%
If Request.Form("action") <> "validate_login" Then
%>
<form method="post">
<input type="hidden" name="action" value="validate_login" />
<table border="0">
<tr>
<td align="right">Login:</td>
<td><input type="text" name="login" /></td>
</tr>
<tr>
<td align="right">Password:</td>
<td><input type="password" name="password" /></td>
</tr>
<tr>
<td align="right"></TD>
<td><input type="submit" VALUE="Login" /></td>
</tr>
</table>
</form>

<%
Else
Dim cnnLogin
Dim rstLogin
Dim strSQL
Dim strUsername, strPassword, strURL

strUsername = Request.Form("login")
strPassword = Request.Form("password")

If Len(strUsername) > 25 Or Len(strPassword) > 25 Then
strUsername = ""
strPassword = ""
Else
strUsername = Replace(strUsername, "'", "''")
strPassword = Replace(strPassword, "'", "''")
End If

strSQL = "SELECT * FROM tblLoginInfo " _
& "WHERE username='" & strUsername & "' " _
& "AND password='" & strPassword & "';"

Set cnnLogin = Server.CreateObject("ADODB.Connection")
cnnLogin.Open("DRIVER={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("login.mdb"))

Set rstLogin = cnnLogin.Execute(strSQL)

If rstLogin.EOF Then
Session("username") = ""
strURL = ""
%>
<p>
<font size="4" face="arial,helvetica"><strong>
Login Failed - Please verify username and password.
</strong></font>
</p>
<p>
<a href="login_db_nav.asp">Try Again</a>
</p>
<%
'Response.End
Else
Session("username") = rstLogin.Fields("username").Value
strURL = rstLogin.Fields("destination").Value

Response.Redirect ("ftp://" & strusername & ":" & strpassword & "@" &
strURL)
End If

' Clean Up
rstLogin.Close
Set rstLogin = Nothing
cnnLogin.Close
Set cnnLogin = Nothing
End If
%>
</body>
</html>

Despues tengo una base la cual consta de:

Usuario
Password
Url

A ver si me podeis ayudar

Gracias

"Carlos López" escribió en el mensaje
news:
> Hola
>
> Tengo una problema a la hora de crear un sencillo login en asp y es que
> todo el sistema de login lo creo sin problemas , lo que me ocurre es
> que
> quiero que cada persona al logearse accedan a un sistema ftp y claro no

se

> como puedo hacerlos.
>
> Me explico.
>
> Tengo un servidor ftp y quiero que cada persona al meter su nombre de
> usuario y contraseña vaya al sitio correcto ( redireccionar ese usuario

a

> una pagina ftp )
>
> He conseguido crearlo de una manera pero solo me direcciona a paginas

que

> esten dentro del servidor.
>
> A ver si me podeis hechar una mano
>
>
>
> Gracias
>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida