|
|
|
|
 |
|
돌맹이 / 2001-08-27 / 오전 11:43:15 / 203.234.144.16
조회수 : 121
|
| [질문] 카운터 벌레 좀 잡아주세요.< |
[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") = 0
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")
Set Out = FileObject.CreateTextFile(Application("visitCountFileName"),TRUE)
Application.lock
out.writeLine(Application("count"))
out.close
Application.unlock
End if
End Sub
Sub Session_OnEnd
End Sub
Sub Session_OnEnd
Application.Lock
Application("Count")=Application("Count")-1
Application.UnLock
End Sub
</script>
[main.asp]
<div id="Layer10" style="position:absolute; width:200px; height:84px; z-index:10; left: 476px; top: 394px">
<table border="0" width="208">
<tr> <font size="-1" color="ffffff">현재 카운터는 :
<%
count = application("count")
for i=1 to Len(count)
select case Mid(count,i,1)
case "1"
response.write "<img src = 'C:\image\1.jpg' align='middle'>"
case "2"
response.write "<img src = 'C:\image\2.jpg' align='middle'>"
case "3"
response.write "<img src = 'C:\image\3.jpg' align='middle'>"
case "4"
response.write "<img src = 'C:\image\4.jpg' align='middle'>"
case "5"
response.write "<img src = 'C:\image\5.jpg' align='middle'>"
case "6"
response.write "<img src = 'C:\image\6.jpg' align='middle'>"
case "7"
response.write "<img src = 'C:\image\7.jpg' align='middle'>"
case "8"
response.write "<img src = 'C:\image\8.jpg' align='middle'>"
case "9"
response.write "<img src = 'C:\image\9.jpg' align='middle'>"
case "0"
response.write "<img src = 'C:\image\0.jpg' align='middle'>"
end select
next
%>
이렇게 했는데 "현재 카운터는 : ******" * 이부분에
그림이 뜰질 않네요....
고수님 가르쳐 주세요.
global.asa에서 잘못 된 느낌만 들고 답은 보이질
않네요......
|
|
|
|