ASPTutor.com Un sistema de encuestas

Demo Tienda Virtual Tutorcar

Navegacion->Inicio | Active Server Pages

La web de los recursos y ejemplos de asp

Alojado en:

urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Postales virtuales

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Descarga del tutorial de ASP

Un Contador de visitas

Combobox enlazados con asp

Codigo de un Libro de visitas(V)

Ejemplos de objeto Response

El Objeto Error

Pagina en obras

Distintos formatos de Fecha

El Objeto TextStream

El Objeto FSO

Enlaces recomendados

Mi Blog de Fotografía

Paisajes matritenses

Sakura Reiki, Técnica metamórfica y Quiromasaje

Hosting gratis

web amigas

Tutorial ASP

Un sistema de encuestas
Este articulo ha sido leído 90.432 veces

Un sistema de encuestas

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. el aspecto seria el que podeis ver en la página principal de www.asptutor.com

Módulos básicos del sistema

encuesta.asp

<%Set Connae = Server.CreateObject("ADODB.Connection") Connae.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/xxxxx/Tencuestas.mdb")) set rse=createobject("ADODB.Recordset") sqltxt="SELECT * from encuestas where activa=true" rse.open sqltxt,connae if not rse.EOF then %> <div align="center"> <center> <table border="1" width="150" bgcolor="#C0C0C0" bordercolor="#0000FF"> <tr> <td width="100%"> <form method="POST" action="encuestas/verencuesta.asp" target="_blank"> <table border="0" width="100%"> <tr> <td width="100%" bgcolor="#0000FF"> <p align="center"><font face="Verdana" size="1" color="#00FFFF"><b><i>Encuesta del mes</i></b></font></td> </tr> <tr> <td width="100%"> <p align="center"><font face="Verdana" size="1"><b><%=rse("pregunta")%></b></font></td> </tr> <%for i = 0 to rse("nopciones")-1 step 1 %> <tr> <td width="100%"><input type="radio" value="<%=i%>" name="opcion" checked> <font face="Verdana" size="1"><%=rse(i)%></font></td> </tr> <%next rse.close%> </table> <p align="center"> <input border="0" src="../images/opinar.gif" name="I1" type="image"></p> </form> </center> <p align="center"><a href="encuestas/historico.asp" target="_blank"><img border="0" src="images/ir.gif" alt="Historico de encuestas"></a></p> </td> </tr> </table> </div> <%else rse.close end if connae.close set connae=nothing %>

verencuesta.asp

<% @LCID = 1034 %>
<%response.expires=-1000%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/xxxxx/Tencuestas.mdb"))

if request.form("opcion")<>"" then

select case true

case request.form("opcion")=0
 	  campo="r1"
	case request.form("opcion")=1
		campo="r2"
	case request.form("opcion")=2
   		campo="r3"
	case request.form("opcion")=3
   		campo="r4"
	end select

sqltxt="update encuestas set "&campo&" = "&campo&"+1 where activa=True"
	
	conn.execute sqltxt
end if
%>

<html>

<head>

<title>Las encuestas de AspTutor</title>
</head>

<body>
<%if request.form("opcion")<>"" then%>
<p align="center"><font color="#FF0000"><b><font face="Verdana" size="1" color="#FF0000">Muchas gracias por participar en la
encuesta</font><br>
</b></font><br>

<%end if
dim colores(3)
colores(0)="red"
colores(1)="blue"
colores(2)="green"
colores(3)="black"
tamatabla=400  'tamaño de la tabla

set rs=createobject("ADODB.Recordset")
sqltxt="SELECT  * from encuestas where activa=true"
rs.open sqltxt,conn
if not rs.EOF then
%>

<div align="center">
  <center>
  <table border="1" width="<%=tamatabla%>" bgcolor="#C0C0C0" bordercolor="#0000FF">
    <tr>
      <td width="<%=tamatabla%>" bgcolor="#0000FF">
        <p align="center"><font color="#FFFFFF" face="Verdana" size="1"><b><%=rs("pregunta")%></b></font></td>
    </tr>
    <tr>
      <td width="<%=tamatabla%>">
      
        <table border="0" width="<%=tamatabla%>">
         <%totvotos=rs("r1")+rs("r2")+rs("r3")+rs("r4")
         if totvotos< 1 then totvotos=1
         for i = 0 to rs("nopciones")-1 step 1	%>
         <%porcentaje=formatnumber(rs(i+4)*100/totvotos,2)%>
          <tr>
           <td width="<%=tamatabla*30/100%>" valign="top"><font face="Verdana" size="1"><b><%=rs(i)%></b></font><br>
           <font face="Verdana" color="#FFFFFF" size="1"><b><%=porcentaje%>%</b></font></td>       
                
            <td width="<%=tamatabla*70/100%>">
              
              <table border="0" width="<%=round(porcentaje)%>%" bgcolor="<%=colores(i)%>">
                <tr>  
                    <td width="100%">      
               </td>
                </tr>
              </table>
            </td>
          </tr> 
          <%next
            
%>
        </table>

</td>
    </tr>
    <tr>
      <td width="300">
        <p align="center"><font face="Verdana" size="1"><b>Total de  votos: <font color="#FF0000"><%=totvotos%></font> </b></font></p>
      </td>
    </tr>
    <%if rs("inicio")<>"" then%>

<tr>
      <td width="300">
        <font face="Verdana" size="1">Fecha de inicio: <%=rs("inicio")%></font>
      </td>
    </tr><%end if%>

<%if rs("fin")<>"" then%> 
    <tr>
      <td width="300">
        <font face="Verdana" size="1">Fecha de cierre: <%=formatdatetime(rs("fin"),2)%></font>
      </td>
    </tr>
    <%end if%>
  </table>
  </center>
</div>
<%rs.close
set conn = nothing
end if%>
<p align="center"><font face="Verdana" size="1"><a href="javascript:close();">Cerrar
ventana</a></font></p>
<p align="center"><font face="Verdana" size="1"><a href="historico.asp">Ver
todas las encuestas</a></font></p>

<p align="right"><font face="Verdana" size="1">Sistema de encuestas de <a href="http://www.asptutor.com" target="_blank"><img border="0" src="http://www.asptutor.com/images/asptutor88x31.gif" align="center"></a></font></p>

</body>

</html>

historico.asp

<html>

<head>

<title>Historico de encuestas</title>
</head>

<body>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"><h3

style="background-color: rgb(0,255,255)"><b>Histórico de encuestas</b> </h3>
        </font>
    <br>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/xxxxx/Tencuestas.mdb"))
dim colores(3)
colores(0)="red"
colores(1)="blue"
colores(2)="green"
colores(3)="black"
tamatabla=400  'tamaño de la tabla

set rs=createobject("ADODB.Recordset")
sqltxt="SELECT  * from encuestas order by idencuesta desc"
rs.open sqltxt,conn
do while not rs.EOF%>

<tr>
      <td width="300">
        <font face="Verdana" size="1">Fecha de inicio: <%=rs("inicio")%></font>
      </td>
    </tr><%end if%>

</body>

</html>

Módulos de mantenimiento

crearencuesta.htm

<html>

<head>

<title>Crear una nueva encuesta</title>
</head>

<body>

<p align="center"><font color="#FFFFFF">Crear una nueva encuesta</font></p>
      </td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#C0C0C0">
        <p align="center"><font face="Verdana" size="1">Sistema de encuestas de <a href="http://www.asptutor.com" target="_blank"><img border="0" src="http://www.asptutor.com/images/asptutor88x31.gif" align="center"></a></font></p>

<form method="POST" action="crearencuesta.asp">
  <div align="center">
    <center>
    <table border="0" width="90%">
      <tr>
        <td width="34%" bgcolor="#0000FF"><font color="#FFFFFF">Pregunta</font></td>
        <td width="66%" align="center"><input type="text" name="pregunta" size="40"></td>
      </tr>
      <tr>
        <td width="34%" bgcolor="#0000FF"><font color="#FFFFFF">Respuesta 1</font></td>
        <td width="66%" align="center"><input type="text" name="tr1" size="40"></td>
      </tr>
      <tr>
        <td width="34%" bgcolor="#0000FF"><font color="#FFFFFF">Respuesta 2</font></td>
        <td width="66%" align="center"><input type="text" name="tr2" size="40"></td>
      </tr>
      <tr>
        <td width="34%" bgcolor="#0000FF"><font color="#FFFFFF">Respuesta 3</font></td>
        <td width="66%" align="center"><input type="text" name="tr3" size="40"></td>
      </tr>
      <tr>
        <td width="34%" bgcolor="#0000FF"><font color="#FFFFFF">Respuesta 4</font></td>
        <td width="66%" align="center"><input type="text" name="tr4" size="40"></td>
      </tr>
      <tr>
        <td width="34%"> </td>
        <td width="66%" align="center"> </td>
      </tr>
      <tr>
        <td width="34%" bgcolor="#0000FF"><font color="#FFFFFF">Clave de creación</font></td>
        <td width="66%" align="center"><input type="password" name="clave" size="40"></td>
      </tr>
    </table>
    </center>
  </div>
  <p align="center"><input type="checkbox" name="activar" value="ON">  
  Activar la encuesta una vez insertada</p>
  <p align="center"><input type="submit" value="Enviar" name="B1"><input type="reset" value="Restablecer" name="B2"><br>
  </p>
</form>
</td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

crearencuesta.asp

<html>

<head>

<title>Creacion de encuestas</title>
</head>

<body>
<%Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/xxxxx/Tencuestas.mdb"))

set rs=createobject("ADODB.Recordset")
if request.form("activar")="ON" then
fin=month(date)&"/"&day(date)&"/"&year(date)

sqltxt="update encuestas set fin=#"&fin&"# where activa=True"
'response.write sqltxt
conn.execute sqltxt

sqltxt="update encuestas set activa=False where activa=True"
conn.execute sqltxt

end if

sqltxt="select * from clave"
rs.open sqltxt,conn
if rs("clave")<> request.form("clave") then
rs.close
%>
<div align="center">
  <center>
  <table border="0" width="50%">
    <tr>
      <td width="100%">
        <table border="10" width="100%" bgcolor="#FF0000" bordercolor="#000000">
          <tr>
            <td width="100%">
              <p align="center"><font color="#FFFFFF">Clave ERRONEA</font></td>
          </tr>
        </table>
      </td>
    </tr>
    <tr>
      <td width="100%">
        <p align="center"><a href="javascript:window.history.back()">Intentalo de nuevo</a>
</td>
    </tr>
  </table>
  </center>
</div>
<%else
rs.close
pregunta=trim(request.form("pregunta"))
tr1=trim(request.form("tr1"))
tr2=trim(request.form("tr2"))
tr3=trim(request.form("tr3"))
tr4=trim(request.form("tr4"))
if request.form("activar")="ON" then
    activar=True
else
    activar=false
end if

if tr1="" or tr2="" or pregunta="" then%>
<div align="center">
  <center>
  <table border="0" width="50%">
    <tr>
      <td width="100%">
        <table border="10" width="100%" bgcolor="#FF0000" bordercolor="#000000">
          <tr>
            <td width="100%">
              <p align="center"><font color="#FFFFFF">Al menos se deben ofrecer una pregunta y
              las alternativas 1 y 2 </font></td>
          </tr>
        </table>
      </td>
    </tr>
    <tr>
      <td width="100%">
        <p align="center"><a href="javascript:window.history.back()">Intentalo de nuevo</a>
</td>
    </tr>
  </table>
  </center>
</div>

<%
else
nopciones=2
rs.CursorType = adOpenKeyset 
rs.LockType = adLockOptimistic 
rs.open "encuestas",conn
rs.addnew
rs("pregunta")=pregunta
rs("tr1")=tr1
rs("r1")=0
rs("tr2")=tr2
rs("r2")=0
if tr3 <> "" then
   nopciones=3
   rs("tr3")=tr3
   rs("r3")=0
   if tr4 <> "" then
     nopciones=4
     rs("tr4")=tr4
     rs("r4")=0
   end if
end if
rs("nopciones")=nopciones
rs("activa")=activar
if request.form("activar")="ON" then
 rs("inicio")=date
end if
rs.update%>
<div align="center">
  <center>
  <table border="0" width="90%" cellpadding="2" bgcolor="#C0C0C0">
    <tr>
      <td width="100%" bgcolor="#0000FF">
      <p align="center"><font color="#FFFFFF">Nueva Encuesta creada</font>
      </td>
    </tr>
    <tr>
      <td width="100%"><br><div align="center">
  <center>
   <table border="0" width="80%">
  <tr>
    <td width="21%" bgcolor="#0000FF"><font color="#FFFFFF">identificador </font></td>
    <td width="79%" bgcolor="#FFFFFF"><%=rs("idencuesta")%></td>
  </tr>
  <tr>
    <td width="21%" bgcolor="#0000FF"><font color="#FFFFFF">Pregunta</font></td>
    <td width="79%" bgcolor="#FFFFFF"><%=rs("pregunta")%></td>
  </tr>
  <tr>
    <td width="21%" bgcolor="#0000FF"><font color="#FFFFFF">Opción 1</font></td>
    <td width="79%" bgcolor="#FFFFFF"><%=rs("tr1")%></td>
  </tr>
  <tr>
    <td width="21%" bgcolor="#0000FF"><font color="#FFFFFF">Opción 2</font></td>
    <td width="79%" bgcolor="#FFFFFF"><%=rs("tr2")%></td>
  </tr>
  <tr>
    <td width="21%" bgcolor="#0000FF"><font color="#FFFFFF">Opción 3</font></td>
    <td width="79%" bgcolor="#FFFFFF"><%=rs("tr3")%></td>
  </tr>
  <tr>
    <td width="21%" bgcolor="#0000FF"><font color="#FFFFFF">Opción 4</font></td>
    <td width="79%" bgcolor="#FFFFFF"><%=rs("tr4")%></td>
  </tr>
  <tr>
    <td width="21%" bgcolor="#0000FF"><font color="#FFFFFF">Activacion</font></td>
    <td width="79%" bgcolor="#FFFFFF"><%=activar%></td>
  </tr>
</table>

</center>
</div>

<%rs.close
conn.close
end if
end if%>

</body>

</html>

Nota: podéis usar y modificar este código a vuestro antojo, pero en el caso de su uso en Internet, deberá mantener una referencia a www.asptutor.com (es justo ¿no?)

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp

419 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


¿Como puedo colaborar?	Escribe tu articulo	Participa en los foros

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
Libro de visitas ¦Crea un enlace con ASPTutor