Главная страница>Учебник по сетевому программированию>Учебное пособие по ASP

Простой пример создания статистики ASP

Автор：Eve Cole Время обновления：2025-02-19 06:12:01

Пример статистической продукции, которая может подсчитывать посетителей и записывать количество посещений, IP и время. Друзья, которым это нужно, могут обратиться к нему.

Я сделала сайт, и конечно, как и все, поставила на него счетчик, продолжала читать счетчик каждый день, что меня очень обрадовало, но потом я подумала, кто же вообще видел мой сайт? друзья или старые друзья? Не знаю, сколько раз они приходили, но мне все равно хотелось их всех пронумеровать, поэтому я подал заявку на бесплатную статистику, но после смены N номеров подряд меня все равно не устроило. Увы, похоже, только так. иметь достаточно еды и одежды - это сделать это самому. Просто сделай это, я все еще надеюсь, что эксперты посмеются над этим и не попросят совета.

В качестве примера я взял библиотеку ACCESS . Фактически, чтобы использовать библиотеку SQL SERVER, вам нужно всего лишь изменить оператор ссылки библиотеки.

Структура библиотеки следующая.

Имя файла библиотеки: CONT.ASP Первоначально это был CONT.MDB, но после сборки расширение было изменено на ASP, чтобы предотвратить загрузку библиотеки.

Имя таблицы: вкладка

Описание типа данных имени поля

ID Автоматически нумеровать номер посетителя

IP-текст используется для записи IP-адреса посетителя.

Дата и время dat1 используются для записи последнего посещения посетителем

Дата и время dat используются для записи времени первого посещения посетителя

Номер CS, целое число, используемое для записи количества посещений посетителя.

Программа очень проста, состоит всего из двух файлов: dispcont.asp используется для отображения статистических результатов, а contpage.asp — для статистической информации.

Давайте сначала посмотрим на статистику CONTPAGE.ASP. Код выглядит следующим образом:

  1. <%SetConn=Server.CreateObject(ADODB.Connection)
  2. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  3. Conn.Openconnstr'***** Приведенный выше оператор используется для подключения к библиотеке, а cont.asp — это имя файла библиотеки.
  5. keren=request.cookies(keren)'Читать файлы cookie, имя файлов cookie: керен, хаха. . «Е» А Ю — плохое литературное слово, и он умеет использовать только пиньинь.
  6. ifkeren=then' определяет, является ли Cookies пустым. Если оно пустое, то это должен быть новый друг, в противном случае это старый друг.
  8. sql=SELECT*FROMtabwhereid=-1
  9. setrs=server.createobject(ADODB.Recordset)
  10. rs.Opensql,conn,1,3
  11. rs.addnew'Если это новый посетитель, добавьте новую запись в библиотеку.
  12. rs(cs)=1' записываем количество посещений как 1
  13. rs(ip)=request.servervariables(remote_addr)' запишите IP,
  14. rs(dat)=now'Запомните текущую дату и время,
  15. rs(dat1)=date'Запомните текущую дату и используйте ее как дату первого посещения в будущем.
  16. response.cookies(keren)=rs(id)'Запишите файл cookie, его содержимое совпадает с идентификатором.
  17. response.cookies(keren).expires=date+365'Установите дату действия файлов cookie, начиная с настоящего момента, 365 дней,
  1. else'Выше написано, как вести себя с новыми друзьями. Что нам делать со старыми друзьями? Смотрите ниже:
  2. sql=SELECT*FROMtabwhereid=&keren'Идем в библиотеку и находим запись нашего старого друга
  3. setrs=server.createobject(ADODB.Recordset)
  4. rs.Opensql,conn,1,3
  5. rs(cs)=rs(cs)+1'Хорошо, нашел, прибавь 1 к количеству посещений
  6. rs(ip)=request.servervariables(remote_addr)'Посмотрите, какой у него IP, и запишите его.
  7. rs(dat)=now'Запомните текущее время, то есть время последнего посещения,
  8. response.cookies(keren)=rs(id)', а затем записываем файлы cookie. Не знаю, является ли это предложение избыточным, я не пробовал.
  9. response.cookies(keren).expires=date+365'Установите срок действия файла cookie, чтобы я не узнал его через год.
  1. конец
  3. rs.update' всё что надо записать я записал, давайте обновим библиотеку.
  4. rs.close'Закройте объект набора записей.
  5. setconn=nothing' освобождает conn. Я все же считаю, что соединение должно открываться и закрываться в любой момент, ставить его в SESSION думаю крайне нежелательно. 4%〉

Хорошо, запись готова. В ней более двадцати строк кода, и это очень простая небольшая программа.

Как разместить программу на странице после того, как она написана? Это очень просто. Просто найдите место на главной странице и добавьте следующую строку кода: <img src=contpage.asp width=0 height=0>.

Следующий шаг — показать рекорды. Есть много людей, которые могут добиться большего, чем Аю, но я все равно хочу продемонстрировать свое уродство.

Имя файла: dispcont.asp, смотрите код:

  1. <%
  2. SetConn=Server.CreateObject(ADODB.Connection)
  3. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  4. Conn.Openconnstr'***** Приведенный выше оператор используется для подключения к библиотеке, а cont.asp — это имя файла библиотеки.
  6. страница3 = запрос (страница)
  7. ifpage3=thenpage3=session(contpag)'Количество страниц, текущая страница
  8. еслистраница3=тостраница3=1
  10. па=запрос(па)
  11. ifpa=thenpa=session(contpa)'Количество показов на странице
  12. ifpa=thenpa=15' по умолчанию отображает 15 элементов на странице, которые можно изменить произвольно.
  13. сеанс (contpag) = страница3
  14. сеанс (contpa) = год
  15. Pages=pa'Отображать количество страниц на странице******************Вышеуказанная программа используется для реализации функции пейджинга.
  17. SQL=SELECT*FROMtaborderby-dat,-id
  18. димры
  19. Setrs=Server.CreateObject(ADODB.RecordSet)
  20. rs.Opensql,conn,1,1
  21. csi=0
  22. cs1=0
  23. cs100=0
  24. csdat1=0
  25. do whilenotrs.eof
  26. csi=csi+rs(cs)
  27. ifrs(cs)=1thencs1=cs1+1
  28. ifrs(cs)〉=100thencs100+1
  29. ifdatevalue(rs(dat))=datethen
  30. csdat1=csdat1+1
  31. конец
  32. rs.movenext
  33. петля
  34. ZS=RS.RECORDCOUNT
  35. '********************************************** * ***8Для постраничного отображения используется следующая программа.
  36. %〉
  38. <голова>
  39. 〈title〉Отличная компьютерная статистика〈/title〉
  40. </голова>
  41. 〈bodystyle=font-size:9ptbgcolor=#D8EDF8〉
  42. Всего имеется записей 〈%Response.Writezs%〉. Текущая страница — 〈%Response.Writepage3%〉. На каждой странице отображается: [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=15〉15. ], [<ahref=dispcont. asp?pag=〈%=page3%〉&pa=20〉20] элементов, [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=30〉30] элементов, [〈ahref=dispcont.asp? pag=〈%=page3%〉&pa=40〉40]
  43. [〈ahref=dispcont.asp〉Обновить]
  44. 〈divalign=влево〉
  45. 〈tableborder=0cellpadding=0style=font-size:9pt〉
  46. 〈tr〉〈td〉Номер страницы〈/td〉〈%page2=1
  47. fori=1tozssteppages
  48. еслистраница3=cstr(страница2),то
  49. %〉〈td〉[〈%Response.Writepage2%〉]〈/td〉
  50. <%еще%>
  51. 〈td〉〈ahref=dispcont.asp?pag=〈%Response.Writepage2%〉〉[〈%Response.Writepage2%〉]〈/td〉
  52. <%endif
  53. страница2=страница2+1
  54. следующий
  55. sn=pages*(page3-1)'Номер текущей записи=количество отображаемых на странице*количество страниц-количество отображаемых на странице
  56. еслисн〉zsthensn=0
  57. rs.movesn,1
  58. '************************************Вышеуказанный абзац используется для пейджинговой связи.
  59. %〉〈/tr〉〈/таблица〉
  60. 〈/div〉〈tablestyle=font-size:9ptwidth=100%bordercolorlight=#000000border=1bordercolordark=#FFFFFFbgcolor=#A4D1E8cellspacing=0cellpadding=3〉
  61. 〈tr〉〈td〉Номер〈/td〉〈td〉Последняя посещенная домашняя страница〈/td〉〈td〉IP-адрес последнего посещения〈/td〉〈td〉Количество домашних страниц〈/td〉〈td〉Дата первого посещения〈/td 〉 〈/tr〉〈%
  62. fori=1topages
  63. Response.Write〈/tr〉
  64. Response.Write〈td〉&rs(ID)&〈/td〉
  65. Response.Write〈td〉&rs(dat)&〈/td〉
  66. Response.Write〈td〉&rs(IP)&〈/td〉
  67. Response.Write〈td〉&rs(CS)&〈/td〉
  69. Response.Write〈td〉&rs(DAT1)&〈/td〉
  70. Response.Write〈/tr〉
  71. rs.movenext
  72. ifrs.eofthenexitfor
  73. следующий
  74. RS.закрыть
  75. %〉
  76. 〈tr〉〈td〉Total〈%=zs%〉〈/td〉〈td〉Есть те, кто посетил более 100 раз〈%=cs100%〉〈/td〉〈td〉Есть те, кто посетил 1 : 〈%=cs1%〉〈/td〉〈td〉Общее количество посещений 〈%=csi%〉〈/td〉〈td〉Сегодняшние посещения: 〈%=csdat1%〉〈/td〉〈/tr〉
  77. </стол>

Вышеупомянутое представляет собой полный пейджинговый дисплей, который можно скопировать и использовать (примечание: ситуация, когда нет записи, не рассматривается, как говорится, только сделав это самостоятельно, можно иметь достаточно еды и одежды, так что поторопитесь). попробуйте!

Связанные статьи