SAILOR MOON VIDEOS
Sailor Moon R - Ending
Quieres poner este video en tu pagina
Ingresalo ya (Prohibido Editar el Codigo)
Te Gusto el Video Dejanos un comentario!!
<% @LANGUAGE="VBSCRIPT"%>
<%
'Libro de visitas
'Carlos de la Orden Dijs
'webmaster@aspfacil.com
'El libro se guarda en el archivo VISITAS.TXT en el mismo directorio en el que se encuentra
'esta página. Para cambiar el nombre de archivo, modificar la variable CONST_LIBRO.
' archivo es el manejador del fichero, y f será el objeto que utilicemos para leer el contenido.
Dim CONST_LIBRO, oFSO, f, archivo, accion, contenido
CONST_LIBRO="endingR.txt"
' Creamos el objeto FileSystemObject
set oFSO=Server.CreateObject("Scripting.FileSystemObject")
accion=Trim (CStr(Request.QueryString("a")))
select case accion
case "guardar"
Guardar
MostrarLibro
MostrarFormulario
case else
MostrarLibro
MostrarFormulario
end select
set oFSO=nothing
'===========================================================================================
' PROCEDIMIENTOS
'===========================================================================================
Sub MostrarLibro
'Abre el fichero y muestra el contenido en la página
'Obtiene un puntero al archivo del libro de visitas
set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) )
'Abro el archivo como un flujo de texto
set f=archivo.OpenAsTextStream
'Leemos el archivo entero
contenido=f.ReadAll
f.Close
set f=nothing
set archivo=nothing
'y lo imprimimos
Response.Write(contenido)
End Sub 'MostrarLibro
'===========================================================================================
Sub Guardar
'Guarda un nuevo comentario en el libro
Dim nombre, mail, mensaje, fecha, archivo, f
fecha=Day(Now())&"/"&Month(Now())&"/"&Year(Now())
'Con Trim eliminamos los espacios en blanco a la derecha y a la izquierda
nombre=Trim(CStr(Request.Form("nombre")))
mail=CStr(Request.Form("mail"))
mensaje=CStr(Request.Form("mensaje"))
' No queremos comentarios anónimos o vacíos :-)
if nombre <> "" and mensaje <>"" then
set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) )
'Abro el archivo como un flujo de texto; 8: ForAppending, añadimos al final
set f=archivo.OpenAsTextStream(8)
f.WriteLine("
") f.WriteLine(""&nombre&" ("&mail&") escribió el "&fecha&":
") f.WriteLine(mensaje) 'Cierro el fichero f.Close set f=nothing set archivo=nothing Response.Write("Se ha añadido con éxito tu comentario") end if End Sub 'Guardar '=========================================================================================== Sub MostrarFormulario ' Presenta el formulario para añadir un comentario al libro %> <% End Sub 'MostrarFormulario ' Libro de visitas por Carlos de la Orden Dijs Octubre 2000 ' Usalo para lo que quieras! ;) %>
") f.WriteLine(""&nombre&" ("&mail&") escribió el "&fecha&":
") f.WriteLine(mensaje) 'Cierro el fichero f.Close set f=nothing set archivo=nothing Response.Write("Se ha añadido con éxito tu comentario") end if End Sub 'Guardar '=========================================================================================== Sub MostrarFormulario ' Presenta el formulario para añadir un comentario al libro %> <% End Sub 'MostrarFormulario ' Libro de visitas por Carlos de la Orden Dijs Octubre 2000 ' Usalo para lo que quieras! ;) %>