Рекомендуется: динамические энтузиасты веб -сайтов: фильтрация функции ASP HTML ASP -фильтрация HTML -код является следующим указанным контентом: function RemoveHtml (strhtml) Dim objregexp, Match, совпадает с Set objregexp = new Regexp obj
Пример статистического производства, который может читать посетителей, рекордное количество посещений, IP и время
Я беру библиотеку доступа в качестве примера. На самом деле, если вы используете библиотеку SQL Server, просто измените операторы библиотеки ссылок. Структура библиотеки выглядит следующим образом
Имя файла библиотеки: продолжение.
Имя таблицы: вкладка
Имя поля Тип данных Описание
ID автоматически числа номер посетителя
IP -текст используется для записи IP -адреса посетителя
Dat1 Date Time используется для записи последнего посетителя
Дата дата используется для записи времени, когда посетитель впервые посещает
Номер CS, целое число типа используется для записи посещений посетителями
Программа очень проста, только с двумя файлами. Dispcont.asp используется для отображения статистических результатов, а contpage.asp используется для отображения статистической информации.
Давайте сначала посмотрим на статистику contpage.asp, код заключается в следующем:
| Ниже приведено цитируемое содержание: <% Установить conn = server.createObject (adodb.connection) Connstr = dbq = server.mappath (cont.asp); defaultdir =; Driver = {Microsoft Access Driver (*.mdb)}; Conn.open connstr '' *** Приведенный выше оператор используется для подключения к библиотеке, а Cont.asp - имя файла библиотеки. keren = request.cookies (keren) '«Читать файлы cookie, название файлов cookie: Keren, хаха. Полем Вонючняя вещь в литературе Аю - это то, что он только знает, как использовать пийнин. Если keren = то, судите, пусты ли файлы cookie. Если они пусты, они должны быть новыми друзьями, иначе они старые друзья. SQL = SELECT * FROM TAB, где id = -1 Установить rs = server.createObject (adodb.recordset) Rs.open SQL, Conn, 1, 3 Rs.addnew '' Если это новый посетитель, добавьте новую запись в библиотеку. rs (cs) = 1 '' Примечание. Количество посещений составляет 1 rs (ip) = request.servervariables (remote_addr) '' Скажите мне IP, rs (dat) = теперь '' расскажите текущую дату и время, rs (dat1) = date '' Расскажите текущую дату и дату, которая будет использоваться для первого посещения в будущем. response.cookies (keren) = rs (id) '' написать cookie, а контент такой же, как идентификатор. response.cookies (keren) .expires = date 365 '' Установите действительную дату файлов cookie с этого момента, 365 дней, иначе «вышеупомянутый способ иметь дело с новыми друзьями. Что мне делать со старыми друзьями? Посмотрите на следующее: sql = select * from tab, где id = & keren '' Зайдите в библиотеку, чтобы найти записи наших старых друзей Установить rs = server.createObject (adodb.recordset) Rs.open SQL, Conn, 1, 3 rs (cs) = rs (cs) 1 '' хорошо, найдено, добавить 1 посещение rs (ip) = request.servervariables (remote_addr) '«Посмотрите, что такое его IP, и запишите его. rs (dat) = теперь '' расскажите мне текущее время, то есть время последнего визита, response.cookies (keren) = rs (id) '' Затем напишите файлы cookie. Я не знаю, является ли это предложение избыточным, поэтому я не пробовал. response.cookies (keren) .expires = date 365 '' Установите время истечения срока службы печенья, чтобы я не узнал его, если наступит один год. конец, если Rs.update '' Я записал все, что мне следует помнить, обновить библиотеку. rs.close '' закройте объект записи. Установите conn = ничего '' выпуск Conn, я все еще думаю, что соединение должно быть включено и выключено как можно скорее. Я думаю, что это самое нежелательное, чтобы поставить его на сессию. 4 %> |
Хорошо, запись сделана, существует более двадцати строк кода, очень простая небольшая программа. После того, как программа написана, как ее можно размещать на странице? Это очень просто. Просто найдите место на домашней странице и добавьте эту строку кода: <img src = contpage.asp width = 0 height = 0>.
Следующим шагом является отображение записи.
Имя файла: dispcont.asp, см. Код:
| Ниже приведено цитируемое содержание: <% Установить conn = server.createObject (adodb.connection) Connstr = dbq = server.mappath (cont.asp); defaultdir =; Driver = {Microsoft Access Driver (*.mdb)}; Conn.open connstr '' *** Приведенный выше оператор используется для подключения к библиотеке, а Cont.asp - имя файла библиотеки. Page3 = запрос (pag) Если Page3 = Then Page3 = Session (contPag) '' Количество страниц, текущая страница Если Page3 = Тогда Page3 = 1 PA = запрос (PA) Если PA = Then PA = SESSION (CONTPA) '' Количество отображения на страницу Если PA = Then PA = 15 '' по умолчанию, на странице отображаются 15 элементов и могут быть изменены по желанию SESSION (CONTPAG) = Page3 сеанс (contpa) = pa Pages = pa '' Количество отображения на страницу ***************** SQL = SELECT * OF TAB ORDER BY -DAT, -ID Dim Rs Установить rs = server.createObject (adodb.recordset) Rs.open SQL, Conn, 1,1 CSI = 0 CS1 = 0 CS100 = 0 csdat1 = 0 делать, пока не rs.eof CSI = CSI RS (CS) Если rs (cs) = 1, то CS1 = CS1 1 Если rs (cs)> = 100, то CS100 1 Если datevalue (rs (dat)) = date then CSDAT1 = CSDAT1 1 конец, если Rs.movenext петля Zs = rs.recordcount '' ********************************************** 8 Следующая программа используется для дисплея страниц %> <голова> <название> онлайн -статистика </title> </head> <body style = font-size: 9pt bgcolor =#d8edf8> В общей сложности <%response.write zs%> записи, и теперь страница <%response.write page3%> Отображает каждую страницу: [<a href = dispcont.asp? Pag = <%= page3%> & pa = 15> 15], [<a href = dispcont.asp? Pag = Page3%> & pa = 20> 20], [<a pag = pag = page3%> & pa = 20> 20], [< href = dispcont.asp? pag = <%= page3%> & pa = 30> 30], [<a href = dispcont.asp? pag = <%= page3%> & pa = 40> 40] [<a href = dispcont.asp> обновить] <div Align = Left> <таблица границы = 0 cellpadding = 0 style = font-size: 9pt> <tr> <td> номер страницы </td> <%page2 = 1 для i = 1 до zs ступенчатые страницы Если Page3 = CSTR (Page2), тогда %> <Td> [<%response.write page2%>] </td> < % else %> <td> <a href = dispcont.asp? pag = <%response.write page2%>> [<%response.write page2%>] </td> <% end if Page2 = Page2 1 следующий sn = pages * (page3-1) '' Текущая запись записи = количество отображения на страницу * Количество страниц - количество отображения на страницу Если sn> zs, то sn = 0 Rs.Move SN, 1 '' ************************************* %> </tr> </table> </div> <table style = font-size: 9pt width = 100% bordercolorlight =#000000 border = 1 bordercolordark =#fffff bgcolor =#a4d1e8 cellpacing = 0 cellpadding = 3> <tr> <td> № </td> <td> Последнее посещение домашней страницы </td> <td> Последнее посещение IP </td> <td> Количество домашней страницы </td> <td> Номера первого посещения </td> </tr> <% для i = 1 на страницы Response.write </tr> Response.write <td> & rs (id) и </td> Response.write <td> & rs (dat) и </td> Response.write <td> & rs (ip) и </td> Response.write <td> & rs (cs) и </td> Response.write <td> & rs (dat1) и </td> Response.write </tr> Rs.movenext Если ref, то выйдите для следующий Rs.close %> <tr> <td> Total <%= zs%> </td> <td> Количество посещений составляет более 100 раз <%= cs100%> </td> <td> количество посещений составляет 1: <%= cs1%> </td> сегодня. <%= csdat1%> </td> </tr> </table> |
'' ****************************** Все они доступны. Никаких записей, ни какой -либо ситуации не рассматриваются.
Поделиться: игра Tetris, написанная в ASP Ниже приведено ссылочное содержание: <%, если не запрос. QueryString (ven) = t Тогда%> <html> <Head> <Meta name