|
|
|
|
 |
|
꼭지 / 2001-05-20 / 오후 3:16:30 / 211.104.160.247
조회수 : 124
|
| [질문] 정수님.채영님 답변부탁...
|
> 정수님 답변중에
> 카운터 보기중에 이걸 삽입하라고 하셨는데
> 안되네요
>
> ===========================================
> HTML 페이지중 해당하는 위치에 아래 코드를 삽입하십시요...
>
>
>
> [a href="count/index.asp" target="contents"] [/a]
> =========================================================================
> 페이지 끝에 삽입...
>
> 위에 소스는 index.asp를 실행하는소스잖아요
> 그거말구 채영님 메뉴소스 밑에있는 접속자수가
> 보이자나요 그거어케해야되여?
> 자세히좀...
>
>
-----------------------------------------------------------
예전에 한번 소스를 올렸던 것 같은데...
혹 지금 채영님이 공개하신 카운터 소스를 수정 없이 쓰고 계시다면, 아래의 소스를 해당 페이지에 삽입하셔서 쓰면, 총 접속자 수와, 오늘 날짜의 접속자 수를 나타낼수 있을겁니다..
단순히 소스를 올려두지만, 님께서 조금만 노력하셔서, 환경에 적합한 코드를 만들어 보시길 바랍니다.
쿼리내용의 이해는 그리 어렵지 않을것을 보입니다.
----------------------------------------------------------------------------
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_Visit 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_Visit")
DataCommand1.Close
DBConnection.Close
Set DataCommand1=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 DataCommand1=Nothing
Set DBConnection=Nothing
----------------------------------------------------------------------------
V_Visit는 오늘 접속자 수이고, V_Total은 총 접속자 수입니다. 적당한 곳에 출력하시면 될겁니다..
그럼 이만..
|
|
|
|