sp1000je
70 lines
2.2 KiB
Plaintext
70 lines
2.2 KiB
Plaintext
<!--#include virtual = "/common/lib/dbcon.asp" -->
|
|
<!--#include virtual = "/common/lib/func.asp" -->
|
|
<%
|
|
'────────────────────────────────────────────────
|
|
' 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 "<br />m_id==>"&m_id
|
|
'response.write "<br />rq_name==>"&rq_name
|
|
'response.write "<br />Msg==>"&Msg
|
|
'response.write "<br />tran_callback==>"&tran_callback
|
|
'response.write "<br />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 & "<br />"
|
|
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%>"});
|