<% ConnectionString = "Provider=SQLOLEDB;Data Source=sql60.enterhost.com;Initial Catalog=BA321;user ID=BA321;password=walkerhilladm90 ;" Set GetDBConn = Server.CreateObject("ADODB.Connection") GetDBConn.Open(ConnectionString) %>

<% y =request("y") If y="" Then y=year(now()) Else y =request("y") End If %> 접속통계 <% If y="2009" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% ElseIf y="2010" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% ElseIf y="2011" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% ElseIf y="2012" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% ElseIf y="2013" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% ElseIf y="2014" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% ElseIf y="2015" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% ElseIf y="2016" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% ElseIf y="2017" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% ElseIf y="2018" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% ElseIf y="2019" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% ElseIf y="2020" Then %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% Else %> 2009년 2010년 2011년 2012년 2013년 2014년 2015년 2016년 2017년 2018년 2019년 2020년 <% End If %> 년도/월 그래프 클릭/요일 <%=y%>년 1월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='1'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%> <%=y%>년 2월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='2'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%> <%=y%>년 3월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='3'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%> <%=y%>년 4월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='4'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%> <%=y%>년 5월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='5'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%> <%=y%>년 6월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='6'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%> <%=y%>년 7월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='7'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%> <%=y%>년 8월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='8'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%> <%=y%>년 9월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='9'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%> <%=y%>년10월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='10'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%> <%=y%>년11월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='11'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%> <%=y%>년12월 <% Set FindNum = GetDBConn.Execute("SELECT COUNT(lmonth) FROM E_log_visit where lyear='"&y&"' and lmonth='12'") LastNumber = FindNum(0) FindNum.close %>   <%If LastNumber < 601 Then %> <%Else %> <% End If %> <%=LastNumber%>