
24/07/2003, 12:41
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
Pues lo mas sencillo es enviarla por un formulario a otro asp que contenga este código, ahora, para hacer más limpio el proceso puedes hacer una Sub en un archivo include y mediante un formulario mandar un parámetro a esta misma página, si el request de esa variable es generar el archivo entonces se va a este sub...e incluso se me ocurre que puedes enviar el nombre del archivo que quieres crear
'-----------------Archivo mis_sub.asp---------------------------------
Sub crear(fichero)
'Crear Ficheros verificando su existencia para no borrarlo si ya esta creado.
'Crear Ficheros
set FSO = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists (Server.MapPath(fichero)) Then
response.write("El fichero ya existe")
else
'set oFich = FSO.CreateTextFile ( Server.MapPath("C:\pozo2\" & fichero), True )
set oFich = FSO.CreateTextFile (("C:\arcims\website\exe-pozos\pozo\" & fichero), True )
'oFich.WriteLine ("tak-1")
oFich.WriteLine (pozo)
'response.write("Se ha creado el fichero & fichero")
end if
End Sub
'---------------------------------------------------------------------------------
'------------------Archivo envio.asp------------------------------------------
<!--#include file= "mis_sub.asp"-->
<form action=envio.asp method=post>
Nombre: <input type=hidden name=generar value="1">
<input type=text name=nombre_archivo value=""><br>
<input type=submit value=Enviar>
</form>
If trim(request.form("generar")) <> "" Then
nombre_archivo= trim(request.form("nombre_archivo"))
crear(nombre_archivo)
End If
'----------------------------------------------------------------------------------
Salu2,
__________________ "El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |