Я только что нашел счетчик. Поскольку на веб -сайте слишком мало посещений, это действительно немного потертое, чтобы положить там счетчик, поэтому я могу сделать только простой, к которому можно получить доступ и записан один раз, чтобы поддержать магазин. Раньше у меня был один, но я был в депрессии, что не мог его найти. Я пел онлайн и, наконец, сделал это. Конкретный код программы выглядит следующим образом.
Код для count.asp:
Кода -копия выглядит следующим образом:
<%
OptionExplice
Dimfs, имя файла, TXT, Content, Total, Counter_lenth
contre_lenth = 1 'Устанавливает минимальную длину отображаемых данных. Если это меньше фактической длины, фактическая длина должна преобладать.
setfs = server.createObject ("scripting.filesystemobject")
filename = server.mappath ("count.txt")
ifnotfs.fileexists (имя файла) тогда
fs.createtextfilefilename, true, true
Settxt = fs.opentextfile (имя файла, 2, верно)
txt.write0'If нет файла, который сохраняет данные, создает новый файл и запишите данные 0
setfs = ничего
эндиф
settxt = fs.opentextfile (имя файла)
Iftxt.atendofstreamthen
Application («счетчик») = 0 'Если в файле нет данных, значение Application («счетчик») инициализируется (для устойчивости к неисправности)
еще
Приложение ("счетчик") = txt.readline
эндиф
Application.lock
Приложение («Счетчик») = Приложение («Счетчик»)+1
Application.unlock
Functionsave_'save count function
setfs = server.createObject ("scripting.filesystemobject")
filename = server.mappath ("count.txt")
Content = Application ("счетчик")
Settxt = fs.opentextfile (имя файла, 2, верно)
txt.WriteContent
setfs = ничего
Конечная функция
Save_''call Save Function для сохранения данных
FunctionDigital (счетчик) Функция отображения данных
DiMi, Mystr, Scounter
scounter = cstr (счетчик)
Fori = 1tocounter_lenth-len (scounter)
Mystr = mystr & "0"
'Mystr = mystr & "<imgsrc = изменить его в относительный каталог, где вы храните свою собственную картинку/0.gif>" Если есть картинки, вы можете вызвать это утверждение
Следующий