Acabei de encontrar um balcão. Como o site tem poucas visitas, é realmente um pouco surrado colocar um balcão lá, então só posso fazer um simples, que pode ser acessado e gravado uma vez para apoiar a fachada da loja. Eu costumava ter um, mas estava deprimido por não conseguir encontrá -lo. Cantei online e finalmente o fiz. O código do programa específico é o seguinte.
O código para Count.asp é:
A cópia do código é a seguinte:
<%
optionExplicit
Dimfs, nome do arquivo, txt, conteúdo, total, contra_lenth
contador_lenth = 1 'define o comprimento mínimo dos dados exibidos. Se for menor que o comprimento real, o comprimento real prevalecerá.
setfs = server.createObject ("scripting.filesystemobject")
FileName = server.mappath ("count.txt")
ifnotfs.fileExists (nome do arquivo) então
fs.createTextFileFileName, verdadeiro, verdadeiro
Settxt = fs.OpentExtFile (nome do arquivo, 2, verdadeiro)
txt.Write0'Se não houver arquivo que salve dados, crie um novo arquivo e grave dados 0
setfs = nada
endif
Settxt = fs.OpentExtFile (nome do arquivo)
Iftxt.atendofstreamthen
Application ("contador") = 0 'Se não houver dados no arquivo, o valor do aplicativo ("contador") será inicializado (para tolerância a falhas)
outro
Aplicativo ("contador") = txt.readline
endif
Application.lock
Aplicação ("contador") = aplicação ("contador")+1
Application.unlock
Função functionsAve_'Save contagem
setfs = server.createObject ("scripting.filesystemobject")
FileName = server.mappath ("count.txt")
Content = Application ("Contador")
Settxt = fs.OpentExtFile (nome do arquivo, 2, verdadeiro)
TXT.WRITECONTENT
setfs = nada
Função final
Salvar_'Call Salvar a função para salvar dados
Função Digital (contador) 'Função de dados
Dimi, Mystr, Scounter
Scounter = CSTR (contador)
Fori = 1tocounter_lenth-len (scounter)
Mystr = mystr & "0"
'Mystr = mystr & "<imgsrc = altere -o para o diretório relativo em que você armazena sua própria imagem/0.gif>"' se houver fotos, você pode chamar esta declaração
Próximo