<%
'm_id : 회원ID
'msg : 메세지
'tran_callback : 회신번호
'tran_phone : 수신번호 ex) 0111231234;0171231234
'rtn_url : 리턴URL ex) http://nninc.co.kr
'게시판쪽에서 넘어오는 변수들
'm_id = inputValue(Request.Form("sms_m_id"))
'rq_name = inputValue(Request.Form("sms_rq_name"))
'Msg = inputValue(Request.Form("sms_msg"))
'tran_callback = inputValue(Request.Form("sms_tran_callback"))
'tran_phone = inputValue(Request.Form("sms_tran_phone"))
'rtn_url = inputValue(Request.Form("sms_rtn_url"))
m_id = inputValue( Request.Form("sms_m_id") )
msg = inputValue( Request.Form("sms_msg") )
tran_callback = inputValue( Request.Form("sms_tran_callback") )
tran_phone = inputValue( Request.Form("sms_tran_phone") )
rtn_url = inputValue(Request.Form("sms_rtn_url"))
'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.write "
rtn_url==>"&rtn_url
'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
If tran_callback = "" Then tran_callback = tran_callback1&tran_callback2&tran_callback3
If rtn_url = "" Then rtn_url = Request.ServerVariables("HTTP_REFERER")
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
End if
Dbcon.close
Set Dbcon = Nothing
response.redirect rtn_url
%>