С ростом популярности Интернета онлайн-опросы зачастую позволяют добиться лучших результатов. Размещение доски опросов с интересными вопросами на вашем личном веб-сайте может действительно добавить ему красок, и благодаря результатам опроса вы сможете все более и более точно узнавать мнения пользователей сети о вашем веб-сайте; Как веб-мастер, если на вашем веб-сайте также необходимо проводить опросы по определенной теме, и вы ненавидите использовать доски опросов, предоставляемые другими бесплатно (бесплатность часто имеет свою цену, например, за рекламу!), то я предлагаю вам потратить десять минут времени. прочитать эту статью, в которой рассказывается об использовании ASP для создания доски опросов. Вам нужно всего лишь скопировать код из статьи на свой компьютер, внести небольшие изменения, и вы сразу же получите собственную персонализированную доску опросов. Ладно, взбодрись и посмотри вниз.
На этой доске опросов есть три файла: отображение вопросов опроса (research.html), обработка выбора пользователя (select.asp) и просмотр результатов опроса (viewresult.asp). Идея дизайна такова: ASP получает информацию, отправленную из формы, и соответствующим образом изменяет базу данных, в которой записано количество голосов в опросе. Затем ASP считывает базу данных, получает количество голосов по каждому вопросу опроса и настраивает соответствующую полосу. Отображение графика в зависимости от количества голосов. Результаты опроса представлены интуитивно и пропорционально. Я дал более подробные комментарии по ключевым моментам программы и не буду здесь вдаваться в базовые знания ASP. Читатели могут проверить это в колонке Taoba ASP. Конечно, я надеюсь, что при отладке программы на своем сервере, если вы чего-то не понимаете, вам следует просмотреть техническое руководство ASP, чтобы увидеть подробный синтаксис объектов, методов или функций, попытаться изменить его. и посмотрите, как изменяются результаты. Это отличный способ изучить программирование.
1. Отображение вопросов опроса (research.html).
Дизайн вопросов опроса должен основываться на реальной ситуации, быть практичным или интересным, а стиль, отображаемый на веб-странице, может быть простым или ярким. В этом примере это описание. вопрос на домашней странице автора. Интересный опрос на тему «Что самое важное в 21 веке?» Чтобы проиллюстрировать проблему, в следующем коде опущен код эстетической модификации. Если вы проектируете его самостоятельно, вы можете это сделать. используйте таблицы и другие методы, чтобы украсить отображение вопросов опроса. Чтобы заставить Ти сменить дракона? Клены Лай Та махнули граблями и воспользовались Гуем, сказал Цзюнь?
Researchindex.html:
< html >
<title>Тест опросной комиссии</title>
<голова>
< !-- старт: Определить новое окно-- >
<язык сценария=javascript>
< !--
вар newWindow = ноль
функцияOpenWindow(htmurl)
{
если (! newWindow || newWindow.closed)
{
новоеОкно =
window.open(htmurl,"newwin","панель инструментов=нет,resiza =нет,полосы прокрутки=нет,ширина=400,высота=280");
}еще
{
новоеОкно.фокус();
}
}
//-- >
</ /скрипт >
<!-- end: Определить новое открытое окно-->
</ / голова >
<тело>
< !-- начало: вопросы опроса, параметры -- >
< p >Что вы считаете самым важным в 21 веке? </p>
< form Method="POST" action="vote/select.asp" name="research" LANGUAGE="javascript"
onSubmit="OpenWindow()" target="newwin" >
< p align="left" >
<бр>
< input type="radio" value="1" name="Options" >Знания (знание – сила)< br >
< input type="radio" value="2" name="Options" >Академическая квалификация (академическому сообществу нет конца)< br >
< input type="radio" value="3" name="Options" >Деньги (экономика – основа)< br >
< input type="radio" value="4" name="Options" >Любовь (любовь, которая никогда не войдет в могилу)< br >
< input type="radio" value="5" name="Options" >Идеал (боже, что такое идеал)< br >
< input type="radio" value="6" name="Options" >Демократическая осведомленность (обеспокоенность по поводу политики)< br >
< input type="radio" value="7" name="Options" >Научная мысль (омоложение страны посредством науки и образования)< br >
< input type="submit" value="submit" name="voting" >
< input type="button" value="View" name="viewing" onClick="OpenWindow(vote/viewresult.asp)" >
</форма>
< !-- начало: вопросы опроса, параметры -- >
</тело>
</html >
2. Обработка выбора пользователя (select.asp).
На основе приведенных выше параметров опроса мы создаем структуру базы данных Researchdb.mdb (на примере Access), в которой записываются голоса опросов. Имя таблицы: исследование. Если ваша база данных и таблицы не сохранены с указанными выше именами, не забудьте соответствующим образом изменить их в последующих процедурах и операциях.
Табличное исследование, в котором хранятся номера голосов опроса:
имя поля, тип данных, значение по умолчанию.
идентификатор автоматический номер 1
выбрать1 номер 0
выберите2 номер 0
выберите3 номер 0
выберите4 номер 0
выберите5 номер 0
выберите6 номер 0
select7 число 0
После построения базы данных давайте создадим источник данных на сервере. Сначала запустите «ODBC» на «Панели управления», выберите «Системный DSN», нажмите кнопку «Добавить», выберите «Драйвер Microsoft Access», после выбора нажмите кнопку «Готово», а затем нажмите «Источник данных» в настройки ODBC. Введите имя базы данных в поле ввода «Имя», в данном случае ResearchDB, затем нажмите кнопку «Выбрать», чтобы выбрать файл базы данных (вы не скажете, что забыли, где находится только что созданная база данных). существует) и нажмите «ОК» после его выбора. Вы увидите вновь созданный источник данных ResearchDB. Таким образом, мы можем вызвать это в ASP.
select.asp:
< %
Приведенный ниже оператор if определяет, сделал ли пользователь выбор, проверяя, является ли выбранное пустым.
если request.form("options") < >Пусто, тогда
% >
< %
Следующий оператор if сравнивает значения двух коллекций (ServerVariables и Cookies) запроса, чтобы предотвратить постоянное нажатие пользователем кнопки «Отправить» и влияние на результаты расследования.
если не Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress"), то
Запишите IP-информацию посетителя в файлы cookie.
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
%>
<%
Создайте объект Connection и откройте базу данных, в которую записываются результаты опроса.
set conn=server.createobject("ADODB.CONNECTION")
conn.open "исследовательская база данных"
% >
< %
Определить переменные
димры
димсквел
тусклый выбранный
selected=request.form("опции")
Создайте объект Recordset, откройте объект с помощью метода Open и одновременно измените соответствующие данные.
set rs=server.createobject("adodb.recordset")
Измените данные в таблице данных исследования, то есть увеличьте соответствующее количество голосов на 1.
sql="обновить набор исследований select"&selected&"=select"&selected&"+1 где id=1"
rs.open sql,conn,3,3
Очистить объект коллекции записей из памяти
установить rs=ничего
тесная связь
конн.закрыть
Очистить объект подключения из памяти
установить соединение = ничего
Подключитесь к странице, чтобы просмотреть результаты опроса
ответ.перенаправление "viewresult.asp"
еще
Response.write «Напоминание о неудачном голосовании: вы только что проголосовали, спасибо за вашу поддержку!»
конец, если
еще
Response.write "Подсказка об ошибке голосования: вы забыли выбрать!"
конец, если
% >
3. Просмотр результатов опроса (viewresult.asp)
В этом примере для визуального отображения результатов опроса используется гистограмма. Метод заключается в умножении процентного значения количества голосов за вариант к общему количеству голосов. на 5, и полученное значение используется в качестве полосы. Ширина отображения bar.gif (вы можете использовать обычные инструменты для работы с изображениями, чтобы создать небольшую гистограмму градиента, или загрузить ее в Интернете). Для того, чтобы выдать процент голосов с двумя знаками после запятой, в программе используется функция округления Round в VBScript. Для красоты результаты опроса отображены в таблице, как показано на рисунке. Конструкция таблицы не включена в код, приведенный ниже.
просмотррезультата.asp
<%
set conn=server.createobject("ADODB.CONNECTION")
conn.open "исследовательская база данных"
%>
<%
димры
димсквел
тусклый выбор 1
тусклый выбор 2
тусклый выбор 3
тусклый выбор4
тусклый выбор 5
тусклый выбор 6
тусклый выбор7
тусклый итог
set rs=server.createobject("adodb.recordset")
sql="выберите * из исследования, где id=1"
rs.open sql,conn,1,1
total=rs("select1")+rs("select2")+rs("select3")+
_ rs("select4")+rs("select5")+rs("select6")+rs("select7")
Определите, равно ли общее количество голосов 0, и убедитесь, что следующее разделение справедливо.
если всего > 0, то
select1=(rs("select1")/всего)*100
select2=(rs("select2")/всего)*100
select3=(rs("select3")/всего)*100
select4=(rs("select4")/всего)*100
select5=(rs("select5")/всего)*100
select6=(rs("select6")/всего)*100
select7=(rs("select7")/всего)*100
%>
< p >Спасибо за участие. Ниже приведены текущие результаты опроса.
<р>
◇Знания:
< img src=bar.gif width=< %=int(select1*5)% > height=4 >
< %=rs("select1")% >Период: < %=round(select1,2)% >%< br >
◇Образование:
< img src=bar.gif width=< %=int(select2*5)% > height=4 >
< %=rs("select2")% >Период: < %=round(select2,2)% >%< br >
◇Деньги:
< img src=bar.gif width=< %=int(select3)*5% > height=4 >
< %=rs("select3")% >Период: < %=round(select3,2)% >%< br >
◇Любовь:
< img src=bar.gif width=< %=int(select4)*5% > height=4 >
< %=rs("select4")% >Период: < %=round(select4,2)% >%< br >
◇Идеально:
< img src=bar.gif width=< %=int(select5)*5% > height=4 >
< %=rs("select5")% >Период: < %=round(select5,2)% >%< br >
◇Демократическое сознание:
< img src=bar.gif width=< %=int(select6)%*5 > height=4 >
< %=rs("select6")% >Период: < %=round(select6,2)% >%< br >
◇Научная мысль:
< img src=bar.gif width=< %=int(select7)%*5 > height=4 >
< %=rs("select7")% >Люди: < %=round(select7,2)% >%</p >
< p align="center" >Уже: < %=total% > человек приняли участие в опросе < бр >< бр >
【< a href="javascript:window.close()" >Закрыть окно</a>】</p>
<р>
<%
еще
response.write "В опросе еще никто не участвовал"
конец, если
RS.закрыть
установить rs=ничего
конн.закрыть
установить соединение = ничего
%>
Примечание.
Приведенные выше коды были отлажены в WindowsNT4.0 Chinese (Pack 6)/IIS4.0.
ASP может выполняться в любой из следующих сред:
1. Windows NT Server 4.0/IIS3.0 или выше. 2. Windows NT WorkStation 4.0/Microsoft Peer Web Service 3.0 или выше. 3. Windows 95/98/Microsoft Personal Web Server 1.0a. или выше