Рекомендуется: ASP Simple Text счетчик %Set fs = createObject (scripting.filesystemobject) wfile = server.mappath () cgi-binwww.111cn.cn/asp/asp.html.txt на ошибке Resume stear a = fs.opentextfile (wfile) hits = clng (a.readline) hits = hits + 1 A.
Давайте посмотрим на пример урока ниже.
Давайте посмотрим на отправленную страницу:
<Form action = saveInfo.asp method = post>
<!-Ваши поля здесь->
<Input type = отправить значение = отправить>
</Form>
Давайте посмотрим на страницу, которая получает данные и сохраняет их.
<%
Установить fs = createObject (scripting.filesystemobject)
FolderPath = server.mappath () & /cgi-bin /messages143718
WCOUNTER = FOLDERPATH &/Counter.txt
Установить fs = createObject (scripting.filesystemobject)
Если fs.folderexists (folderpath), то
Установите a = fs.opentextfile (wcounter)
хиты = clng (a.readline)
хиты = хиты + 1
A.Close
еще
Установите a = fs.createfolder (foterpath)
хиты = 1
конец, если
Установите a = fs.createtextfile (wcounter, true)
A.WriteLine (хиты)
A.Close
Установите fs = ничего
Установить fs = createObject (scripting.filesystemobject)
Установите a = fs.createTextFile (FoterPath & & Hits & .txt)
Для каждого x в запросе.
A.WriteLine (x &: & request.form (x))
Следующий
A.Close
Установите A = ничего
Установите fs = ничего
%>
Поделиться: онлайн -код статистики пользователя онлайн Просто скопируйте таблицу кода в текстовый файл и сохраните ее на веб -сайте (/global.asa) в домашнем каталоге. Script Language = vBScript Runat = Server Sub Application_onstart Application (ActiveVisitors) = 0 End Sub sub Application_onend End Sub sesession_onstart Application.lock ap