<%
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") '해당년수 가져오기
m=request("m") '해당년수 가져오기
If m="1" Then
mon=31
ElseIf m="2" Then
mon=28
ElseIf m="3" Then
mon=31
ElseIf m="4" Then
mon=30
ElseIf m="5" Then
mon=31
ElseIf m="6" Then
mon=30
ElseIf m="7" Then
mon=31
ElseIf m="8" Then
mon=31
ElseIf m="9" Then
mon=30
ElseIf m="10" Then
mon=31
ElseIf m="11" Then
mon=30
ElseIf m="12" Then
mon=31
End If
%>
<%=request("y")%>년<%=request("m")%>월
* <%=y%>년 <%=m%>월별 통계
날짜
데이터
<%
For i= 1 To mon
d=i
%>
<% If i Mod 2 =0 Then %>
<% Else %>
<% End If %>
<%=y%>년<%=m%>월<%=d%>일
<%
Set m_01 = GetDBConn.Execute("SELECT COUNT(idx) FROM E_log_visit WHERE lyear='"&y&"' and lmonth='"&m&"' and lday='"&d&"'")
m_num1 = m_01(0)
m_01.close
%>