¿Cómo agregar un mensaje al tablero de mensajes usando ASP? ¿Cómo agregar y eliminar mensajes en el tablero de mensajes usando ASP? ¡Gracias y que Dios los bendiga! Este es un código de tablero de mensajes simple. Usted mismo debe diseñar la base de datos: lt; htmlgt; - A: enlace, A: visitado {decoración de texto: ninguno; color: #008040} A: decoración de texto: subrayado; color: #ff0000} --gt lt; EQUIV="Tipo de contenido" CONTENT="text/html; charset=gb_2312-80"gt; lt; titlegt; Oferta de función (exp1) dim exp2 exp2=Reemplazar(exp1,"lt;","lt;") exp2=Reemplazar(exp2,"gt;","gt;") exp2=Reemplazar(exp2,"'", "'' ") exp2=Reemplazar(exp2, "'", "''") exp2=Reemplazar(exp2, "'", "''") "''") exp2=Reemplazar(exp2, Chr(13), "lt ;brgt;")Deal=exp2 End Function 'Establece una conexión con la base de datos Set Conn=Server.CreateObject("ADODB.Connection") Connstr=" DBQ=" server.mappath("guestbook.mdb") "";DefaultDir = ;DRIVER={Controlador de Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;;"";ImplicitCommitSync="";FIL=MS Access ImplicitCommitSync=Sí;MaxBufferSize=512;MaxScanRows=8;PageTimeout = 5; SafeTransactions=0; Threads=3; UserCommitSync=Yes; " Conn.Open connstr Si Solicitud("tarea")="insertar" entonces Si Solicitud("xm")=" entonces xm="No lo diré usted" else xm =Solicitud("xm") xm=Oferta(xm) end if Si solicitud("correo electrónico")=" entonces correo electrónico="Aún no" correo electrónico=Oferta(xm)correo electrónico=Oferta(correo electrónico) else correo electrónico= Solicitud("correo electrónico ") finaliza si solicitud("url")=" entonces url="no" else url=Solicitud("url") url=Oferta(url) finaliza si sj = Fecha() sj = sj amp; " amp; hora (Hora()) amp; ":" amp; Minuto(Hora()) Si se solicita
("ly")="" luego Response.write("¡Ingrese un mensaje!") Response.end else ly=Request("ly") ly=Deal(ly) end if sql="INSERT INTO lyb (ip, xm, url, correo electrónico, sj, ly) VALORES ('" sql=sql & Request("REMOTE_ADDR ") & "', '" & xm & "', '" & url & "', '" & correo electrónico & " ', '" & sj & "', '" & ly & "')" conn.execute(sql) finaliza si se establece rs= server.createobject("adodb.recordset ") en caso de error, reanuda el siguiente rs.open "select * de lyb orden por sj DESC", conn, 1, 1 rs.pagesize=15 rs.AbsolutePage = 1 si request("page")lt;gt;" entonces AbsolutePage =Request("page") RowCount =rs. tamaño de página gt; cuerpo topmargin="0" leftmargin="2" text="# 008000"gt; pgt;lt; biggt;lt;biggt;lt;biggt;lt;stronggt; Mensajelt;/stronggt;lt;/biggt;lt;/biggt;lt;/biggt;lt;/ fontgt;lt;/pgt;lt;form MÉTODO=" POST" action="lt;=Solicitud("SCRIPT_NAME")gt;"lt;lt;tipo de entrada="hidden" nombre="tarea" valor="insertar" gt;lt;pgt; Nombre:lt;tipo de entrada= "texto" TAMAÑO="20" NOMBRE="xm"gt;lt;brgt; Correo:lt;entrada TYPE="texto" TAMAÑO="20" NOMBRE="correo electrónico"gt;lt;brgt; input TYPE="texto" TAMAÑO="20" NOMBRE="url"gt;lt;brgt; Mensaje:lt;brgt;lt;textarea ROWS="5" COLS= "60" NOMBRE="ly"gt;lt; /textareagt;lt;/pgt;lt;pgt;lt;input TYPE="Enviar" VALUE="Ingresar libro de visitas" NAME="B1"gt;lt;input TYPE ="reset" VALUE="reescribir" NAME="B2 " lt; pgt; fecha: lt; =rs