Recomendado: ASP simples contador de texto %Set fs = createObject (script.filesystemObject) wfile = server.mappath () cgi-binwww.111cn.cn/asp/asp.html.txt no erro retomar o próximo conjunto a = fs.pentfile (wfile) hits = clng (a.readline) hits = hits = hits = fs.
Vamos dar uma olhada no tutorial de exemplo abaixo.
Vamos dar uma olhada na página enviada:
<Form Action = SaveInfo.asp Método = Post>
<!-seus campos aqui->
<Tipo de entrada = Submite Value = Enviar>
</morm>
Vamos dar uma olhada na página que recebe dados e salvá -los.
<%
Set fs = createObject (script.filesystemoBject)
PastaPath = server.mappath () & /cGi-bin /message143718
WCONTER = FolderPath &/Counter.txt
Set fs = createObject (script.filesystemoBject)
Se Fs.Polderexists (FolderPath), então
Definir a = fs.OpentExtFile (wcounter)
hits = clng (a.readline)
hits = hits + 1
A.Close
outro
Definir a = fs.createfolder (pastaPath)
hits = 1
final se
Set a = fs.createTextFile (wcounter, true)
A.WriteLine (hits)
A.Close
Defina FS = nada
Set fs = createObject (script.filesystemoBject)
Definir a = fs.createTextFile (FolderPath & & hits & .txt)
Para cada x em solicitação.form
A.WriteLine (x &: & request.form (x))
Próximo
A.Close
Definir a = nada
Defina FS = nada
%>
Compartilhar: Código de Estatísticas do Usuário Online do ASP Basta copiar a tabela de código para um arquivo de texto e salvá -lo no site (/global.asa) no diretório inicial. Idioma de script = vbscript runat = servidor subpumping_onstart aplicativo (ActiveVisitors) = 0 END SUB Sub Application_Onend End Sub Subssion_Onstart Application.lock AP