<% security_ad_cms() v_mid = InputValue(Request("p_mid")) 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 thisDate = dateY & "-" & dateM & "-01" thisDate2 = DateSerial(dateY, dateM + 1, 1 - 1) Else thisDate = dateY & "-" & dateM & "-" & dateD thisDate2 = thisDate 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, convert(varchar,tran_date,23) as tran_date , tran_msg, tran_id, tran_etc3, tran_etc4, tran_rslt FROM "&log_table&" WHERE tran_id='"&v_mid&"' and tran_rsltdate between '"&thisDate&"' and '"&thisDate2&"'+ ' 23:59:59' "&addqry&" group by tran_callback, convert(varchar,tran_date,23), tran_msg, tran_id, tran_etc3, tran_etc4, tran_rslt" sql = "SELECT '1', tran_callback, CONVERT(CHAR(19), tran_date, 20) as tran_date, tran_msg, tran_id, tran_etc3, tran_etc4, tran_rslt, tran_phone FROM "&log_table&" WHERE tran_id='"&v_mid&"' and tran_rsltdate between '"&thisDate&"' and '"&thisDate2&"'+ ' 23:59:59' "&addqry '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 %> 전체 <% for intDay = 1 to 31 if intDay = CInt(dateD) then %> <%=intDay%> 일 <% else %> <%=intDay%> 일 <% end if next %>

<%End if%> <% If Not(IsNull(list_data)) then For i = 0 To UBound(list_data, 2) count = 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 tran_phone = list_data(8, i) %> <% Next End if %>

번호	발신번호	수신번호	발송일자	메세지	발신자	상태
<%=(i+1)%>	<%=tran_callback%>	<%=tran_phone%>	<%=Left(tran_date, 16)%>	<%=inputValue( tran_msg )%>	<%=tran_name%>	<%=tran_rslt%>