Creo que a los internautas que tienen páginas de inicio personales les gustaría saber cómo los visitantes evalúan sus trabajos, para poder orientarse a mejorar.
La siguiente encuesta en línea es un ejemplo:)
Necesita un espacio que admita FSO. Solo necesita dos archivos, uno es la página de procesamiento poll.asp, el otro es el archivo de datos poll.txt y, por supuesto, el otro es. muestra la página del formulario de envío, los códigos se proporcionan a continuación:
1. encuesta.asp:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<html>
<cabeza>
<meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312">
<title>Encuesta del sitio</title>
<enlace href="noticias1.css" rel="hoja de estilo" tipo="texto/css">
</cabeza>
<cuerpo>
<p>
<%
débilmente encuestado, total
encuestador tenue(4)
nombre de encuesta oscuro (7)
pollnum tenue(4)
encuestados=cint(Solicitud.Form("seleccionar"))
establecer fs= Server.CreateObject("scripting.filesystemobject")
encuesta=servidor.MapPath("encuesta.txt")
establecer textar=fs.opentextfile(encuesta,1,0,0)
si no es sesión (encuestado) entonces
yo=0
mientras no textar.atendofstream
getdata=textar.readline
nombre de encuesta (i) = izquierda (rtrim (getdata), 7)
pollnum(i)=right(RTrim(getdata),4)
si i = encuestado entonces
j=cdbl(númpollo(i))+1
pollnum(i)=derecha(espacio(6)&recortar(cstr(j)),7)
terminar si
yo=yo+1
encaminarse a
textar.cerrar
establecer textar1=fs.createtextfile(encuesta,-1,0)
total=0
para j=0 a (i-1)
total=total+cdbl(númpollo(j))
textar1.writeline nombre de encuesta (j) y número de encuesta (j)
próximo
textar1.cerrar
%>
<span class="news1"> ¿Dónde cree que este sitio necesita mejorar? </span></p>
<%
para j=0 a (i-1)
encuestador(j)=cdbl(núm.encuesta(j))/total
ancho = 500 * encuestador (j)
%>
<table width="750" border="0" align="left">
<tr>
<td align="izquierda" bgcolor="#CCCCCC">
<%Response.Write(trim(nombredeencuesta(j))&"()
Respuesta.Escribir(número de formato(numero(j),0)&")")
Respuesta.Escribir("<br>")
Response.Write("<img src='images/bg1.gif' ancho=")
Respuesta.Escribir(ancho&"'alto=10>")
Respuesta.Escribir(formatoporcentaje(pollper(j)) &"<p>")
próximo
Respuesta.Escribir("Total:")
Respuesta.Escribir(número de formato(total,0))
%>
</td>
</tr>
</tabla>
<%
sesión (encuestada) = verdadero
demás
Response.Write("Ya votó, ¡gracias por su voto!")
terminar si
%>
<p></p>
</cuerpo>
</html>
2.poll.txt:
Arte de página 27
Cobertura de contenidos 35
Velocidad de actualización de contenido 43
El número de visitas al sitio web es 53.
La página (formulario) que desea mostrar:
<table width="100%" height="215" border="0" bordercolor="#FFFFFF" background="%20" >
<tr>
<td height="20" align="center" background="images/bg1.gif" class="1">¿Qué áreas cree que necesitan mejorar en este sitio? </td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input name="select" type="radio" value="0" marcado>
Arte de la página</td>
</tr>
<tr>
<td altura="20" fondo=" " bgcolor="#FFFFFF" clase="1">
Cobertura de contenido</td>
</tr>
<tr>
<td altura="20" bgcolor="#FFFFFF" clase="1"> <tipo de entrada="radio" nombre="seleccionar" valor="2">
Velocidad de actualización de contenido</td>
</tr>
<tr>
<td altura="20" fondo=" " bgcolor="#FFFFFF" clase="1">
<tipo de entrada="radio" nombre="seleccionar" valor="3">
Visitas al sitio web</td>
</tr>
<tr>
<td height="66" align="center" bgcolor="#FFFFFF"><span class="1">
<tipo de entrada="enviar" nombre="Enviar2" valor="Enviar">
</span><a href="poll.asp">Ver</a></td>
</tr>
</table>
¿No es muy sencillo? Date prisa y haz uno tú mismo :)