<% 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) excel = Request.QueryString("excel") 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 thisDate2 = DateSerial(dateY, dateM + 1, 1 - 1) Else thisDate = dateY & "-" & dateM & "-" & dateD datetitle = thisDate thisDate2 = thisDate End if If excel = "ok" then Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition","attachment;filename=mms_log_"&dateY & dateM & dateD&".xls" border="1" Else border="0" End if '테이블 존재유무 확인 쿼리 'log_table = "em_log_" & dateY & dateM log_table = "sdk_mms_report_detail_" & Right(dateY,2) & 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" jointable = log_table & " as a left outer join sdk_mms_report_" & Right(dateY,2) & dateM & " as b on a.job_id = b.job_id" s_fields = "count(*) as cnt, b.callback, left(a.send_date, 8) as tran_date, convert(varchar(3000), b.mms_msg) as mms_msg, a.user_id, b.reserved3, b.reserved4, a.result" Where = " where a.user_id = '" & v_mid & "' and report_res_date like '" & Replace(thisDate,"-","") & "%' " groupby = " group by b.callback, left(a.send_date, 8), a.user_id, b.reserved3, b.reserved4, a.result, convert(varchar(3000), b.mms_msg) " sql = "select " & s_fields & " from " & jointable & Where & groupby '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) = "2" then tran_rslt = "성공" Else tran_rslt = "실패(" & list_data(7, i) & ")" End If If excel <> "ok" then tran_msg = remove_tags(tran_msg) 'tran_msg = StringToHTML(tran_msg, 50, false ) End if %> <% Next End if %>

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