Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Duda asp

02/11/2007 - 09:50 por Carlos López | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :