<% dim v_search, v_keyword, table, Query_Fields, Query_Where, Query_OrderBy Dim recordcount dim pagesize, v_totalpage, v_page, TotalCnt, v_block Dim stat_date stat_date = inputvalue( Request("stat_date") ) Set ST = New SelectTable '============================================처리중인 문자조회======================================== s_fields = "dest_info, mms_msg, send_status, send_date " table = "sdk_mms_send" now_date = Replace( Date(), "-", "" ) & Right("0"&hour(now), 2) & Right("0"&minute(now), 2) & Right("0"&second(now), 2) Where = " where user_id = '" & session("ss_m_id") & "' and send_date <= '" & now_date & "' " Orderby = " order by msg_id asc " sql = "select " & s_fields & " from " & table & Where & orderby 'Response.write sql ing_data = ST.selectQueryTable( sql ) '============================================처리중인 문자조회======================================== '============================================로그테이블명 만들기======================================== If stat_date = "" Then stat_date = Right(Year(now),2) & Right( "0" & Month(now), 2 ) '============================================로그테이블명 만들기======================================== v_search = inputValue( Request.Form("p_search") ) v_keyword = inputValue( Request.Form("p_keyword") ) table = "sdk_mms_report_detail_" & stat_date sql = "select count(*) as cnt from information_schema.tables where table_name = '" & table & "'" table_cnt = ST.selectQueryColumn( sql ) If table_cnt = 0 Then log_data = Null v_totalpage = 1 v_page = 1 pagesize = 10 v_block = 10 else v_search = Request.QueryString("p_search") '검색조건 v_keyword = Request.QueryString("p_keyword") '검색어 prepage = Request.ServerVariables("path_info") & "?" & Request.ServerVariables("query_string") '현재페이지경로 table = table & " as a left outer join sdk_mms_report_" & stat_date & " as b on a.job_id = b.job_id" idx_field = "convert(varchar, a.msg_id)+'_'+convert(varchar, a.subjob_id)" '기본키 oreder_filed = "a.send_date desc, a.msg_id desc" '정렬기준 필드 Query_Fields = "a.msg_id, a.subjob_id, a.phone_number, a.result, a.send_date, b.mms_msg, a.report_res_date" '불러올 필드 pagesize = 12 '목록개수 v_block = 10 '페이지개수 '==================조합 쿼리문======================= If v_keyword <> "" then Query_Where = " where a.user_id = '" & session("ss_m_id") & "' and " & v_search & " like '%" & v_keyword & "%' and ( b.reserved1 <> 'N' or b.reserved1 is null )" andOrWhere = " and " Else Query_Where = " where a.user_id = '" & session("ss_m_id") & "' and ( b.reserved1 <> 'N' or b.reserved1 is null )" andOrWhere = " and " End If Query_Where = Query_Where & andOrWhere & " convert(varchar, a.msg_id)+'_'+convert(varchar, a.subjob_id) not in (select convert(varchar, d_msg_id)+'_'+convert(varchar, d_subjob_id) from sdk_mms_delete_log where d_ym = '" & stat_date & "')" Query_OrderBy = " ORDER BY "&oreder_filed '==================조합 쿼리문======================= '==================전체 레코드 수 뽑기=============== sql="select count(*) from " & table & Query_Where 'Response.write sql recordcount = ST.selectQueryColumn( sql ) recordcount = CLng(recordcount) '==================전체 레코드 수 뽑기=============== v_totalpage=fix((recordcount-1)/pagesize)+1 '전체덩어리갯수 v_page = InputValue( Request.QueryString("p_page") ) if v_page="" then v_page = 1 elseif cint(v_page) < 1 then v_page = 1 elseif cint(v_page)>cint(v_totalpage) then v_page=cint(v_totalpage) end if '========================리스트 출력 쿼리문 생성====================== 'MS-SQL sql = "select Top " & pagesize& " " & Query_Fields & " from " & table sql = sql & Query_Where & andOrWhere & " "&idx_field&" not in" sql = sql & "(select top " & pagesize * (v_page - 1) & " convert(varchar, a.msg_id)+'_'+convert(varchar, a.subjob_id) from " & table sql = sql & Query_Where & Query_OrderBy & ")" sql = sql & Query_OrderBy '========================리스트 출력 쿼리문 생성 끝====================== 'response.write sql log_data = ST.selectQueryTable( sql ) If isnull(log_data) Then TotalCnt = 0 Else TotalCnt = recordcount End if End If %>

보낸문자함

<% If Not(IsNull(ing_data)) Then %>
  • 발송중
<% End if %>
  • 발송성공
  • 발송실패
  • 발송중
    <% If IsNull(log_data) Then %>
  • 발송내역 없음
  • <% else For i = 0 To UBound(log_data) num = (TotalCnt - pagesize * (v_page - 1)) - i ST.arr2Value( log_data(i) ) If result = "2" Then result_str = "성공" result_str_icon = "ico_success" Else result_str = "실패(" & result & ")" result_str_icon = "ico_fail" End If write_date = createDate( send_date ) If report_res_date = null Or report_res_date = "" Then res_date = "" Else res_date = createDate( report_res_date ) End If mms_msg_str = Replace(mms_msg, vbcrlf, "
    ") mms_msg_str = Replace(mms_msg_str, " ", "  ") 'mms_msg_str = StringToHTML( remove_tags(mms_msg), 50, false ) %>
  • <%=result_str%>
    <%=mms_msg_str%>
    수신자
    <%=phone_number%>
    발송날짜
    <%=write_date%>
    발송완료
    <%=res_date%>
  • <% Next End if %>
<% query_string = "?stat_date=" & server.urlencode( stat_date ) page_url = "04_01.asp" & query_string pageStyle2( page_url ) %>
  • " method="get">