방금 카운터를 찾았습니다. 웹 사이트에 방문이 너무 적기 때문에 카운터를 놓는 것은 약간 초라한 일이므로 간단한 것을 만들 수 있습니다. 나는 하나를 가지고 있었지만 나는 그것을 찾을 수 없다는 우울했다. 나는 온라인으로 노래를 불렀고 마침내 끝났다. 특정 프로그램 코드는 다음과 같습니다.
Count.asp의 코드는 다음과 같습니다.
코드 사본은 다음과 같습니다.
<%
옵션 출현
Dimfs, filename, txt, 컨텐츠, Total, Counter_lenth
Counter_Lenth = 1 '표시된 데이터의 최소 길이를 설정합니다. 실제 길이보다 작은 경우 실제 길이가 우선합니다.
setfs = server.createobject ( "scripting.filesystemobject")
filename = server.mappath ( "count.txt")
ifnotfs.fileExists (filename)
fs.createtextFileFileName, True, True
settxt = fs.opentextfile (filename, 2, true)
txt.write0'2, 데이터를 저장하는 파일이 없으면 새 파일을 작성하고 데이터를 쓰기 0
setfs = 아무것도
endif
settxt = fs.opentextfile (filename)
iftxt.atendOfStreamThen
Application ( "Counter") = 0 '파일에 데이터가 없으면 응용 프로그램 값 ( "Coun
또 다른
응용 프로그램 ( "counter") = txt.readline
endif
application.lock
응용 프로그램 ( "카운터") = 응용 프로그램 ( "Counter")+1
application.unlock
functionsave_'save count 함수
setfs = server.createobject ( "scripting.filesystemobject")
filename = server.mappath ( "count.txt")
내용 = 응용 프로그램 ( "카운터")
settxt = fs.opentextfile (filename, 2, true)
txt.writeContent
setfs = 아무것도
최종 기능 장애
Save_'Call 데이터를 저장하여 데이터를 저장합니다
functionDigital (Counter) '디스플레이 데이터 기능
Dimi, Mystr, Scounter
scounter = cstr (카운터)
fori = 1tocounter_lenth-len (scounter)
mystr = mystr & "0"
'mystr = mystr & "<imgsrc = 자신의 사진을 저장하는 상대 디렉토리로 변경하십시오/0.gif>"'사진이 있으면이 문장을 호출 할 수 있습니다.
다음