|
|
|
|
 |
|
돌맹이 / 2001-08-30 / 오전 11:37:43 / 203.234.144.16
조회수 : 142
|
| [질문] 이제는 화가 나요.... |
카운팅 에러 문제입니다.
[global.asa]
<script language="VBScript" Runat="Server">
sub Application_OnStart
Set Application("DBConn")=Server.CreateObject("ADODB.Connection")
Application("DBConn").Open ("DSN=*****;UID=****;PWD=*****")
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
VisitCountFileName = "C:\visitnum\visit.txt"
Application("VisitCountFileName") = VisitCountFileName
Application("time") = now
Application("count") = 10000
End sub
Sub Application_OnEnd
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out = FileObject.CreateTextFile(Application("visitCountFileName"),TRUE)
Application.Lock
Out.WriteLine(Application("count"))
Application.unlock
End sub
Sub Session_OnStart
ipaddr = Request.ServerVariables("REMOTE_ADDR")
SQL = "INSERT INTO userCount(ssdat, ipaddress) VALUES(getdate(), '"&ipaddr&"')"
Application("DBConn").execute(SQL)
Application.lock
Application("count") = Application("count")+1
Application.unlock
session.timeout = 20
If Application("count") MOD 10 = 0 then
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Application.lock
out.writeLine(Application("count"))
out.close
Application.unlock
End if
End Sub
Sub Session_OnEnd
Application.Lock
Application("Count")=Application("Count")+1
Application.UnLock
End Sub
</script>
==========================================
[main.asp]
<font size="-1" color="BROWN">방문자 수
<%
count = application("count")
For i= 1 to Len(Count)
imgName=Mid(Count, i, 1)
Response.write "<img src = 'image\"
&imgName &".jpg' align='middle'>"
Next
%> 번째 입니다.
==========================================
이렇게 저가 작성,인용수정하였습니다.
그런데 카운팅이 잘 되다가 10000에서 10385까지
가다가 다시 10024로 돌아오는 거에요..
우왕 이 항당함..
그렇다고 작성하고 10385까지 지켜만 보고 있었던 것은 아니죠...
잘 넘어간다고 했었는데...
global에서 벌레가 숨어있는 것 같은데..
벌레 좀 잡아 주세요....
|
|
|
|