<% '──────────────────────────────────────────────────── ' 의료원에서 사용중 '──────────────────────────────────────────────────── ' 기등록 예약문제 지우기 Function del_em_tran(tran_etc2, m_id) sql = " SELECT count(*) as cnt FROM em_tran WHERE tran_id = '"&m_id&"' and tran_etc2='"&tran_etc2&"'" Set rs = dbcon.execute(sql) delcnt = CInt(rs(0)) rs.close : Set rs = Nothing If delcnt>0 then sql = " DELETE FROM em_tran WHERE tran_id = '"&m_id&"' and tran_etc2='"&tran_etc2&"'" Response.write SQL&"
" dbcon.execute sql sql = "update member set M_g_sms = M_g_sms + "&delcnt&" where M_id = '"&m_id&"'" Response.write SQL&"
" Dbcon.Execute sql End if End function 'm_id : 회원ID 'msg : 메세지 'tran_callback : 회신번호 'tran_phone : 수신번호 ex) 0111231234,0171231234 'rtn_url : 리턴URL ex) http://nninc.co.kr m_id = inputValue( Request("sms_m_id") ) msg = inputValue( Request("sms_msg") ) tran_callback = inputValue( Request("sms_tran_callback") ) tran_phone = inputValue( Request("sms_tran_phone") ) rtn_url = inputValue( Request("sms_rtn_url")) sms_b_num = inputValue( Request("sms_b_num")) ' 게시글 b_num :: 게시글 삭제할때만 쉼표로 구분되서 많이 들어올수 있음, 등록/수정시에는 하나씩만 etc_info1 = inputValue( Request("etc_info1")) ' 방문일자 etc_info2 = inputValue( Request("etc_info2")) ' 몇시간전 etc_info3 = inputValue( Request("etc_info3")) ' 알람 사용여부 ' etc_info1 = "2015-04-11 15:00" ' etc_info2 = "24" sms_b_num = Replace(sms_b_num," ","") If tran_callback = "" Then tran_callback = tran_callback1&tran_callback2&tran_callback3 If rtn_url = "" Then rtn_url = Request.ServerVariables("HTTP_REFERER") If etc_info3<>"Y" And sms_b_num<>"" Then ' 알림 사용안함 / 글 삭제 arr_b_num = Split(sms_b_num,",") For i = 0 To UBound( arr_b_num ) If arr_b_num(i)<>"" then tran_etc2 = "dmc" & arr_b_num(i) Call del_em_tran (tran_etc2, m_id) End if next End if If m_id<>"" And msg<>"" And tran_phone<>"" Then If smsSelect2(m_id) > 0 Then send_flag = false If sms_b_num<>"" And etc_info1<>"" And etc_info2<>"" And etc_info3="Y" then tran_etc2 = "dmc" & sms_b_num Call del_em_tran (tran_etc2, m_id) ' 발송시간 계산 tmp_date = dateAdd("h", -1*CInt(etc_info2) ,etc_info1) Rdate = datevalue(tmp_date) & " " & Right("0"&Hour(tmp_date),2) &":"& Right("0"&Minute(tmp_date),2) 'Rdate = Date()& " " & Hour(now)&":"&Minute(now) If DateDiff("s", now, Rdate )>0 Then send_flag = true End if Else Rdate = Date()& " " & Hour(now)&":"&Minute(now) tran_etc2 = "" send_flag = true End if tran_callback = Replace(tran_callback, "-", "") tran_phone_arr = Split(tran_phone,",") z = 0 If send_flag then For i = 0 To UBound( tran_phone_arr ) If Trim(tran_phone_arr(i)) <> "" then tran_phone = Replace(tran_phone_arr(i), "-", "") SQL = "Insert into em_tran(tran_id, tran_phone, tran_callback, tran_status, tran_date, tran_msg, tran_etc2) values (" SQL = SQL & "'"&m_id&"','"&tran_phone&"', '"&tran_callback&"', '1', '"&Rdate&"', '"&Msg&"', '"&tran_etc2&"')" 'Response.write SQL&"
" Dbcon.Execute sql z = z + 1 End if Next End if sql = "update member set M_g_sms = M_g_sms - "&z&" where M_id = '"&m_id&"'" Response.write SQL&"
" Dbcon.Execute sql End If End If Dbcon.close Set Dbcon = Nothing If rtn_url <> "" then response.redirect rtn_url End If %>