Foros del Web » Programando para Internet » PHP »

ASP ==> PHP

Estas en el tema de ASP ==> PHP en el foro de PHP en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 21/04/2005, 16:23
Avatar de AJVEvoluzione  
Fecha de Ingreso: agosto-2004
Ubicación: Buenos Aires
Mensajes: 195
Antigüedad: 13 años, 3 meses
Puntos: 1
Exclamación ASP ==> PHP

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.




  #2 (permalink)  
Antiguo 21/04/2005, 16:55
O_O
 
Fecha de Ingreso: enero-2002
Ubicación: Santiago - Chile
Mensajes: 34.417
Antigüedad: 15 años, 11 meses
Puntos: 126
En sitios como www.hotscripts.com tienes cientos de sistemas similares (tanto en PHP, como CGI .. y hasta en ASP .. ) puedes pasarte por allá y probarlos (están organizados por categorías).

Un saludo,
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:53.