Рекомендуется: разработать модуль входа в систему для пользователей ASP Скрипт проверки входа в систему пользователя, chkpwd.asp Ниже приведен ссылочный контент: % '======== Скрипт проверки входа в систему пользователя =====
Эта программа помещает количество счетчика в базе данных Access, и, конечно, вы также можете использовать другие источники данных ODBC, которые вы хотите. Эта программа считывает информацию об подсчете из URL. Следующее:
<Img src = id = mytest & seq = default & cells = 7>
параметр
идентификатор
Peugeot (то есть имя пользователя) веб -страницы клиента. Каждый раз, когда вы используете новый идентификатор, в базу данных будет вставлена новая запись. Если этот идентификатор существует, его количество будет увеличено на 1. Если вы не хотите, чтобы клиент автоматически запускал идентификатор и необходимо зарегистрироваться, то вы назначите значение автоматически вставлено FALSE.
себ
Необязательный. Используется для выбора стиля встречного изображения. Название изображения, отображаемого на клиенте, является .gif. Значение по умолчанию - defalut.gif, и этот defalut.gif должен быть помещен в текущий рабочий каталог!
ячейки
Необязательный. Количество битов, отображаемых в результате подсчета, составляет 5 бит (вы можете настроить это значение в программе), как запустить эту программу
Скопируйте эту программу туда, где вы хотите, на сервере.
Создайте Webcounter источника данных. В этом основном источнике данных должно быть имя таблицы, и ниже приведены поля в этой таблице:
Ниже приведено цитируемое содержание:
<таблица границы = 1 cellpadding = 3 сотовой связи = 1>
<tr>
<Th> поле < /th>
<Th> Тип < /th>
<Th> индексирован < /th>
<Th> означает < /th>
< /tr>
<tr>
<td> idet < /td>
<Td> AutoNumber </td>
<td> Да < /td>
<TD> для ваших потребностей </td>
< /tr>
<tr>
<td> id < /td>
<td> Текст < /td>
<td> Да < /td>
<TD> имя пользователя </td>
< /tr>
<tr>
<td> count < /td>
<td> номер < /td>
<td> Нет < /td>
<TD> Подсчет чисел < /td>
< /tr>
< /table>
При необходимости назначить разрешение на базу данных
Создайте каталог, в котором хранится GIF -графика, и поместите хотя бы по умолчанию графическую группу. GIF в этом каталоге. Дайте разрешения на этот файл по мере необходимости.
Поместите некоторую цифровую графику в этот каталог, которые можно делить на 10.
Ниже приведено цитируемое содержание:
<таблица ширины = 100% граница = 1 созревание = 1 cellpadding = 2>
<tr>
<td bgcolor =#ccffff> file <b> counter.asp < /b> < /td>
< /tr>
<tr>
<td bgcolor =#ffffcc> <pre>
< %
Response.contenttype = Image/Gif
Response.expires = 0
«Справочник, где расположены GIF -бары. Заканчивается / /
workdir = c:/gifbars/
'Установите это на false, если вы хотите отключить автоматическую вставку
'Новые записи встречных записей в базе данных на каждом хите с уникальным
'ID String
auto_insert = true
id = trim (request.querystring (id))
seq = trim (request.querystring (seq))
Если seq = then seq = по умолчанию
ячейки = trim (request.querystring (ячейки))
Если клетки = то клетки = 5 клетки = клетки*1
Установить conn = server.createObject (adodb.connection)
Conn.Open Webcounter
SQL = SELECT COUNT, IDENT от Main, где id = '& id &'
Установить rs = conn.execute (sql)
Если не rs.eof, то
count = rs (count) 1
Ident = Rs (Ident)
rs.close ()
conn.execute (обновление основной набор count = count 1, где идентификация = и идентификация)
conn.close ()
Showmbers ()
еще
rs.close ()
Если auto_insert = true и id <> then
conn.execute (вставьте в Main (id, count) значения ('& id &', 1))
счет = 1
Showmbers ()
конец, если
conn.close ()
конец, если
Sub indayumbers ()
SET G = createObject (Shotgraph.image)
filename = workdir & seq & .gif
Если g.getFileDiMensions (имя файла, xsize, ysize, pal) <> 1, то выходите
xdigit = xsize/10
g.createimage xdigit*клетки, ysize, ubound (pal) 1
g.initclipboard xsize, ysize
G.SelectClipboard True
для i = 0 до Ubound (PAL)
G.SetColor I, Pal (I, 0), Pal (I, 1), Pal (i, 2)
следующий
G.ReadImage Filename, PAL, 0,0
для i = 1 к ячейкам
k = getDigit (счет, клетки-i)
g.copy (i-1)*xdigit, 0, xdigit, ysize, k*xdigit, 0, srccopy
следующий
Response.binarywrite g.gifimage (-1,1,)
Конец суб
Функция getDigit (число, позиция)
number1 = номер/(10^позиция)
TMP = №1/10
GetDigit = number1-tmp*10
Конечная функция
%>
<xmp>
< /pre>
< /td>
< /tr>
< /table>
<hr> < /span> < /td>
< /tr>
<tr>
<td ширина = 50%> < /td>
<td ширина = 50%> <br> < /td>
< /tr>
<tr>
<td colspan = 2 align = справа>
<img border = 0 src = images/bbstitle.gif> <a id = hlkaddmsg href =/addmsg.aspx? id = 234 style = color: red> оставить комментарий </a>
<img border = 0 src = images/mail.gif> <a id = hlkmailto href =/mailto.aspx? id = 234> Отправить эту страницу </a>
<img border = 0 src = images /print.gif> <a href = javaScript: window.print ()> Печать этой страницы < /a>
<img border = 0 src = images/profile.gif> <a href = javascript: void (null) onclick = if (! document.execcommand ('saveas', 'show.aspx', 1)) вернуть false; > Сохраните эту страницу < /a>
<img border = 0 src = images/ask.gif> <a href = bbs/index.asp> У вас есть вопросы </a>
< /td>
< /tr>
<tr bgcolor =#97b9ff>
<td width = 50%> <b> <font color =#ffffff> Связанные статьи < /font> < /b> < /td>
<td width = 50%> <b> <font color =#ffffff> Связанные комментарии < /font> < /b> < /td>
< /tr>
<tr>
<td ширина = 50% valign = top>
< /td>
<td ширина = 50% valign = top>
< /td>
< /tr>
<tr>
<TD ширина = 50%>
< /td>
<td width = 50% align = right> <img border = 0 src = images /more.gif> <a id = hlkrela> < /a> < /td>
< /tr>
< /table>
< /td>
< /tr>
< /table>
< /td>
< /tr>
< /table>
< /body>
< /html>
Поделиться: краткое обсуждение принципа программы приобретения ASP Основные этапы программы сбора следующие: 1.