Avec la popularité d’Internet, les enquêtes en ligne permettent souvent d’obtenir de meilleurs résultats. Mettre un tableau d'enquête intéressant sur votre site Web personnel peut vraiment ajouter beaucoup de couleur au site Web ; et grâce aux résultats de l'enquête, vous pouvez en apprendre de plus en plus précisément sur les opinions des internautes sur votre site Web. En tant que webmaster, si votre site Web doit également mener des enquêtes sur un certain sujet et que vous détestez utiliser des tableaux d'enquête fournis gratuitement par d'autres (la gratuité a souvent un prix, comme la publicité !), alors je vous suggère de consacrer dix minutes à pour lire cet article présentant l'utilisation d'ASP pour créer un tableau d'enquête. Il vous suffit de copier le code de l'article sur votre machine, d'apporter de légères modifications et vous disposerez immédiatement de votre propre tableau d'enquête personnalisé. D'accord, remontez le moral et baissez les yeux.
Il existe trois fichiers dans ce tableau d'enquête : l'affichage des questions d'enquête (research.html), le traitement des sélections des utilisateurs (select.asp) et l'affichage des résultats de l'enquête (viewresult.asp). L'idée de conception est la suivante : ASP obtient les informations envoyées à partir du formulaire et modifie en conséquence la base de données qui enregistre le nombre de votes dans l'enquête. Ensuite, ASP lit la base de données, obtient le nombre de votes pour chaque question de l'enquête et ajuste la barre correspondante. affichage graphique en fonction du nombre de votes. Les résultats de l'enquête sont présentés de manière intuitive et proportionnelle. J'ai donné des commentaires plus détaillés sur les points clés du programme, et je n'entrerai pas ici dans les connaissances de base de l'ASP. Les lecteurs peuvent le consulter dans la colonne Taoba ASP. Bien sûr, j'espère que lorsque vous déboguerez le programme sur votre propre serveur, si vous ne comprenez pas quelque chose, vous devriez consulter le manuel technique ASP qui vous entoure pour voir la syntaxe détaillée des objets, méthodes ou fonctions, essayer de la modifier, et voyez comment les résultats changent—— C'est une excellente façon d'apprendre la programmation.
1. Afficher les questions d'enquête (research.html)
La conception des questions d'enquête doit être basée sur la situation réelle, qu'elle soit pratique ou intéressante, et le style affiché sur la page Web peut être simple ou vivant. Dans cet exemple, il s'agit d'un sujet. question sur la page d'accueil de l'auteur. Une enquête intéressante sur « Quelle est la chose la plus importante au 21e siècle ? » Afin d'illustrer le problème, le code de modification esthétique est omis dans le code suivant. Lorsque vous le concevez vous-même, vous pouvez le faire. utiliser des tableaux et d’autres techniques pour embellir l’affichage des questions d’enquête. Afin de faire changer le dragon à Ti ? Les érables Lai Ta ont agité leur râteau et ont profité du Gui. La bande était détendue, a dit Jun ?
index de recherche.html :
< html >
<title>Test du tableau d'enquête</title>
<tête>
< !-- start : Définir une nouvelle fenêtre-- >
<langage de script=javascript>
< !--
var nouvelleFenêtre = null
fonctionOpenWindow(htmurl)
{
si (! newWindow || newWindow.closed)
{
nouvelleFenêtre =
window.open(htmurl,"newwin","toolbar=no,resiza =no,scrollbars=no,width=400,height=280");
}autre
{
newWindow.focus();
}
}
//-- >
</ /script >
<!-- end : Définir la fenêtre nouvellement ouverte-->
</ /tête >
<corps>
< !-- début : questions de l'enquête, options ->
< p > Selon vous, quelle est la chose la plus importante au 21ème siècle ? < /p >
< form method="POST" action="vote/select.asp" name="research" LANGUAGE="javascript"
onSubmit="OpenWindow()" target="newwin" >
< p align="gauche" >
< br >
< input type="radio" value="1" name="Options" >Connaissance (la connaissance, c'est le pouvoir)< br >
< input type="radio" value="2" name="Options" >Diplômes académiques (la société universitaire n'a pas de fin)< br >
< input type="radio" value="3" name="Options" >L'argent (l'économie est la base)< br >
< input type="radio" value="4" name="Options" >L'amour (l'amour qui n'entrera jamais dans la tombe)< br >
< input type="radio" value="5" name="Options" >Idéal (ça alors, qu'est-ce qu'un idéal)< br >
< input type="radio" value="6" name="Options" >Conscience démocratique (préoccupation politique)< br >
< input type="radio" value="7" name="Options" >Pensée scientifique (rajeunir le pays par la science et l'éducation)< br >
< input type="submit" value="submit" name="voting" >
< input type="button" value="View" name="viewing" onClick="OpenWindow(vote/viewresult.asp)" >
< /form>
< !-- début : questions de l'enquête, options ->
< /corps >
< /html >
2. Traitement de la sélection des utilisateurs (select.asp)
Sur la base des options d'enquête ci-dessus, nous proposons la conception de la base de données searchdb.mdb (en prenant Access comme exemple) qui enregistre les votes de l'enquête. Le nom de la table est : search. Si votre base de données et vos tables ne sont pas enregistrées sous les noms ci-dessus, n'oubliez pas de les modifier en conséquence dans les procédures et opérations ultérieures.
Recherche de table qui stocke les numéros de vote de l'enquête :
nom du champ, type de données, valeur par défaut
identifiant automatique numéro 1
sélectionnez 1 numéro 0
select2 numéro 0
select3 numéro 0
select4 numéro 0
sélectionnez 5 numéro 0
select6 numéro 0
select7 numéro 0
Après avoir construit la base de données, créons une source de données sur le serveur. Tout d'abord, exécutez "ODBC" dans le "Panneau de configuration", sélectionnez "System DSN", appuyez sur le bouton "Ajouter", sélectionnez "Microsoft Access Driver", appuyez sur le bouton "Terminer" après la sélection, puis cliquez sur "Source de données" dans les paramètres ODBC. Entrez le nom de la base de données dans la zone de saisie "Nom", dans ce cas searchdb, puis appuyez sur le bouton "Sélectionner" pour sélectionner le fichier de la base de données (vous ne direz pas que vous avez oublié où se trouve la base de données que vous venez de concevoir). existe), et appuyez sur "OK" après l'avoir sélectionné. Vous pouvez voir la source de données searchdb nouvellement créée. De cette façon, nous pouvons l'appeler en ASP.
select.asp :
< %
L'instruction if ci-dessous sert à déterminer si l'utilisateur a effectué une sélection en vérifiant si selected est vide.
si request.form("options") < >Vide alors
% >
< %
L'instruction if suivante compare les valeurs des deux collections (ServerVariables et Cookies) de la requête pour empêcher l'utilisateur d'appuyer continuellement sur Soumettre et d'affecter les résultats de l'enquête.
sinon Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") alors
Écrivez les informations IP du client visiteur dans les cookies
réponse.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
%>
<%
Établissez un objet Connection et ouvrez la base de données qui enregistre les résultats de l’enquête.
set conn=server.createobject("ADODB.CONNECTION")
conn.open "researchdb"
% >
< %
Définir des variables
dimrs
dimsql
atténué sélectionné
sélectionné=request.form("options")
Créez un objet Recordset, ouvrez l'objet à l'aide de la méthode Open et modifiez les données correspondantes en même temps.
set rs=server.createobject("adodb.recordset")
Modifier les données dans la recherche du tableau de données, c'est-à-dire augmenter le nombre de votes correspondant de 1
sql="mettre à jour l'ensemble de recherche select"&selected&"=select"&selected&"+1 où id=1"
rs.open sql,conn,3,3
Effacer l'objet de collection d'enregistrements de la mémoire
définir rs = rien
connexion étroite
connexion.fermer
Effacer l'objet de connexion de la mémoire
définir conn = rien
Connectez-vous à la page pour parcourir les résultats de l'enquête
réponse.redirect "viewresult.asp"
autre
Response.write « Rappel d'échec de vote : vous venez de voter, merci pour votre soutien ! »
finir si
autre
Response.write "Invite d'échec du vote : vous avez oublié de sélectionner !"
finir si
% >
3. Parcourir les résultats de l'enquête (viewresult.asp)
Dans cet exemple, un graphique à barres est utilisé pour afficher visuellement les résultats de l'enquête. La méthode consiste à multiplier la valeur en pourcentage du nombre de votes pour l'option par le nombre total de votes. par 5, et la valeur résultante est utilisée comme barre La largeur de l'affichage bar.gif (vous pouvez utiliser des outils d'image courants pour créer un petit graphique à barres dégradées, ou en télécharger un en ligne). Afin de donner le pourcentage de votes avec deux décimales, la fonction d'arrondi Round en VBScript est utilisée dans le programme. Par souci d'esthétique, les résultats de l'enquête sont affichés dans un tableau, comme le montre la figure. La conception du tableau a été omise du code ci-dessous.
viewresult.asp
<%
set conn=server.createobject("ADODB.CONNECTION")
conn.open "researchdb"
%>
<%
dimrs
dimsql
sélectionner l'intensité1
dim select2
dim select3
sélection d'intensité 4
dim select5
sélection d'intensité 6
dim select7
faible total
set rs=server.createobject("adodb.recordset")
sql="select * de la recherche où id=1"
rs.open sql, conn, 1,1
total=rs("select1")+rs("select2")+rs("select3")+
_ rs("select4")+rs("select5")+rs("select6")+rs("select7")
Déterminer si le nombre total de votes est 0 et s'assurer que la division suivante est valide
si total > 0 alors
select1=(rs("select1")/total)*100
select2=(rs("select2")/total)*100
select3=(rs("select3")/total)*100
select4=(rs("select4")/total)*100
select5=(rs("select5")/total)*100
select6=(rs("select6")/total)*100
select7=(rs("select7")/total)*100
%>
< p >Merci pour votre participation. Vous trouverez ci-dessous les résultats de l'enquête actuelle.
<p>
◇Connaissances :
< img src=bar.gif width=< %=int(select1*5)% > height=4 >
< %=rs("select1")% >Période : < %=round(select1,2)% >%< br >
◇Éducation :
< img src=bar.gif width=< %=int(select2*5)% > height=4 >
< %=rs("select2")% >Période : < %=round(select2,2)% >%< br >
◇Argent :
< img src=bar.gif width=< %=int(select3)*5% > height=4 >
< %=rs("select3")% >Période : < %=round(select3,2)% >%< br >
◇Amour :
< img src=bar.gif width=< %=int(select4)*5% > height=4 >
< %=rs("select4")% >Période : < %=round(select4,2)% >%< br >
◇Idéal :
< img src=bar.gif width=< %=int(select5)*5% > height=4 >
< %=rs("select5")% >Période : < %=round(select5,2)% >%< br >
◇Conscience démocratique :
< img src=bar.gif width=< %=int(select6)%*5 > height=4 >
< %=rs("select6")% >Période : < %=round(select6,2)% >%< br >
◇Pensée scientifique :
< img src=bar.gif width=< %=int(select7)%*5 > height=4 >
< %=rs("select7")% >Personnes : < %=round(select7,2)% >%< /p >
< p align="center" >Déjà : < %=total% > personnes ont participé à l'enquête < br >< br >
【< a href="javascript:window.close()" >Fermer la fenêtre</a>】</p>
<p>
<%
autre
réponse.écrire "Personne n'a encore participé à l'enquête"
finir si
rs.fermer
définir rs = rien
connexion.fermer
définir conn = rien
%>
Remarque :
Les codes ci-dessus ont été débogués sur WindowsNT4.0 chinois (Pack 6)/IIS4.0.
ASP peut être exécuté dans l'un des environnements suivants :
1. Windows NT Server 4.0 / IIS3.0 ou supérieur 2. Windows NT WorkStation 4.0 / Microsoft Peer Web Service 3.0 ou supérieur 3. Windows 95/98 / Microsoft Personal Web Server 1.0a ou au-dessus