Archivo txt

[eurojames]

Espero que alguien me pueda ayudar, estoy haciendo una web con ASP y tengo una pagína en la cual tienes que introducir usuario y password para continuar, me gustaria guardar en un txt, el usuario, password, hora que e conecta, día y su IP, siempre y cuando el usuario sea correcto, si alguien me dice como hacerlo o me pasa algún código será de ayuda

Gracias

[Aston]

Hola, para crear o modficar un archivo de texto puedes utilizar esta función:

Código:

'____________________________________________
Sub ModiArch(cArchi, cCuerpo)
'Crea o modifica el archivo de la noticia
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  Dim oSFile, oTextArch

  Set oSFile = Server.CreateObject("Scripting.FileSystemObject")
  Set oTextArch = oSFile.CreateTextFile (Server.MapPath(cArchi & ".txt"), True)
  oTextArch.WriteLine(cCuerpo)

  Set oSFile = Nothing
  oTextArch.Close: Set oTextArch = Nothing
End Sub

Como puedes ver, sólo debes pasarle la ruta del archivo a crear o modificar y el cuerpo del archivo.

Bien, antes de llamar a esta función deberemos comprobar que tanto usuario como contraseña sean correctos y se hayen en le sistema. (Esta parte la doy por sabida, si no es así te posteo una dirección donde lo tienes todo hecho y explicado con el código completo. Es sumamente sencillo)

Para crear el cuerpo del archivo, sólo tienes que sacar todos los datos que te interesan.

Código:

dFecha = Date()
dHora = Time()
'Si prefieres todo junto...
dFechayHora = Now()
cUser = Request.Form("User")
cPwd = Request.Form("Pwd")
cIP = Request.ServerVariables("REMOTE_ADDR")
cDeDonde = Request.ServerVariables("HTTP_REFERER")

Ahora sólo debes componer la línea del Usuario, separando los datos como quieras...
Por ejemplo:

cBody = dFechayHora & " - " & cUser & " - " & cPwd & " - " & cIP & " - " & cDeDonde

'Y llamamos a la función que crea el archivo:

ModiArch("Usuario_001", cBody)

Esto, con tus retoques, debe funcionarte perfecto, un saludo.

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red en castellano"></a>

[Aston]

Hola, por si lo necesitas te posteo el artículo donde te explican la parte de Restringir el acceso a páginas con ASP.

<a href='ir.asp?http://www.asptutor.com/asp/vart.asp?id=50' target='_blank'>http://www.asptutor.com/asp/vart.asp?id=...</a>

¡Suerte! :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red en castellano"></a>

[eurojames]

Lo he probado y funciona, pero estaría bien que no me machara la linea, es decir, cada vez que se introduce un usuario, me lo pone en la primera linea y solo tengo un registro de usuario, lo que estria bien es hacer un log, tener un historico de toda la gente que se introduce

gracias

[Aston]

Bueno Eurojames, es igual de sencillo que lo anterior.

En vez de usar el método CreateTextFile y crear el archivo nuevo, utiliza la siguiente línea y ¡Problema solucionado! Cada línea que escribas se añadirá al contenido del archivo.

Set oArchivo = oSFile.OpenTextFile(Server.MapPath(&quot;Archivo.t xt&quot;), 8, True)

Ve que estamos utilizando el 8 en el modo de abrir el archivo. Este equivale a ForAppending (Para añadir).

Espero que te solucione tu problema. Un saludo.

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red en castellano"></a>

[eurojames]

Me ha funcionado gracias por todo

[Aston]

:P¡Sabía que te funcionaría, ja ja! Me alegro.

Un saludo, amigo. :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red en castellano"></a>