Las encuestas juegan un papel importante en nuestro sitio web, ya que a través de ellas podemos conocer la opinión de nuestros visitantes sobre algún tema determinado. Este tutorial te enseña a crear un sistema de encuestas para tu web, escrito en el lenguaje ASP.
Este ejemplo muestra como montar un sistemas de encuestas en nuestra web Lo basamos en una bd que contendrá la pregunta y las posibles respuestas a estas, esto nos evitar tocar el código html cada vez que variemos la encuesta. Mantendremos un registro por cada encuesta y un campo en dicho registro indicara cual es la encuesta activa en ese momento. La estructura de la tabla encuestas en la BD Tencuestas es : Nuestra aplicación consta de 2 módulos principales( encuesta.asp y verencuesta.asp) mas un modulo de visualización de todas las encuestas (historico.asp). Además he incluido el código de 2 módulos de mantenimiento, que nos servirán para incluir nuevas encuestas desde la web (crearencuesta.htm y crearencuesta.asp). El uso de estos módulos implica la creación en la bd de una nueva tabla para el almacenamiento de la clave de creación de encuestas. Estructura de la tabla clave en la BD Tencuestas Para mostrar la encuesta en una página lo haremos con un include Lo que nos permite mostrar la encuesta en cualquier página con solo una línea de código Módulos básicos del sistema encuesta.asp <%Set Connae = Server.CreateObject("ADODB.Connection")
set rse=createobject(«ADODB.Recordset»)
<%else verencuesta.asp <% @LCID = 1034 %> <% if request.form(«opcion»)<>«» then select case true case request.form(«opcion»)=0 sqltxt=»update encuestas set «&campo&» = «&campo&»+1 where activa=True» conn.execute sqltxt <%if request.form("opcion")<>«» then%> Muchas gracias por participar en la
<%end if
set rs=createobject(«ADODB.Recordset»)
|
Total de votos: <%=totvotos%>
<%if rs("inicio")<>«» then%>
<%end if%>
<%if rs("fin")<>«» then%>
<%end if%>
Leave A Comment