Вот красивый графический счетчик, созданный без CGI.
Он разделен на три части: 1. Создание графических файлов.
2. Создайте базу данных.
3. Напишите код.
1. Создайте графические файлы.
Сначала с помощью графического программного обеспечения создайте 10 изображений для отображения десяти чисел счетчика: 1, 2, 3, 4, 5, 6, 7, 8, 9, 0. Если у вас есть художественный талант, вы можете сделать графику лучше.
2. Создайте базу данных.
Используйте для создания базы данных с именем. В базе данных есть таблица,
Имя такое, структура такая: целое число, запись одна, начальное значение 0.
Используется для хранения последнего количества посещений этой страницы.
3. Напишите код.
——————number.asp————————————
<%@ Language="vbscript" %>
<!--#include file="adovbs.inc"-->
<%
set objconn=server.createobject("adodb.connection")
objconn.attributes=adxactcommitretaining
dbpath=server.mappath("num.mdb")
objconn.open "driver={драйвер доступа Microsoft (*.mdb)};dbq=" & dbpath
Примечание. Установите соединение с базой данных.
sqlquery="выбрать * из числа"
set rsrecordset=server.createobject("adodb.recordset")
rsrecordset.open sqlquery,objconn,adopenkeyset,adlockoptimistic
Примечание. Откройте базу данных.
приложение.lock
application("nmb") = rsrecordset("номер")
приложение.разблокировка
Примечание. Назначьте счетчик последнего доступа объекту приложения
application.lock.
приложение("нмб")=приложение("нмб")+1
приложение.разблокировка
rsrecordset("номер")=rsrecordset("номер")+1
rsrecordset.update
rsrecordset.close
objconn.close
установить rsrecordset=ничего
установить objconn=ничего
Примечание. Закройте базу данных и освободите объект
dim nmb1.
дим стр()
nmb1=приложение("nmb")
восстановить ул (nmb1)
от i=1 до len(nmb1)
ул (я) = середина (nmb1, я, 1)
Примечание. Для каждого числа получите соответствующий графический файл,
выберите регистр str(i)
случай "0"
imgF="0.gif"
случай "1"
imgF="1.gif"
случай "2"
imgF="2.gif"
корпус "3"
imgF="3.gif"
корпус "4"
imgF="4.gif"
корпус "5"
imgF="5.gif"
корпус "6"
imgF="6.gif"
корпус "7"
imgF="7.gif"
корпус "8"
imgF="8.gif"
корпус "9"
imgF="9.gif"
конец выбора
Примечание. Вывод графического
ответа.write"<img src="&imgF&">"
следующий
%>