Je crois que les internautes qui ont des pages d'accueil personnelles aimeraient savoir comment les visiteurs évaluent leurs œuvres, afin de se donner des pistes d'amélioration.
L'enquête en ligne suivante est un exemple :)
Vous avez besoin d'un espace prenant en charge FSO. Vous n'avez besoin que de deux fichiers, l'un est la page de traitement poll.asp, l'autre est le fichier de données poll.txt, et bien sûr l'autre est de. afficher la page du formulaire de soumission, les codes sont indiqués ci-dessous :
1. sondage.asp :
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<html>
<tête>
<méta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Enquête sur le site</title>
<link href="news1.css" rel="stylesheet" type="text/css">
</tête>
<corps>
<p>
<%
faible sondage, total
tamiseur de sondage(4)
dim nom du sondage (7)
faible numéro de poll(4)
interrogé=cint(Request.Form("select"))
set fs= Serveur.CreateObject("scripting.filesystemobject")
sondage=server.MapPath("poll.txt")
set textar=fs.opentextfile(poll,1,0,0)
si ce n'est pas une session (interrogée), alors
je = 0
sans textar.atendofstream
getdata=textar.readline
nom du sondage (i) = gauche (rtrim (getdata), 7)
numéro de sondage (i) = droite (RTrim (getdata), 4)
si je = interrogé alors
j=cdbl(numéro de sondage(i))+1
numéro de poll(i)=droite(espace(6)&trim(cstr(j)),7)
finir si
je=je+1
wend
textar.close
set textar1=fs.createtextfile(poll,-1,0)
total=0
pour j=0 à (i-1)
total=total+cdbl(numéro de sondage(j))
textar1.writeline nom du sondage (j) et numéro du sondage (j)
suivant
textar1.close
%>
<span class="news1"> Où pensez-vous que ce site doit être amélioré ? </span></p>
<%
pour j=0 à (i-1)
pollper(j)=cdbl(pollnum(j))/total
largeur = 500 * sondeur (j)
%>
<table width="750" border="0" align="left">
<tr>
<td align="left" bgcolor="#CCCCCC">
<%Response.Write(trim(nom du sondage(j))&"(")
Réponse.Write(formatnumber(pollnum(j),0)&")")
Réponse.Write("<br>")
Réponse.Write("<img src='images/bg1.gif' width=")
Réponse.Write(largeur&"' hauteur=10>")
Réponse.Write(formatpercent(pollper(j)) &"<p>")
suivant
Réponse.Write("Total :")
Réponse.Write(formatnuméro(total,0))
%>
</td>
</tr>
</table>
<%
session (interrogée) = vrai
autre
Response.Write("Vous avez déjà voté, merci pour votre vote !")
finir si
%>
<p> </p>
</corps>
</html>
2.poll.txt :
Illustration de la page 27
Couverture du contenu 35
Vitesse de mise à jour du contenu 43
Le nombre de visites sur le site est de 53.
La page (formulaire) que vous souhaitez afficher :
<table width="100%" height="215" border="0" bordercolor="#FFFFFF" background="%20" >
<tr>
<td height="20" align="center" background="images/bg1.gif" class="1">Quels domaines doivent, selon vous, être améliorés sur ce site ? </td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input name="select" type="radio" value="0" vérifié>
Illustrations de pages</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
Couverture du contenu</td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input type="radio" name="select" value="2">
Vitesse de mise à jour du contenu</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
<input type="radio" name="select" value="3">
Visites de sites Web</td>
</tr>
<tr>
<td height="66" align="center" bgcolor="#FFFFFF"><span class="1">
<input type="submit" name="Submit2" value="Submit">
</span><a href="poll.asp">Afficher</a></td>
</tr>
</table>
N'est-ce pas très simple ? Dépêchez-vous d'en fabriquer un vous-même :)