|
|
|
|
 |
|
김경훈 / 2001-05-09 / 오후 10:22:44 / 211.191.209.22
조회수 : 157
|
| [질문] global.asa 에 관해서 궁금한 점이 있습니다. |
아래의 파일은 global.asa파일입니다.
방문자가 사이트에 몇번째 방문했는지 알아보려고 하는 것입니다. 그런데, 맞는지 틀린지를 모르겠습니다.
보시고 틀린 부분이 있으면 고쳐서 좀 가르쳐 주세용부탁드립니다.
Sub Application_OnStart
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim strFile
strFile = "d:\asp\visit\visit.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, ForReading)
VisitFile = objFile.Readline
Application("visit") = VisitFile
Application("user") = 0
objFile.Close
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim strFile
strFile = "d:\asp\visit\visit.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, ForWriting)
Application.Lock
Application("visit") = Application("visit") + 1
intVisit = Application("visit")
Application.Unlock
Session("visitcount") = intVisit
Application.Lock
Application("user") = Application("user") + 1
intUser = Application("user")
Application.Unlock
objFile.WriteLine
intVisit objFile.Close
End Sub
Sub Session_OnEnd
Application.Lock
Application("user") = Application("user") - 1
Application.Unlock
End Sub
objFile.Close
보신다구 수고하셨습니다.
빠른 답변Sub Application_OnStart
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim strFile
strFile = "d:\asp\visit\visit.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, ForReading)
VisitFile = objFile.Readline
Application("visit") = VisitFile
Application("user") = 0
objFile.Close
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim strFile
strFile = "d:\asp\visit\visit.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, ForWriting)
Application.Lock
Application("visit") = Application("visit") + 1
intVisit = Application("visit")
Application.Unlock
Session("visitcount") = intVisit
Application.Lock
Application("user") = Application("user") + 1
intUser = Application("user")
Application.Unlock
objFile.WriteLine
intVisit objFile.Close
End Sub
Sub Session_OnEnd
Application.Lock
Application("user") = Application("user") - 1
Application.Unlock
End Sub
objFile.Close
보신다구 수고하셨습니다.
빠른 답변 부탁 드립니다.
|
|
|
|