인터넷에는 ASP로 작성된 카운터가 어디에나 있습니다. 여기에서 ASP로 작성된 카운터에 대해 이야기하는 것은 의미가 없다고 생각합니다. 나중에는 카운터를 작성하는 것뿐만 아니라 모든 사람에게 ASP의 지식과 응용 기술을 소개하는 것이기 때문에 그것에 대해 이야기할 필요가 있다고 생각했습니다.
프로그램의 원본 코드는 다음과 같습니다.
$#@60 ;%countlong=8
'countlong은 counterOn Error Resume Next의 표시 자릿수를 정의합니다.
′ 모든 오류 무시 count=server.mappath(″count.txt″)
cou = server.createobject(″scripting.filesystemobject″) 설정
설정=cou.opentextfile(count,1,false,false)
카운터=out.readline
밖으로.닫다
'위 코드는 count.txt 파일을 열고 session(″in″)$#@60;$#@62;″in″이면 현재 카운터 값을 읽는 행을 읽는 것입니다.
'사용자가 새로고침을 누르거나 이 페이지를 다시 방문할 때 카운터가 1씩 증가하지 않도록 하기 위해 사용자가 홈페이지에 진입했는지 확인합니다.
세션(″in″)=″in″
설정 = cou.createtextfile(count,true,false)
애플리케이션.잠금
카운터=카운터+1
'카운터 플러스 1
out.writeline(카운터)
응용 프로그램.잠금 해제
밖으로.닫다
'위 코드는 count.txt 파일을 새로 생성하고 한 줄을 작성하고, 1 end를 추가한 후 카운터의 값을 작성하는 코드입니다.
co=cstr(카운터)
'cstr 함수는 숫자 변수를 i = 1에서 countlong-len(co)에 대한 문자 유형으로 변환하는 데 사용됩니다.
응답.쓰기 ″″
다음
'위 루프 문은 카운터 앞에 있는 0개의 그림 추가를 완료하는 것입니다.' len(co) 함수는 변수 co의 길이를 가져오고, countlong-len(co)는 이전 0개의 그림 수를 가져옵니다. i= 1에서 len(co)까지
응답.쓰기 ″″
다음
mid(co,i,1) 함수는 co $#@62 변수의 i 번째 위치부터 % 문자를 읽는 데 사용됩니다.
이 카운터의 가장 성공적인 부분은 세션을 사용하여 사용자가 카운터를 여러 번 새로 고치는 것을 방지하는 것입니다. 텍스트 파일을 사용하여 카운터 값을 기록하는 데 시간이 더 걸리지만 애플리케이션을 사용하는 것보다 훨씬 낫습니다. 개체는 서버가 재부팅되거나 global.asa가 변경될 때 문자 대신 그림이 사용되므로 더 아름답게 보입니다.
0에는 0.gif, 1에는 1.gif 등의 파일 이름을 사용하여 카운터 그림을 직접 디자인할 수 있습니다.