<% security_ad_cms() dateY = Trim(Request("dateY")) dateM = Right("0"&Trim(Request("dateM")), 2) dateD = Right("0"&Trim(Request("dateD")), 2) If dateY = "" Then dateY = Year(now) End If If dateM = "" Then dateM = month(now) End if If dateD = "" Or dateD = 0 Then datetitle = dateY & "-" & dateM thisDate = dateY & "-" & dateM & "-01" thisDate2 = DateSerial(dateY, dateM + 1, 1 - 1) Else thisDate = dateY & "-" & dateM & "-" & dateD datetitle = thisDate thisDate2 = thisDate End if If Request.QueryString("excel") = "ok" then Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition","attachment;filename=log_"&dateY & dateM & dateD&".xls" border="1" Else border="0" End if tran_etc4 = Trim(Request.QueryString("tran_etc4")) If tran_etc4 <> "" then addqry = "and tran_etc4 = '"&tran_etc4&"'" End if '테이블 존재유무 확인 쿼리 log_table = "em_log_" & dateY & dateM sql = "select * from information_schema.tables where table_name = '" & log_table & "'" Set rs = Dbcon.Execute( sql ) If rs.bof Or rs.eof Then Set rs = Nothing list_data = null Else Set rs = nothing 'sql = "select tran_phone, tran_callback, tran_date, tran_msg, tran_id, tran_etc3, tran_etc4, tran_rslt from "&log_table&" where tran_rsltdate between '"&thisDate&"' and '"&thisDate&"'+ ' 23:59:59'" sql = "select count(tran_pr), tran_callback, '"&thisDate&"' as tran_date, tran_msg, tran_id, tran_etc3, tran_etc4, tran_rslt from "&log_table&" where tran_rsltdate between '"&thisDate&"' and '"&thisDate2&"'+ ' 23:59:59' "&addqry&" group by tran_callback, left(tran_date, 10), tran_msg, tran_id, tran_etc3, tran_etc4, tran_rslt" 'response.write sql Set rs = Dbcon.Execute( sql ) If rs.bof Or rs.eof Then list_data = null Else list_data = rs.getrows End if Set rs = Nothing 'response.write weeksumYes & "/" & weeksumNo End if %> <%If Request.QueryString("excel") <> "ok" then%> <%End if%> <%If Request.QueryString("excel") <> "ok" then%>

상태가 실패일경우는 수신번호가 잘못되었거나 각 이통사의 일시적인 네트웍장애로 발생합니다.

<% for intYear = Year(date()) - 2 to Year(date()) + 10 ' 현재에서 앞 뒤 10년간의 목록을 표시한다. if intYear = CInt(dateY) then %> <%=intYear%> 년 <% else %> <%=intYear%> 년 <% end if next %> <% for intMonth = 1 to 12 if intMonth = CInt(dateM) then %> <%=intMonth%> 월 <% else %> <%=intMonth%> 월 <% end if next %> <% If dateD >= 1 Then %> <% for intDay = 1 to 31 if intDay = CInt(dateD) then %> <%=intDay%> 일 <% else %> <%=intDay%> 일 <% end if next %> <% End if %>

<%End if%> <% If Not(IsNull(list_data)) then For i = 0 To UBound(list_data, 2) tran_phone = list_data(0, i) tran_callback = list_data(1, i) tran_date = list_data(2, i) tran_msg = inputValue3( list_data(3, i) ) tran_name = get_name(list_data(4, i)) tran_etc3 = get_buseo(list_data(5, i)) tran_etc4 = get_buseo(list_data(6, i)) If list_data(7, i) = "0" then tran_rslt = "성공" Else tran_rslt = "실패" End if %> <% Next End if %>

발송건수	발신번호	발송일자	메세지	발신자	발신자 부서	상태
<%=FormatNumber(tran_phone,0)%>건	<%=tran_callback%>	<%=tran_date%>	<%=inputValue( tran_msg )%>	<%=tran_name%>	<%=tran_etc4&">"&tran_etc3%>	<%=tran_rslt%>