Vor ein paar Monaten habe ich einen Artikel gesehen, den ein Internetnutzer lshdic mit JS + VML geschrieben hat: „Ein vollständiges Programm zum Erstellen eines dreidimensionalen säulenförmigen Abstimmungsdiagramms mit Vml“.
Ich denke, dass diese Methode sehr gut ist, um statistische Diagramme zu erstellen, ohne Bilder zu verwenden.
Vorbereitung: Erstellen Sie mit ACCESS eine MDB-Datenbank mit dem Namen vote.mdb und erstellen Sie die folgenden zwei Tabellen in der Datenbank:
Anschließend erstellen wir die Datei conn.asp, die gemäß der Konvention der ASP-Entwicklung eine Verbindung zur Datenbank herstellt.
<%
'conn.asp
Setze conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("vote.mdb")
%>
Zeigt die Liste der Abstimmungsprojekte an, denn was wir wollen, ist ein Abstimmungssystem für mehrere Projekte, vote_list.asp
<!--#include file="conn.asp"-->
<html>
<Kopf>
<title>Liste der Abstimmungspunkte</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/main.css" rel="stylesheet" type="text/css">
</head>
<%
set rs=conn.execute("select * from votetitle order by voteid desc")
%>
<table border=1 cellpacing="0" style="border-collapse: Collapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#000000" width=100%>
<tr>
<td bgcolor="#EFEFEF">Alle Abstimmungslisten</td>
</tr>
<%do while not rs.eof%>
<tr>
<td>Nummer:<font color="#FF0000"><%=rs("voteid")%> </font><a href="vote.asp?voteid=<%=rs("voteid" )%>" target="_blank"><%=rs("votetitle")%>
</a>(<%=rs("time")%>)</td>
</tr>
<%rs.movenext
Schleife
rs.close
setze rs=nothing%>
</table>
</body>
</html>
Abstimmungsanzeigeseite vote_show.asp
<%if request("voteid")="" dann
Response.write „Der Parameter wurde nicht angegeben.“
Antwort.End()
Ende, wenn%>
<!--#include file="conn.asp"-->
<html>
<Kopf>
<title>Ergebnisse anzeigen</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STIL>
td{font-size:12px}
Körper{font-size:12px}
v:*{behavior:url(#default#VML);} //v wird hier als öffentliche VML-Variable deklariert
</STYLE>
<link href="../images/main.css" rel="stylesheet" type="text/css">
</head>
<%
dim voteid
voteid=request("voteid")
set rs=conn.execute("Wählen Sie die Anzahl aus vote,votetitle where votetitle.voteid="&voteid&" and vote.voteid=votetitle.voteid order by id")
iii=0
tun, während nicht rs.eof
ii=ii+1
wenn ii=1 dann
ceocio=trim(rs("count"))
ceocio1=trim("array1["&iii&"]")
anders
ceocio=trim(ceocio&","&rs("count"))
ceocio1=trim(ceocio1&"+array1["&iii&"]")
Ende wenn
iii=iii+1
rs.movenext
Schleife
rs.close
setze rs=nichts
'response.write ii
'response.write ceocio1
%>
<Skript>
array1=new Array(<%=ceocio%>) //Unterschiedliche Abstimmungszahlen
allstr=<%=ceocio1%>
//alert(allstr)
//allstr=array1[0]+array1[1]+array1[2]+array1[3]+array1[4]+array1[5] //Gesamtzahl abrufen
for(i=0;i<=<%=(ii-1)%>;i++){
mathstr=Math.round(100/(allstr/array1[i])) //Ermitteln Sie den Prozentsatz, 100/(sum/single)
document.write ("<v:rect fillcolor='lime' style='width:20;color:navy;height:"+500*<%=(ii-1)%>/(1000/mathstr)+"' ><br> %"+mathstr+"<br>"+array1[i]+"人<v:Extrusion back Depth='15pt' on='true'/></v:rect>")
}
</script>
<%
voteid=request("voteid")
set rs=conn.execute("select * from vote,votetitle where votetitle.voteid="&voteid&" and vote.voteid=votetitle.voteid order by id")
%>
<table border=1 cellpacing="0" style="border-collapse: Collapse" cellpadding="2" bgcolor="#ffffff" bordercolor="#000000" width=100%>
<tr>
<td bgcolor="#EFEFEF">Ergebnisse finden zu:<font color="#FF0000"><%=rs("votetitle")%></font>:<br>
Insgesamt<b><font color="#FF0000"><%=rs("total")%></font></b> haben an der Umfrage teilgenommen<br>
(<%=rs("time")%>bis<%=date%>)</td>
</tr>
<%do while not rs.eof
dimi
i=i+1%>
<tr>
<td>Option<%=i%>:<%=rs("title")%> <font color="#FF0000"><%=rs("count")%>Personen< /font></td>
</tr>
<%rs.movenext
Schleife
rs.close
setze rs=nothing%>
<tr>
<td> </td>
</tr>
</table>
<br>
<a href="vote_list.asp">Vergangene Abstimmungen anzeigen</a> <br>
<a href="vote.asp?voteid=<%=request("voteid")%>">Stimmen Sie für dieses Projekt</a>
</body>
</html>
vote.asp
<!--#include file="conn.asp"-->
<%if request("voteid")="" dann
set rs=conn.execute("Wählen Sie die Top-1-VoteID aus der Abstimmungstitel-Reihenfolge nach Abstimmungs-ID desc aus")
voteid=rs("voteid")
rs.close
setze rs=nichts
anders
voteid=request("voteid")
Ende, wenn%>
<html>
<Kopf>
<title>Unbenanntes Dokument</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
if request("action")="vote" then
'Hinzufügen ","&request("voteid")","um die Abstimmung nicht mit ID 1 und die Abstimmung mit ID 11 zu verwechseln
wenn instr(request.cookies("vote"),","&request("voteid")&",")=0 dann
anders
Response.write „Sie haben bereits abgestimmt“
Antwort.Ende
Ende wenn
sql="update [vote] set count=count+1 where id="&request("votevalue")
conn.execute(sql)
sql="update [votetitle] set total=total+1 where voteid="&request("voteid")
conn.execute(sql)
'Cookie-Gültigkeitsdauer schreiben
Response.Cookies("vote").Expires=Datum+1
'Erfassen Sie alle abgestimmten Optionen in Cookies, getrennt durch ','.
Response.Cookies("vote")=","&Request.Cookies("vote")&","&Request("voteid")&","
voteid=request("voteid")
„Gehen Sie zu den Grundlagen.“
Response.redirect "vote_show.asp?voteid="&voteid
Ende wenn
%>
<%
'dim voteid
'voteid=request("voteid")
set rs=conn.execute("select * from vote,votetitle where votetitle.voteid="&voteid&" and vote.voteid=votetitle.voteid order by id")
%>
<table border=1 cellpacing="0" style="border-collapse: Collapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td colspan="2" bgcolor="#EFEFEF">Untersuchung: <%=rs("votetitle")%>(<%=rs("time")%>)</td>
</tr><form name="form1" method="post" action="vote.asp?action=vote&voteid=<%=voteid%>">
<%do while not rs.eof
dimi
i=i+1%>
<tr>
<td colspan="2">
<input type="radio" name="votevalue" value="<%=rs("id")%>" <%if i=1 then%>checked<%end if%>>
<%=rs("title")%>
</td>
</tr>
<%rs.movenext
Schleife
rs.close
setze rs=nothing%>
<tr>
<td colspan="2">
<%if instr(request.cookies("vote"),","&voteid&",")=0 then%>
<input type="submit" name="Submit" value="Vote"></form>
<%else%>
<font color="#FF0000">Sie haben bereits abgestimmt</font>
<%end if%></td>
</tr>
</table>
<br>
<a href="vote_list.asp">Vergangene Abstimmungen anzeigen</a> <br>
<a href="vote_show.asp?voteid=<%=voteid%>">Ergebnisse dieser Abstimmung anzeigen</a>
</body>
</html>
Backend-Verwaltungsseite admin_vote_list.asp
<!--#include file="conn.asp"-->
<%'Fügen Sie hier Administratorrechte hinzu. Der Einfachheit halber erlaube ich den Zugriff direkt ohne Verifizierung%>
<html>
<Kopf>
<title>Liste der Abstimmungspunkte</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
'Modul löschen
düstere Aktion
action=request("action")
wenn action="del" dann
DimStrSQL1,StrSQL2
StrSQL1="aus der Abstimmung löschen, wobei voteid="&request("voteid")
conn.Execute StrSQL1
StrSQL2="aus votetitle löschen, wobei voteid="&request("voteid")
conn.Execute StrSQL2
Antwort.Redirect „?“
Ende wenn
'Modul ändern
'///////////////////////
„Formular ändern.“
if action="add" then
%>
<table border=1 cellpacing="0" style="border-collapse: Collapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td bgcolor="#EFEFEF"><center>
Neue Umfrage hinzufügen</center></td>
</tr>
<tr>
<td>Bitte geben Sie die Anzahl der für diese Umfrage erforderlichen Optionen ein. </td>
</tr>
<tr>
<td><form name="form1" method="post" action="?action=add1">
<select name="num">
<%für i1=2 bis 10%>
<option value="<%=i1%>"><%=i1%></option>
<%next%>
</select>
<input type="submit" name="Submit" value="Submit">
</form></td>
</tr>
</table>
<%
Ende wenn
if action="add1" dann
num=request("num")
%>
<table border=1 cellpacing="0" style="border-collapse: Collapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td bgcolor="#EFEFEF"><center>
Neue Umfrage hinzufügen</center></td>
</tr>
<tr>
<td>Bitte geben Sie die für diese Umfrage erforderlichen Details ein. </td>
</tr>
<tr>
<td><form name="form2" method="post" action="?action=add2">
stimmberechtigter Name
<input type="text" name="votetitle">
<br>
<%for i2=1 to num%>
Optionen<%=i2%><input type="text" name="<%=i2%>"><br>
<%next%>
<input type="hidden" name="num" value="<%=request("num")%>">
<input type="submit" name="Submit2" value="Submit">
<input type="reset" name="Submit3" value="Reset">
</form></td>
</tr>
</table>
<%end if
if action="add2" dann
Setze rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM votetitle"
rs.Open sql,conn,1,3
rs.Addnew
rs("votetitle")=request("votetitle")
rs("time")=date()
rs.Update
rs.Schließen
set rs=conn.execute("Wählen Sie die Top-1-VoteID aus der Abstimmungstitel-Reihenfolge nach Abstimmungs-ID desc aus")
voteid=rs("voteid")
rs.close
setze rs=nichts
'///////////////
'/////////////Zyklus
num=request("num")
für i3=1 bis num
Setze rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM vote"
rs.Open sql,conn,1,3
rs.Addnew
rs("title")=request(i3)
rs("voteid")=voteid
rs.Update
rs.Schließen
nächste
'////////////Ende der Schleife
Setze rs=Nothing
Antwort.Write „<a href=admin_vote_list.asp>Erfolgreich hinzugefügt, bitte zurückgeben</a>“
Ende wenn
'Ende des Änderungsformulars
'//////////////////////
'Ändern Sie den Ausführungscode
'Ende der Änderung des Ausführungscodes
%>
<%if action="" dann
set rs=conn.execute("select * from votetitle order by voteid desc")
%>
<table border=1 cellpacing="0" style="border-collapse: Collapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td colspan="2" bgcolor="#EFEFEF">Alle Abstimmungslisten</td>
</tr>
<%do while not rs.eof%>
<tr>
<td width="44%">Nummer: <font color="#FF0000"><%=rs("voteid")%> =rs("voteid")%>" target="_blank"><%=rs("votetitle")%>
</a>(<%=rs("time")%>)</td>
<td width="50%">【<a href="?action=del&voteid=<%=rs("voteid")%>">Löschen</a>】</td>
</tr>
<%rs.movenext
Schleife
rs.close
setze rs=nothing%>
<tr>
<td colspan="2">[<a href="?action=add">Neue Umfrage hinzufügen</a>]</td>
</tr>
</table>
</body>
</html>
<%end if%>
Der endgültige Anzeigeeffekt ist wie folgt:
