sp1000je
115 lines
5.1 KiB
Plaintext
115 lines
5.1 KiB
Plaintext
<!--#include virtual="/common/lib/dbcon.asp"-->
|
|
<!--#include virtual="/common/lib/func.asp"-->
|
|
<%
|
|
Dim list_rec, callback, message, resOrNot, Rdate, time1, time2, a_num, subject, now_date
|
|
list_rec = inputValue( Request.Form("list_rec") )
|
|
callback = inputValue( Request.Form("callback") )
|
|
message = inputValue( Replace(Request.Form("message"), "'" , "`") )
|
|
resOrNot = inputValue( Request.Form("resOrNot") )
|
|
Rdate = inputValue( Request.Form("rdate") )
|
|
time1 = inputValue( Request.Form("time1") )
|
|
time2 = inputValue( Request.Form("time2") )
|
|
a_num = inputValue( Request.Form("a_num") )
|
|
|
|
now_date = Replace( Date(), "-", "" ) & Right("0"&hour(now), 2) & Right("0"&minute(now), 2) & Right("0"&second(now), 2)
|
|
If resOrNot = "Y" Then
|
|
|
|
If Not(SMSdateChk(Rdate, time1,time2)) Then
|
|
Back_back2 "지난 날짜/시간의 전송은 하실 수 없습니다!", request.servervariables("http_referer")
|
|
End If
|
|
Rdate = Replace(Rdate, "-", "") & time1 & time2 & "00"
|
|
|
|
Else
|
|
Rdate = now_date
|
|
End If
|
|
|
|
list_rec = Replace(list_rec, " ", "")
|
|
list_rec_arr = Split(list_rec, ",")
|
|
|
|
For i = 0 To UBound(list_rec_arr)
|
|
If list_rec_arr(i) <> "0" And list_rec_arr(i) <> "" Then
|
|
memInfo = Split(list_rec_arr(i),";")
|
|
subject = StringToHTML( message, 30, false )
|
|
Select Case memInfo(0)
|
|
Case "M" '개인추가, 구성원
|
|
mmsSend phoneValue(memInfo(2)), callback, message, Rdate, a_num
|
|
|
|
Case "A" '주소록 전체
|
|
sql = "select adr_name+'^'+adr_mobile1+adr_mobile2+adr_mobile3 as dest_info from bd_address_page where adr_m_id = '"&session("ss_m_id")&"' "
|
|
Call mmsSend2(callback, message, RDate, a_num, sql)
|
|
|
|
Case "B" '주소록그룹
|
|
sql = "select adr_name+'^'+adr_mobile1+adr_mobile2+adr_mobile3 as dest_info from bd_address_page where bdm_idx = '" & memInfo(1) & "' AND adr_m_id = '" &session("ss_m_id")&"' "
|
|
Call mmsSend2(callback, message, RDate, a_num, sql)
|
|
|
|
Case "C" '부서1
|
|
sql = "select m_name+'^'+m_mobile1+m_mobile2+m_mobile3 as dest_info from member where bdm_idx in (select bdm_idx from bd_menu_page where bdm_ref = '" & memInfo(1) & "' and bdm_chk = 'Y') and m_mobile1 <> '' and m_mobile2 <> '' and m_mobile3 <> '' AND m_id = '" & session("ss_m_id") & "' "
|
|
Call mmsSend2(callback, message, RDate, a_num, sql)
|
|
|
|
Case "D" '부서2
|
|
sql = "select m_name+'^'+m_mobile1+m_mobile2+m_mobile3 as dest_info from member where bdm_idx = '" & memInfo(1) & "' and m_mobile1 <> '' and m_mobile2 <> '' and m_mobile3 <> '' AND m_id = '" & session("ss_m_id") & "' "
|
|
'Response.write sql
|
|
'Response.end
|
|
Call mmsSend2(callback, message, RDate, a_num, sql)
|
|
|
|
Case "E" '부서전체
|
|
sql = "select m_name+'^'+m_mobile1+m_mobile2+m_mobile3 as dest_info from member where bdm_idx in ( select bdm_idx from bd_menu_page where bdm_chk = 'Y' and bdm_depth = 2 and bdm_ref in (select bdm_idx from bd_menu_page where bdm_chk = 'Y' and bdm_depth = 1) ) and m_mobile1 <> '' and m_mobile2 <> '' and m_mobile3 <> '' AND m_id = '" & session("ss_m_id") & "' "
|
|
Call mmsSend2(callback, message, RDate, a_num, sql)
|
|
End select
|
|
End If
|
|
|
|
Next
|
|
'Response.end
|
|
Back_back2 "메시지 보내기 성공\n\n전송에 관한 성공/실패 여부는 보낸문자함에서 확인 하세요.",request.servervariables("http_referer")
|
|
|
|
|
|
'=======================전화번호 필터==========================
|
|
Function phoneValue(value)
|
|
'response.write value
|
|
phone_arr_temp = value
|
|
'---------------불필요한 문자열 제거------------------
|
|
phone_arr_temp = Replace(phone_arr_temp,")","")
|
|
phone_arr_temp = Replace(phone_arr_temp,"(","")
|
|
phone_arr_temp = Replace(phone_arr_temp,"-","")
|
|
phone_arr_temp = Replace(phone_arr_temp," ","")
|
|
|
|
phone_arr_temp = Replace(phone_arr_temp,"ㅡ","")
|
|
phone_arr_temp = Replace(phone_arr_temp,"*","")
|
|
'---------------불필요한 문자열 제거------------------
|
|
|
|
'phone_arr_temp = Split(mem_list(4, i), "-")
|
|
|
|
If Left(phone_arr_temp, 2) = "00" Then '지역번호에 0이 2개 들어갔을 경우
|
|
phone_arr_temp = Mid(phone_arr_temp, 2)
|
|
End if
|
|
'response.write "["& mem_list(4, i) &"], "
|
|
|
|
'---------------전화번호를 정규화------------------
|
|
Select Case Len(phone_arr_temp)
|
|
Case 7
|
|
phone_arr = Array("053",Left(phone_arr_temp,3),right(phone_arr_temp,4))
|
|
Case 8
|
|
phone_arr = Array("053",Left(phone_arr_temp,4),right(phone_arr_temp,4))
|
|
Case 10
|
|
phone_arr = Array(Left(phone_arr_temp,3),mid(phone_arr_temp,4,3),right(phone_arr_temp,4))
|
|
Case 11
|
|
phone_arr = Array(Left(phone_arr_temp,3),mid(phone_arr_temp,4,4),right(phone_arr_temp,4))
|
|
Case 12
|
|
phone_arr = Array(Left(phone_arr_temp,4),mid(phone_arr_temp,5,4),right(phone_arr_temp,4))
|
|
Case Else
|
|
phone_arr = Array("","","")
|
|
End select
|
|
'---------------전화번호를 정규화끝------------------
|
|
'---------------마지막필터 숫자냐---------------
|
|
If IsNumeric(phone_arr(0)) And IsNumeric(phone_arr(1)) And IsNumeric(phone_arr(2)) Then
|
|
M_phone = phone_arr(0) & phone_arr(1) & phone_arr(2)
|
|
Else
|
|
M_phone = ""
|
|
End If
|
|
'---------------마지막필터 숫자냐---------------
|
|
phoneValue = M_phone
|
|
End Function
|
|
|
|
'=======================전화번호 필터 끝==========================
|
|
%>
|