[ASP] 홈페이지 방문자수 넣기

우선  visit.txt 라는 파일 하나 만든다. 

여기에 카운트 누적됨.

---

[Global.asa]

  <SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart 

 Dim strFname, objFile, out 

 strFname = Server.MapPath(".") + "\visit.txt" 

 Set objFile = Server.CreateObject("Scripting.FileSystemObject") 

 Set out = objFile.OpenTextFile(strFname, 1) 

 Application("visit") = out.Readline '이전까지 방문자수 읽어오기 

 Set out=nothing 

 Set objFile = nothing

 Application("now_visit") = 0 

End Sub

Sub Application_OnEnd 

 Dim strFname, objFile, out 

 strFname = Server.MapPath(".") + "\visit.txt" 

 Set objFile = Server.CreateObject("Scripting.FileSystemObject") 

 Set out = objFile.OpenTextFile(strFname, 2,False) 

 out.WriteLine(Application("visit")) = Application("visit") '지금까지 방문자수 기록 

 Set out=nothing 

 Set objFile = nothing

End Sub

Sub Session_OnStart

 '전체 접속자수

 Application.lock

 Application("visit") = Application("visit") + 1

 Application.unlock

 '접속자수 파일에 쓰기 

 Dim strFname, objFile, out 

 strFname = Server.MapPath(".") + "\visit.txt" 

 Set objFile = Server.CreateObject("Scripting.FileSystemObject") 

 Set out = objFile.OpenTextFile(strFname, 2,False) 

 out.WriteLine(Application("visit")) '지금까지 방문자수 기록 

 Set out=nothing 

 Set objFile = nothing

 '오늘의 접속자수 

 if Application("today") <> date then

 Application.lock 

 Application("today") = date 

 Application("today_visit") = 1 

 Application.unlock 

 else 

 Application.lock 

 Application("today_visit") = Application("today_visit") + 1 

 Application.unlock 

 end if

 '현재 접속자수

 Application.lock

 Application("now_visit") = Application("now_visit") + 1

 Application.unlock

End Sub

Sub Session_OnEnd

 Application.lock

 Application("now_visit") = Application("now_visit") - 1

 Application.unlock

End Sub

</SCRIPT>

---

페이지에서 불러올 때, 

 <%= application("visit") %>

 <%= application("today_visit") %>