<% Dim list_rec, callback, message, resOrNot, Rdate, time1, time2, a_num 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") ) If resOrNot = "Y" Then If Not(SMSdateChk(Rdate, time1,time2)) Then Back_back2 "지난 날짜/시간의 전송은 하실 수 없습니다!", request.servervariables("http_referer") End If Rdate = Rdate & " " & time1 & ":" & time2 Else Rdate = Date() & " " & Hour(now) & ":" & Minute(now) End If list_rec = Replace(list_rec, " ", "") list_rec_arr = Split(list_rec, ",") For i = 0 To UBound(list_rec_arr) 'Response.write "
a=" & list_rec & ", " & list_rec_arr(i) If list_rec_arr(i) <> "0" And list_rec_arr(i) <> "" Then list_rec_arr(i) = Trim(list_rec_arr(i)) memInfo = Split(list_rec_arr(i),";") Select Case memInfo(0) Case "M" '개인추가, 구성원 SmsSend phoneValue(memInfo(2)), callback, message, Rdate, a_num Case "A" '주소록전체 sql = "select '"&session("ss_m_id")&"', adr_mobile1+adr_mobile2+adr_mobile3, '"&callback&"', '1', '"&Rdate&"', '"&message&"', '', '', '"&session("ss_bdm_idx")&"','"&get_bdm_idx2(session("ss_bdm_idx"))&"' from bd_address_page where adr_m_id = '"&session("ss_m_id")&"'" smsByQuery sql Case "B" '분류2 sql = "select '"&session("ss_m_id")&"', adr_mobile1+adr_mobile2+adr_mobile3, '"&callback&"', '1', '"&Rdate&"', '"&message&"', '', '', '"&session("ss_bdm_idx")&"','"&get_bdm_idx2(session("ss_bdm_idx"))&"' from bd_address_page where bdm_idx = '" & memInfo(1) & "' AND adr_m_id = '" &session("ss_m_id")&"' " smsByQuery sql Case "C" '부서1 sql = "select '"&session("ss_m_id")&"', m_mobile1+m_mobile2+m_mobile3, '"&callback&"', '1', '"&Rdate&"', '"&message&"', '', '', '"&session("ss_bdm_idx")&"','"&get_bdm_idx2(session("ss_bdm_idx"))&"' from member where bdm_idx in (select bdm_idx from bd_menu_page where bdm_ref = '" & memInfo(1) & "' and bdm_chk = 'Y')" smsByQuery sql Case "D" '부서2 sql = "select '"&session("ss_m_id")&"', m_mobile1+m_mobile2+m_mobile3, '"&callback&"', '1', '"&Rdate&"', '"&message&"', '', '', '"&session("ss_bdm_idx")&"','"&get_bdm_idx2(session("ss_bdm_idx"))&"' from member where bdm_idx = '" & memInfo(1) & "'" smsByQuery sql Case "E" '부서전체 sql = "select '"&session("ss_m_id")&"', m_mobile1+m_mobile2+m_mobile3, '"&callback&"', '1', '"&Rdate&"', '"&message&"', '', '', '"&session("ss_bdm_idx")&"','"&get_bdm_idx2(session("ss_bdm_idx"))&"' 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) )" Call mmsSend2(callback, message, RDate, a_num, sql) End select End If Next Back_back2 "메시지 보내기 성공\n\n전송에 관한 성공/실패 여부는 보낸문자함에서 확인 하세요.",request.servervariables("http_referer") '===========셀렉트 쿼리 참조 sms 발송============== Function smsByQuery(qry) qry2 = qry Set rs = Dbcon.Execute( qry ) If Not(rs.bof Or rs.eof) Then phoneNum = rs.getrows Set rs = Nothing If (UBound(phoneNum, 2) + 1) > smsSelect() Then Back_back2 "당월 남은 건수가 부족합니다.",request.servervariables("http_referer") 'response.write qry2&"
" SmsSend_2 phoneValue(phoneNum(0,0)), callback, message, Rdate, a_num, qry2, UBound(phoneNum, 2) + 1 End If Set rs = nothing End Function '===========셀렉트 쿼리 참조 sms 발송============== '=======================전화번호 필터========================== 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 '=======================전화번호 필터 끝========================== %>