|
|
|
|
 |
|
정수 / 2000-10-27 / 오후 11:18:01 / 203.230.248.195
조회수 : 146
|
| [질문] 예제 소스... |
> 카운터를 화면에 뿌려주는 것을
> 못하겠어욤
> 채영님 다시한번 갈켜주실수 있나요?
> 이책저책 뒤져보고 해바도
> 이곳에도 같은 내용이 있어요
> 보고 해보아도 안됩니다.
>
-----------------------------------------------------------
제가 이용하고 있는 접속통계 부분입니다...
오늘 접속 횟수와 전체 접속횟수를 보여 주는 부분입니다....
사용되는 사이트는 http://www.kwangyang-port.co.kr/F_main.html입니다...
도움 되길 바라면서...
이만...
======================================================================
<%
N_Year=Year(date)
N_Month=Month(date)
if N_Month<10 then
N_Month=0&N_Month
end if
N_Day=Day(date)
if N_Day<10 then
N_Day=0&N_Day
end if
Set DBConnection = Server.CreateObject("ADODB.Connection")
DBConnection.ConnectionTimeout = Session("DBConnection_ConnectionTimeout")
DBConnection.CommandTimeout = Session("DBConnection_CommandTimeout")
DBConnection.Open Session("DBConnection_ConnectionString"), Session("DBConnection_RuntimeUserName"), Session("DBConnection_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set DataCommand1 = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT Count(C_Index_PIN) as V_Total FROM T_DreamCount_M WHERE C_Year_N='"&N_Year&"' AND C_Month_N='"&N_Month&"' AND C_Day_N='"&N_Day&"'"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DBConnection
DataCommand1.Open cmdTemp, , 0, 1
V_Visit=DataCommand1("V_Total")
DataCommand1.Close
DBConnection.Close
Set DdtaCommand1=Nothing
Set DBConnection=Nothing
Set DBConnection = Server.CreateObject("ADODB.Connection")
DBConnection.ConnectionTimeout = Session("DBConnection_ConnectionTimeout")
DBConnection.CommandTimeout = Session("DBConnection_CommandTimeout")
DBConnection.Open Session("DBConnection_ConnectionString"), Session("DBConnection_RuntimeUserName"), Session("DBConnection_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set DataCommand1 = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT C_Year_N, C_Month_N, C_Day_N FROM T_DreamCount_M"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DBConnection
DataCommand1.Open cmdTemp, , 1, 1
V_Total=DataCommand1.RecordCount
DataCommand1.Close
DBConnection.Close
Set DdtaCommand1=Nothing
Set DBConnection=Nothing
%>
<font size="2" face="돋움">오늘접속:<font color="#FF0033"><%=V_Visit%></font> 전체접속:<font color="#FF0033"><%=V_Total%></font></font>
======================================================================
|
|
|
|