Эта программа помещает номера счетчиков в базу данных ACCESS, но вы можете использовать любой другой источник данных ODBC. Эта программа считывает информацию счетчика из URL-адреса:
< IMG src="id=MYTEST&seq=default&cells =7" >.
Параметры
id — это
обозначение веб-страницы клиента (то есть имя пользователя). Каждый раз, когда вы используете новый идентификатор, в базу данных будет вставляться новая запись. Если идентификатор изначально существует, то его счетчик будет увеличиваться на 1. Если вы не хотите, чтобы клиент автоматически активировал идентификатор и нуждался в регистрации, то вы назначаете значение «автоматическая вставка» для False
seq
. Оно используется для выбора стиля изображения счетчика. имя изображения, отображаемого на клиенте, — .gif. Значение по умолчанию — «defalut.gif», и этот «defalut.gif» должен быть помещен в текущий рабочий каталог!
Количество цифр, отображаемых при подсчете, не является обязательным
.
результат, по умолчанию 5 цифр (это значение вы задаете в программе (тоже можно корректировать) Как запустить эту программу? Скопируйте эту программу в нужное вам место на сервере.
Создайте источник данных "Webcounter". Там должен быть таблица с именем «main» в этом источнике данных. Ниже приведены поля таблицы:
< table border="1" cellpadding="3" cellpacing="1" >.
<тр>
<th >Поле</th >
< th >Тип</th >
< th >Индексировано</th >
< th >Означает</th >
</tr >
<тр>
< td >идентификатор</td >
< td >Автонумер</ td >
< тд >Да</ тд >
< td >Для ваших нужд</td >
</tr >
<тр>
< td >id</td >
< td >Текст</ /td >
< тд >Да</ тд >
<td>Имя пользователя</td>
</tr >
<тр>
< td >количество</td >
< td >Число</ td >
< td >Нет</td >
< td >Подсчет чисел</td>
</tr >
</таблица>
При необходимости назначьте разрешения для базы данных
и создайте каталог для хранения изображений в формате GIF. В этом каталоге необходимо разместить хотя бы одну группу изображений default.gif. При необходимости предоставьте разрешения этому файлу.
Поместите в этот каталог числовые изображения, которые делятся на 10.
< table width="100%" border="1" cellpacing="1" cellpadding="2" >
<тр>
< td bgcolor="#ccffff" >Файл < b >counter.asp</b > </ /td >
</tr >
<тр>
< td bgcolor="#ffffcc" >< предварительно >
<%
Response.ContentType="изображение/гиф"
Ответ.Истекает=0
'Каталог, в котором размещаются GIF-панели, заканчивается на .
workdir="c:gifbars"
'Установите значение False, если хотите отключить автоматическую вставку
'новые записи счетчиков в базу данных при каждом попадании с уникальными
'идентификатор строки
auto_insert = Истина
id=Trim(Request.QueryString("id"))
seq=Trim(Request.QueryString("seq"))
если seq="", то seq="default"
ячейки = Обрезать (Request.QueryString («ячейки»))
если ячейки="" то ячейки=5 иначе ячейки=ячейки*1
set conn=Server.CreateObject("ADODB.Connection")
conn.Открыть «Веб-счетчик»
sql="выберите счетчик,идент из основного, где id='" & id & "'"
установить rs=conn.Execute(sql)
если не rs.EOF, то
count=rs("count")+1
идентификатор = rs («идентификатор»)
rs.close()
conn.Execute("обновить основной набор count=count+1, где ident=" & ident)
конн.закрыть()
ПоказатьНомберс()
еще
rs.close()
если auto_insert=True и id< >"" тогда
conn.Execute("вставить в основные значения (id,count) ('" & id & "',1)")
количество = 1
ПоказатьНомберс()
конец, если
конн.закрыть()
конец, если
Sub ShowNumbers()
set g=CreateObject("shotgraph.image")
имя_файла=рабочий каталог и последовательность & ".gif"
если g.GetFileDimensions(filename,xsize,ysize,pal)< >1, то Exit Sub
xdigit=xsize10
g.CreateImage xdigit*cells,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 имя файла, приятель, 0,0
для i=1 в ячейки
k = GetDigit (количество, ячейки-я)
g.Copy (i-1)*xdigit,0,xdigit,ysize,k*xdigit,0,"SRCCOPY"
следующий
Response.BinaryWrite g.GifImage(-1,1,"")
Конечная
подфункция GetDigit(число,позиция)
число1=число(10^позиция)
tmp=число110
GetDigit=номер1-tmp*10
Конечная функция
%>
<xmp>
</pre >
</ /тд >
</tr >
</table>
<час >< /span >< /td >
</tr >
<тр>
< td width="50%" > </ /td >
< td width="50%" >< br >< /td >
</tr >
<тр>
< td colspan=2 align="right" >
< 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 )) return false;" >Сохранить эту страницу</a >
< img border="0" src="images/ask.gif" >< a href="bbs/index.asp" >У вас есть вопросы</a>
</ /тд >
</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 >
<тр>
< td width="50%" valign="top" >
</ /тд >
< td width="50%" valign="top" >
</ /td >
</tr >
<тр>
<td width="50%" >
</ /тд >
< td width="50%" align="right" >< img border="0" src="images/more.gif" >< a id="hlkRela" >< /a >< /td >
</tr >
</таблица>
</ /тд >
</tr >
</таблица>
</ /тд >
</tr >
</таблица>
</тело>
</html >