HOLA!
Antes tenía un message board en ASP pero no funciona
ahora en este servidor porque es en Linux
el programa constaba de dos partes una el ASP (001.asp) y otra un archivo TXT (001.txt) donde guardaba el board
Cómo puedo hacer ahora? conocen algo similar en PHP o CGI? porque no solo lo usaba para
el board este procedimiento sino para que puedan dejar comentarios en unas fotos
ARCHIVO: ( 001.asp )
<% @LANGUAGE="VBSCRIPT"%>
<%
Dim CONST_LIBRO, oFSO, f, archivo, accion, contenido
CONST_LIBRO="001.txt"
set oFSO=Server.CreateObject("Scripting.FileSystemObje ct")
accion=Trim (CStr(Request.QueryString("a")))
select case accion
case "guardar"
Guardar
MostrarLibro
MostrarFormulario
case else
MostrarLibro
MostrarFormulario
end select
set oFSO=nothing
Sub MostrarLibro
set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) )
set f=archivo.OpenAsTextStream
contenido=f.ReadAll
f.Close
set f=nothing
set archivo=nothing
Response.Write(contenido)
End Sub 'MostrarLibro
Sub Guardar
Dim nombre, mail, mensaje, fecha, archivo, f
fecha=Day(Now())&"/"&Month(Now())&"/"&Year(Now())
nombre=Trim(CStr(Request.Form("nombre")))
mail=CStr(Request.Form("mail"))
mensaje=CStr(Request.Form("mensaje"))
ip=CStr(Request.servervariables("remote_host"))
' 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("<hr noshade>")
f.WriteLine("<b>"&nombre&" ("&mail&")</b> escribió el "&fecha&":<br>")
f.WriteLine(mensaje)
f.WriteLine("<br><br>")
f.WriteLine("mensaje: "&ip&"")
'Cierro el fichero
f.Close
set f=nothing
set archivo=nothing
Response.Write("<small>Se ha añadido con éxito tu comentario</small>")
end if
End Sub 'Guardar
Sub MostrarFormulario
%>
<br><br><br><hr size=2>
<TABLE BORDER="0" ALIGN="center">
<FORM NAME="Libro" METHOD="post" ACTION="001.asp?a=guardar">
<TR>
<TD>Tu nombre:</TD>
<TD><INPUT TYPE="text" style="width: 170px; height: 18px; font-family: Arial, Verdana; font-size: 8pt; font-weight: bold; background-image: url('forml.JPG'); color: rgb(255,255,255); border: 2px solid #28BEEB" NAME="nombre"></TD>
<TR>
<TD>E-mail:</TD>
<TD><INPUT TYPE="text" style="width: 170px; height: 18px; font-family: Arial, Verdana; font-size: 8pt; font-weight: bold; background-image: url('forml.JPG'); color: rgb(255,255,255); border: 1px solid #28BEEB" NAME="mail"></TD>
<TR>
<TD>Mensaje:</TD>
<TD><TEXTAREA ROWS="5" COLS="30" style="width: 270px; height: 100px; font-family: Arial, Verdana; font-size: 8pt; font-weight: bold; background-color: rgb(128,128,128); color: #FFFFFF; border: 1px solid #28BEEB" WRAP="virtual" NAME="mensaje"></TEXTAREA></TD>
<TR>
<TD COLSPAN="2">
<center><INPUT TYPE="submit" VALUE="Escribir"><INPUT TYPE="reset" VALUE="Limpiar">
</TD>
</TABLE>
</FORM>
<%
End Sub 'MostrarFormulario
%>
ARCHIVO: ( 001.txt )
<head>
<title>-::::::: Mi web ::::::-title>
<style>
<!--
BODY{
scrollbar-face-color:#333333;
scrollbar-arrow-color:#007DAA;
scrollbar-track-color:#000000;
scrollbar-shadow-color:#007DAA;
scrollbar-highlight-color:#FFFFFF;
scrollbar-3dlight-color:#28BEEB;
scrollbar-darkshadow-Color:#363636;
margin-top: 0px;
margin-left: 0px;
margin-right: 0px;
}
-->
</style>
</head>
<body bgcolor="#000000" text="#FFFFFF">
<p align="center"><img src="001.JPG"
width="640" height="480"></p>
<center>
<i><b>Por favor deja tu opinión sobre esta foto, completando<br>el formulario al final de esta página</b></i>
</center>
<hr noshade>
<b>Augusto(
[email protected])</b> escribió el 27/12/2004:<br>
Espero que disfruten la página de comentarios.
