Несколько месяцев назад я увидел статью, написанную пользователем сети lshdic с использованием JS+VML: «Полная программа для создания трехмерной столбчатой диаграммы голосования с использованием Vml».
Я считаю, что этот метод очень хорош. Он позволяет создавать статистические диаграммы без использования изображений. Теперь давайте реализуем эту программу с помощью ASP.
Подготовка. Используйте ACCESS для создания базы данных MDB с именем voice.mdb и создайте в ней следующие две таблицы:
Затем мы создаем файл conn.asp, который подключается к базе данных в соответствии с соглашением разработки ASP.
<%
'conn.asp
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("vote.mdb")
%>
Отображение списка проектов голосования, потому что мы хотим создать систему голосования с несколькими проектами voice_list.asp
<!--#include file="conn.asp"-->
<html>
<голова>
<title>Список вопросов для голосования</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/main.css" rel="stylesheet" type="text/css">
</голова>
<%
set rs=conn.execute("выберите * из порядка заголовков голосов по идентификатору голосования")
%>
<table border=1 cellpacing="0" style="border-collapse: коллапс" cellpadding="0" bgcolor="#ffffff" bordercolor="#000000" width=100%>
<тр>
<td bgcolor="#EFEFEF">Все списки голосования</td>
</tr>
<%do, пока не rs.eof%>
<тр>
<td>Число:<font color="#FF0000"><%=rs("voteid")%> </font><a href="vote.asp?voteid=<%=rs("voteid" )%>" target="_blank"><%=rs("votetitle")%>
</a>(<%=rs("time")%>)</td>
</tr>
<%rs.movenext
петля
RS.закрыть
установить rs=ничего%>
</таблица>
</тело>
</html>
Страница отображения голосования voice_show.asp
<%if request("voteid")="" тогда
response.write "Параметр не указан."
ответ.Конец()
конец, если%>
<!--#include file="conn.asp"-->
<html>
<голова>
<title>Просмотреть результаты</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<СТИЛЬ>
тд {размер шрифта: 12 пикселей}
тело {размер шрифта: 12 пикселей}
v:*{behavior:url(#default#VML);} //v здесь объявлен как общедоступная переменная VML
</СТИЛЬ>
<link href="../images/main.css" rel="stylesheet" type="text/css">
</голова>
<%
тусклый голос
voiceid=request("voteid")
set rs=conn.execute("выберите количество голосов из voice,votetitle, где voicetitle.voteid="&voteid&" и voice.voteid=votetitle.voteid в порядке по идентификатору")
iii=0
делай, пока не rs.eof
ii=ii+1
если ii=1, то
ceocio=trim(rs("количество"))
ceocio1=trim("array1["&iii&"]")
еще
ceocio=trim(ceocio&","&rs("count"))
ceocio1=trim(ceocio1&"+array1["&iii&"]")
конец, если
iii=iii+1
rs.movenext
петля
RS.закрыть
установить rs=ничего
'response.write ii
'response.write ceocio1
%>
<скрипт>
array1=new Array(<%=ceocio%>) //Разные номера голосования
allstr=<%=ceocio1%>
//оповещение(всестрока)
//allstr=array1[0]+array1[1]+array1[2]+array1[3]+array1[4]+array1[5] //Получаем общее число
for(i=0;i<=<%=(ii-1)%>;i++){
mathstr=Math.round(100/(allstr/array1[i])) //Находим процент, 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 background='15pt' on='true'/></v:rect>")
}
</скрипт>
<%
voiceid=request("voteid")
set rs=conn.execute("выберите * из voice,votetitle, где voicetitle.voteid="&voteid&" и voice.voteid=votetitle.voteid в порядке по идентификатору")
%>
<table border=1 cellpacing="0" style="border-collapse: коллапс" cellpadding="2" bgcolor="#ffffff" bordercolor="#000000" width=100%>
<тр>
<td bgcolor="#EFEFEF">Поиск результатов по:<font color="#FF0000"><%=rs("votetitle")%></font>:<br>
Всего в опросе приняли участие <b><font color="#FF0000"><%=rs("total")%></font></b><br>
(<%=rs("time")%>до<%=date%>)</td>
</tr>
<%do, пока не rs.eof
Дими
я=я+1%>
<тр>
<td>Option<%=i%>:<%=rs("title")%> <font color="#FF0000"><%=rs("count")%>Люди< /font></td>
</tr>
<%rs.movenext
петля
RS.закрыть
установить rs=ничего%>
<тр>
<тд> </тд>
</tr>
</таблица>
<br>
<a href="vote_list.asp">Просмотреть прошлые голоса</a> <br>
<a href="vote.asp?voteid=<%=request("voteid")%>">Проголосуйте за этот проект</a>
</тело>
</html>
voice.asp
<!--#include file="conn.asp"-->
<%if request("voteid")="" тогда
set rs=conn.execute("выберите 1 лучший идентификатор голосования из порядка голосов по идентификатору голоса")
voiceid=rs("voteid")
RS.закрыть
установить rs=ничего
еще
voiceid=request("voteid")
конец, если%>
<html>
<голова>
<title>Документ без названия</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<тело>
<%
если запрос("действие")="голосовать" тогда
'Добавьте ","&request("voteid")","чтобы не путать голос с идентификатором 1 и голос с идентификатором 11
если instr(request.cookies("vote"),","&request("voteid")&",")=0 тогда
еще
response.write "Вы уже проголосовали"
ответ.конец
конец, если
sql="update [vote] set count=count+1 где id="&request("votevalue")
conn.execute(sql)
sql="update [votetitle] set total=total+1 где voiceid="&request("voteid")
conn.execute(sql)
'Запись срока действия cookie
Response.Cookies("голосование").Expires=Дата+1
«Запишите все проголосовавшие варианты в файлы cookie, разделив их знаком «,».
Response.Cookies("vote")=","&Request.Cookies("vote")&","&Request("voteid")&","
voiceid=request("voteid")
«Перейти к основам
response.redirect "vote_show.asp?voteid="&voteid
конец, если
%>
<%
'тусклый голос
'voteid=request("voteid")
set rs=conn.execute("выберите * из voice,votetitle, где voicetitle.voteid="&voteid&" и voice.voteid=votetitle.voteid в порядке по идентификатору")
%>
<table border=1 cellpacing="0" style="border-collapse: коллапс" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<тр>
<td colspan="2" bgcolor="#EFEFEF">Расследование: <%=rs("votetitle")%>(<%=rs("time")%>)</td>
</tr><form name="form1" Method="post" action="vote.asp?action=vote&voteid=<%=voteid%>">
<%do, пока не rs.eof
Дими
я=я+1%>
<тр>
<td colspan="2">
<input type="radio" name="votevalue" value="<%=rs("id")%>" <%if i=1 then%>проверено<%end if%>>
<%=rs("title")%>
</td>
</tr>
<%rs.movenext
петля
RS.закрыть
установить rs=ничего%>
<тр>
<td colspan="2">
<%if instr(request.cookies("vote"),","&voteid&",")=0 then%>
<input type="submit" name="Submit" value="Vote"></form>
<%else%>
<font color="#FF0000">Вы уже проголосовали</font>
<%end if%></td>
</tr>
</таблица>
<br>
<a href="vote_list.asp">Просмотреть прошлые голоса</a> <br>
<a href="vote_show.asp?voteid=<%=voteid%>">Просмотреть результаты этого голосования</a>
</тело>
</html>
Страница управления серверной частью admin_vote_list.asp
<!--#include file="conn.asp"-->
<%'Добавьте права администратора здесь, для удобства всех сразу разрешу вход без проверки%>.
<html>
<голова>
<title>Список вопросов для голосования</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<тело>
<%
'Удалить модуль
тусклое действие
действие = запрос («действие»)
если действие="del" тогда
ДимStrSQL1,StrSQL2
StrSQL1="удалить из голосования, где voiceid="&request("voteid")
conn.Выполнить StrSQL1
StrSQL2="удалить из названия голосования, где voiceid="&request("voteid")
conn.Выполнить StrSQL2
ответ.Перенаправление "?"
конец, если
'Изменить модуль
'///////////////////////
'Изменить форму
если действие="добавить" тогда
%>
<table border=1 cellpacing="0" style="border-collapse: коллапс" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<тр>
<td bgcolor="#EFEFEF"><center>
Добавить новый опрос</center></td>
</tr>
<тр>
<td>Пожалуйста, введите количество вариантов, необходимых для этого опроса. </td>
</tr>
<тр>
<td><form name="form1" Method="post" action="?action=add1">
<выбрать имя="номер">
<%для i1=от 2 до 10%>
<option value="<%=i1%>"><%=i1%></option>
<%следующий%>
</выбрать>
<input type="submit" name="Submit" value="Submit">
</form></td>
</tr>
</таблица>
<%
конец, если
если действие="добавить1" тогда
число = запрос («число»)
%>
<table border=1 cellpacing="0" style="border-collapse: коллапс" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<тр>
<td bgcolor="#EFEFEF"><center>
Добавить новый опрос</center></td>
</tr>
<тр>
<td>Пожалуйста, введите данные, необходимые для этого опроса. </td>
</tr>
<тр>
<td><form name="form2" Method="post" action="?action=add2">
имя для голосования
<input type="text" name="votetitle">
<br>
<%for i2=от 1 до num%>
Параметры<%=i2%><input type="text" name="<%=i2%>"><br>
<%следующий%>
<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
если действие="добавить2" тогда
Set rs=Server.CreateObject("ADODB.Recordset")
sql="ВЫБРАТЬ * ИЗ названия голосования"
rs.Open sql,conn,1,3
rs.Addnew
rs("votetitle") = запрос("votetitle")
rs("время")=дата()
rs.Обновление
rs.Close
set rs=conn.execute("выберите 1 лучший идентификатор голосования из порядка голосов по идентификатору голоса")
voiceid=rs("voteid")
RS.закрыть
установить rs=ничего
'///////////////
'/////////////цикл
число = запрос («число»)
для i3 = от 1 до числа
Set rs=Server.CreateObject("ADODB.Recordset")
sql="ВЫБРАТЬ * ИЗ голосования"
rs.Open sql,conn,1,3
rs.Addnew
rs("title")=запрос(i3)
rs("voteid")=voteid
rs.Обновление
rs.Close
следующий
'////////////Конец цикла
Установить rs=Ничего
ответ. Напишите «<a href=admin_vote_list.asp>Добавлено успешно, верните</a>»
конец, если
'Конец формы модификации
'//////////////////////
'Изменить код выполнения
'Конец изменения кода выполнения
%>
<%if action="" тогда
set rs=conn.execute("выбрать * из порядка заголовков голосов по идентификатору голосования")
%>
<table border=1 cellpacing="0" style="border-collapse: коллапс" cellpadding="0" bgcolor="#ffffff" bordercolor="#C0C0C0" width=100%>
<тр>
<td colspan="2" bgcolor="#EFEFEF">Все списки голосования</td>
</tr>
<%do, пока не rs.eof%>
<тр>
<td width="44%">Число: <font color="#FF0000"><%=rs("voteid")%> </font><a href="vote.asp?voteid=<% =rs("voteid")%>" target="_blank"><%=rs("votetitle")%>
</a>(<%=rs("time")%>)</td>
<td width="50%">【<a href="?action=del&voteid=<%=rs("voteid")%>">Удалить</a>】</td>
</tr>
<%rs.movenext
петля
RS.закрыть
установить rs=ничего%>
<тр>
<td colspan="2">[<a href="?action=add">Добавить новый опрос</a>]</td>
</tr>
</таблица>
</тело>
</html>
<%end if%>
Окончательный эффект отображения следующий:
