<%
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"
Where = " where user_id = '" & session("ss_m_id") & "' and schedule_type = 1"
Orderby = " order by msg_id desc "
sql = "select " & s_fields & " from " & table & Where & orderby
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 = "a.msg_id" '기본키
oreder_filed = "a.send_date desc, a.msg_id desc" '정렬기준 필드
Query_Fields = "a.msg_id, a.phone_number, a.result, a.send_date, b.mms_msg, a.report_res_date" '불러올 필드
pagesize = 10 '목록개수
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_OrderBy = " ORDER BY "&oreder_filed
'==================조합 쿼리문=======================
'==================전체 레코드 수 뽑기===============
sql="select count(*) from " & table & Query_Where
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) & " "&idx_field&" 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
ing_count = ubound(ing_data) + 1
%>
발송중 메세지 전체 <%=ing_count%>개
(목록)
| 번호 |
동시발송 |
내용 |
작성시간 |
전송시간 |
결과 |
<%
For i = 0 To UBound(ing_data)
num = ing_count - i
ST.arr2Value( ing_data(i) )
write_date = createDate( send_date )
dest_info_arr = Split(dest_info, "|")
dest_info_count = ubound(dest_info_arr) + 1
mms_msg = subject = StringToHTML( mms_msg, 50, false )
%>
| <%=num%> |
<%=dest_info_count%>건 |
<%=mms_msg%> |
<%=write_date%> |
|
대기중 |
<%
next
%>
<%
End if
%>
전체 <%=recordcount%>개 (페이지 <%=v_page%>/<%=v_totalpage%>)
<%
query_string = "?stat_date=" & stat_date
page2("index04.asp" & query_string)
%>
|
|
