Há alguns meses, vi um artigo escrito por um internauta lshdic usando JS+VML "Um programa completo para criar um gráfico de votação colunar tridimensional usando Vml".
Acho que esse método é muito bom. Ele pode gerar gráficos estatísticos sem usar imagens. Agora vamos implementar este programa usando ASP.
Preparação: Use ACCESS para criar um banco de dados MDB denominado vote.mdb e crie as duas tabelas a seguir no banco de dados:
Em seguida criamos o arquivo conn.asp que se conecta ao banco de dados conforme a convenção de desenvolvimento ASP.
<%
'conn.asp
Definir conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Driver do Microsoft Access (*.mdb)};dbq="& Server.MapPath("vote.mdb")
%>
Exibe a lista de projetos votados, pois o que queremos fazer é um sistema de votação multiprojetos vote_list.asp
<!--#include file="conn.asp"-->
<html>
<cabeça>
<title>Lista de itens de votação</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 ("selecione * na ordem do título de voto por voteid desc")
%>
<table border=1 cellpacing="0" style="border-collapse:lapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#000000" width=100%>
<tr>
<td bgcolor="#EFEFEF">Todas as listas de votação</td>
</tr>
<%do enquanto não rs.eof%>
<tr>
<td>Número:<font color="#FF0000"><%=rs("voteid")%> )%>" target="_blank"><%=rs("votetitle")%>
</a>(<%=rs("tempo")%>)</td>
</tr>
<%rs.movenext
laço
rs.fechar
definir rs=nada%>
</tabela>
</body>
</html>
Página de exibição de votação vote_show.asp
<%if request("voteid")=""então
response.write "O parâmetro não foi especificado."
resposta.End()
terminar se%>
<!--#include file="conn.asp"-->
<html>
<cabeça>
<title>Ver resultados</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<ESTILO>
td{tamanho da fonte: 12px}
corpo{tamanho da fonte: 12px}
v:*{behavior:url(#default#VML);} //v é declarado aqui como uma variável pública VML
</STYLE>
<link href="../images/main.css" rel="stylesheet" type="text/css">
</head>
<%
dim voto
voteid=request("voteiid")
set rs=conn.execute("selecione a contagem da votação,votetitle onde votetitle.voteid="&voteid&" e vote.voteid=votetitle.voteid ordene por id")
iii=0
faça enquanto não rs.eof
ii=ii+1
se ii = 1 então
ceocio=trim(rs("contagem"))
ceocio1=trim("array1["&iii&"]")
outro
ceocio=trim(ceocio&","&rs("contagem"))
ceocio1=trim(ceocio1&"+array1["&iii&"]")
terminar se
iii=iii+1
rs.movnext
laço
rs.fechar
definir rs = nada
'resposta.write ii
'resposta.write ceocio1
%>
<roteiro>
array1=new Array(<%=ceocio%>) //Números de votação diferentes
allstr=<%=ceocio1%>
//alert(allstr)
//allstr=array1[0]+array1[1]+array1[2]+array1[3]+array1[4]+array1[5] //Obtém o número total
for(i=0;i<=<%=(ii-1)%>;i++){
mathstr=Math.round(100/(allstr/array1[i])) //Encontre a porcentagem, 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 backprofundidade='15pt' on='true'/></v:rect>")
}
</script>
<%
voteid=request("voteiid")
set rs=conn.execute("selecione * da votação,votetitle onde votetitle.voteid="&voteid&" e vote.voteid=votetitle.voteid ordene por id")
%>
<table border=1 cellpacing="0" style="border-collapse:lapse" cellpadding="2" bgcolor="#ffffff" bordercolor="#000000" width=100%>
<tr>
<td bgcolor="#EFEFEF">Como encontrar resultados sobre:<font color="#FF0000"><%=rs("votetitle")%></font>:<br>
Um total de<b><font color="#FF0000"><%=rs("total")%></font></b> participaram da pesquisa<br>
(<%=rs("time")%>até<%=data%>)</td>
</tr>
<%do enquanto não rs.eof
dimi
eu=eu+1%>
<tr>
<td>Opção<%=i%>:<%=rs("title")%> /fonte></td>
</tr>
<%rs.movenext
laço
rs.fechar
definir rs=nada%>
<tr>
<td> </td>
</tr>
</tabela>
<br>
<a href="vote_list.asp">Ver votos anteriores</a> <br>
<a href="vote.asp?voteid=<%=request("voteid")%>">Vote neste projeto</a>
</body>
</html>
voto.asp
<!--#include file="conn.asp"-->
<%if request("voteid")=""então
set rs = conn.execute ("selecione o primeiro voteid da ordem do votetitle por voteid desc")
voteid=rs("voteiid")
rs.fechar
definir rs = nada
outro
voteid=request("voteiid")
terminar se%>
<html>
<cabeça>
<title>Documento sem título</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<corpo>
<%
if request("ação")="voto" então
'Adicione ","&request("voteid")","para não confundir o voto com o id 1 e o voto com o id 11
se instr(request.cookies("vote"),""&request("voteid")&",")=0 então
outro
response.write "Você já votou"
resposta.fim
terminar se
sql="atualizar [voto] set contagem=contar+1 onde id="&request("valordevoto")
conn.execute(sql)
sql="update [votetitle] set total=total+1 onde voteid="&request("voteid")
conn.execute(sql)
'Escrever o período de validade do cookie
Response.Cookies("voto").Expires=Data+1
'Registre todas as opções votadas em cookies, separadas por ','.
Response.Cookies("voto")=","&Request.Cookies("voto")&","&Request("voteid")&","
voteid=request("voteiid")
'Vá para o básico
resposta.redirect "vote_show.asp?voteid="&voteid
terminar se
%>
<%
'dim votoid
'voteid=request("voteid")
set rs=conn.execute("selecione * da votação,votetitle onde votetitle.voteid="&voteid&" e vote.voteid=votetitle.voteid ordene por id")
%>
<table border=1 cellpacing="0" style="border-collapse:lapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td colspan="2" bgcolor="#EFEFEF">Investigação: <%=rs("votetitle")%>(<%=rs("time")%>)</td>
</tr><form name="form1" method="post" action="vote.asp?action=vote&voteid=<%=voteid%>">
<%do enquanto não rs.eof
dimi
eu=eu+1%>
<tr>
<td colspan="2">
<input type="radio" name="votevalue" value="<%=rs("id")%>" <%if i=1 then%>verificado<%end if%>>
<%=rs("título")%>
</td>
</tr>
<%rs.movenext
laço
rs.fechar
definir rs=nada%>
<tr>
<td colspan="2">
<%if instr(request.cookies("vote"),""&voteid&",")=0 then%>
<input type="submit" name="Submit" value="Vote"></form>
<%else%>
<font color="#FF0000">Você já votou</font>
<%end if%></td>
</tr>
</tabela>
<br>
<a href="vote_list.asp">Ver votos anteriores</a> <br>
<a href="vote_show.asp?voteid=<%=voteid%>">Veja os resultados desta votação</a>
</body>
</html>
Página de gerenciamento de back-end admin_vote_list.asp
<!--#include file="conn.asp"-->
<%'Adicione direitos de administrador aqui Para conveniência de todos, permitirei a entrada diretamente sem verificação%>.
<html>
<cabeça>
<title>Lista de itens de votação</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<corpo>
<%
'Excluir módulo
ação fraca
ação=solicitação("ação")
se ação = "del" então
DimStrSQL1,StrSQL2
StrSQL1="excluir da votação onde voteid="&request("voteid")
conexão.Execute StrSQL1
StrSQL2="delete from votetitle onde voteid="&request("voteid")
conexão.Execute StrSQL2
resposta.Redirect "?"
terminar se
'Modificar módulo
'//////////////////////
'Modificar formulário
se ação = "adicionar" então
%>
<table border=1 cellpacing="0" style="border-collapse:lapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td bgcolor="#EFEFEF"><center>
Adicionar nova enquete</center></td>
</tr>
<tr>
<td>Por favor, insira o número de opções necessárias para esta enquete. </td>
</tr>
<tr>
<td><form name="form1" method="post" action="?action=add1">
<selecione nome="num">
<%para i1=2 a 10%>
<option value="<%=i1%>"><%=i1%></option>
<%próximo%>
</selecionar>
<input type="submit" name="Enviar" value="Enviar">
</form></td>
</tr>
</tabela>
<%
terminar se
se ação = "adicionar1" então
num=solicitação("num")
%>
<table border=1 cellpacing="0" style="border-collapse:lapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td bgcolor="#EFEFEF"><center>
Adicionar nova enquete</center></td>
</tr>
<tr>
<td>Por favor, insira os detalhes necessários para esta enquete. </td>
</tr>
<tr>
<td><form name="form2" method="post" action="?action=add2">
nome do voto
<input type="text" name="votetitle">
<br>
<%para i2=1 para num%>
Opções<%=i2%><input type="text" name="<%=i2%>"><br>
<%próximo%>
<input type="hidden" name="num" value="<%=request("num")%>">
<input type="submit" name="Submit2" value="Enviar">
<input type="reset" name="Submit3" value="Reset">
</form></td>
</tr>
</table>
<%fim se
se ação = "adicionar2" então
Definir rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM título de voto"
rs.Abrir sql,conn,1,3
rs.Adicionar novo
rs("votetitle")=request("votetitle")
rs("hora")=data()
rs.Atualizar
rs.Fechar
set rs = conn.execute ("selecione o primeiro voteid da ordem do votetitle por voteid desc")
voteid=rs("voteiid")
rs.fechar
definir rs = nada
'///////////////
'/////////////ciclo
num=solicitação("num")
para i3 = 1 para num
Definir rs=Server.CreateObject("ADODB.Recordset")
sql="SELECIONE *FROM voto"
rs.Abrir sql,conn,1,3
rs.Adicionar novo
rs("título")=solicitação(i3)
rs("votoid")=votoid
rs.Atualizar
rs.Fechar
próximo
'////////////Fim do loop
Definir rs=Nada
response.Write "<a href=admin_vote_list.asp>Adicionado com sucesso, retorne</a>"
terminar se
'Fim do formulário de modificação
'////////////////////
'Modifique o código de execução
'Fim da modificação do código de execução
%>
<%se ação=""então
set rs = conn.execute ("selecione * na ordem do título de voto por voteid desc")
%>
<table border=1 cellpacing="0" style="border-collapse:lapse" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<tr>
<td colspan="2" bgcolor="#EFEFEF">Todas as listas de votação</td>
</tr>
<%do enquanto não rs.eof%>
<tr>
<td width="44%">Número: <font color="#FF0000"><%=rs("voteid")%> =rs("voteid")%>" target="_blank"><%=rs("votetitle")%>
</a>(<%=rs("tempo")%>)</td>
<td width="50%">【<a href="?action=del&voteid=<%=rs("voteid")%>">Excluir</a>】</td>
</tr>
<%rs.movenext
laço
rs.fechar
definir rs=nada%>
<tr>
<td colspan="2">[<a href="?action=add">Adicionar uma nova enquete</a>]</td>
</tr>
</tabela>
</body>
</html>
<%end if%>
O efeito de exibição final é o seguinte:
