<% 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") 'ÇØ´ç³â¼ö °¡Á®¿À±â %> <%=request("y")%>³â<%=request("m")%>¿ù ¿äÀÏ ¹æ¹®Åë°è
* <%=y%>³â <%=m%>¿ù ¿äÀϺ° Åë°èº¸±â

<% For i= 0 To 6 %> <% If i Mod 2 =0 Then %> <% Else %> <% End If %> <% If i=0 Then %> <% ElseIf i=1 Then %> <% ElseIf i=2 Then %> <% ElseIf i=3 Then %> <% ElseIf i=4 Then %> <% ElseIf i=5 Then %> <% ElseIf i=6 Then %> <% End If %> <% Next %>
¿äÀÏ µ¥ÀÌÅÍ
<%=y%>³â<%=m%>¿ù/ÀÏ¿äÀÏ<%=y%>³â<%=m%>¿ù/¿ù¿äÀÏ<%=y%>³â<%=m%>¿ù/È­¿äÀÏ<%=y%>³â<%=m%>¿ù/¼ö¿äÀÏ<%=y%>³â<%=m%>¿ù/¸ñ¿äÀÏ<%=y%>³â<%=m%>¿ù/±Ý¿äÀÏ<%=y%>³â<%=m%>¿ù/Åä¿äÀÏ <% Set m_01 = GetDBConn.Execute("SELECT COUNT(idx) FROM E_log_visit WHERE lyear='"&y&"' and lmonth='"&m&"' and lweek=" & i) m_num1 = m_01(0) m_01.close %>
(<%=m_num1%>¸í)