<% '──────────────────────────────────────────────── ' http://nninc.co.kr/open (웹접근성) 문의글 접수시 ajax 로 호출되는 페이지 입니다. (안씀) '──────────────────────────────────────────────── 'm_id : 회원ID 'msg : 메세지 'tran_callback : 회신번호 'tran_phone : 수신번호 ex) 0111231234;0171231234 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") ) 'response.write "
m_id==>"&m_id 'response.write "
rq_name==>"&rq_name 'response.write "
Msg==>"&Msg 'response.write "
tran_callback==>"&tran_callback 'response.write "
tran_phone==>"&tran_phone 'response.end ' Response.write request("callback")&"({""result"":""ok""})" ' Response.end If Instr(msg, "[국민건강검진]통지서") <> 0 Then Response.end If Instr(msg, ".host") <> 0 Then Response.end If Instr(msg, ".wiki") <> 0 Then Response.end result = "no" If tran_callback = "" Then tran_callback = tran_callback1&tran_callback2&tran_callback3 Rdate = Date()& " " & Hour(now)&":"&Minute(now) tran_callback = Replace(tran_callback, "-", "") If smsSelect2(m_id) > 0 Then tran_phone_arr = Split(tran_phone,",") z = 0 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) values (" SQL = SQL & "'"&m_id&"','"&tran_phone&"', '"&tran_callback&"', '1', '"&Rdate&"', '"&Msg&"')" 'response.write sql & "
" Dbcon.Execute sql z = z + 1 End if Next sql = "update member set M_g_sms = M_g_sms - "&z&" where M_id = '"&m_id&"'" 'response.write z Dbcon.Execute sql result = "ok" End if Dbcon.close Set Dbcon = Nothing %> <%=request("callback")%>({"result" : "<%=result%>"});