Acabo de encontrar un mostrador. Dado que el sitio web tiene muy pocas visitas, es realmente un poco desagradable poner un mostrador allí, por lo que solo puedo hacer una simple, a la que se puede acceder y grabar una vez para soportar la tienda. Solía tener uno, pero estaba deprimido porque no podía encontrarlo. Lo canté en línea y finalmente lo hice. El código de programa específico es el siguiente.
El código para Count.asp es:
La copia del código es la siguiente:
<%
opcionExpliCit
DIMFS, nombre de archivo, txt, contenido, total, contra_lenth
contra_lenth = 1 'Establece la longitud mínima de los datos mostrados. Si es menor que la longitud real, la longitud real prevalecerá.
setfs = server.createObject ("scripting.filesystemObject")
FileName = server.mappath ("count.txt")
ifnotfs.fileExists (nombre de archivo) entonces
fs.CreateTextFileFileName, verdadero, verdadero
settxt = Fs.OpENtextFile (nombre de archivo, 2, verdadero)
txt.Write0'if no hay un archivo que guarde datos, cree un nuevo archivo y escriba datos 0
setfs = nada
endif
settxt = Fs.OpENtextFile (nombre de archivo)
Iftxt.atendofstreamthen
Aplicación ("contador") = 0 'Si no hay datos en el archivo, el valor de la aplicación ("contador") se inicializa (para tolerancia a fallas)
demás
Aplicación ("contador") = txt.readline
endif
Application.lock
Aplicación ("contador") = aplicación ("contador")+1
Aplicación
Functionsave_'save Count Función
setfs = server.createObject ("scripting.filesystemObject")
FileName = server.mappath ("count.txt")
content = aplicación ("contador")
settxt = Fs.OpENtextFile (nombre de archivo, 2, verdadero)
txt.writeContent
setfs = nada
Función final
save_'call save Función para guardar datos
FunctionDigital (contador) 'Función de datos de visualización
Dimi, mystr, sencilla
sencilla = cstr (contador)
Fori = 1Tocounter_lenth-Len (SCOUNTER)
Mystr = mystr & "0"
'Mystr = mystr & "<imgsrc = cámbielo en el directorio relativo donde almacena su propia imagen/0.gif>"' Si hay imágenes, puede llamar a esta declaración
Próximo