<% '¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡ ' ÁÖ¼Ò·Ï ÀÎÁõ¹®ÀÚ 1.234.4.91 '¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡ 'm_id : ȸ¿øID 'msg : ¸Þ¼¼Áö 'tran_callback : ȸ½Å¹øÈ£ 'tran_phone : ¼ö½Å¹øÈ£ ex) 0111231234;0171231234 'rtn_url : ¸®ÅÏURL ex) http://nninc.co.kr ' m_id = inputValue( Request.Form("m_id") ) ' msg = inputValue( Request.Form("msg") ) ' tran_callback = inputValue( Request.Form("tran_callback") ) ' tran_phone = inputValue( Request.Form("tran_phone") ) ' rtn_url = inputValue(Request.Form("rtn_url")) m_id = inputValue( request("m_id") ) msg = inputValue( request("msg") ) tran_callback = inputValue( request("tran_callback") ) tran_phone = inputValue( request("tran_phone") ) rtn_url = inputValue(request("rtn_url")) msg = "[ÁÖ¼Ò·Ï] ÀÎÁõ¹øÈ£´Â "&msg&" ÀÔ´Ï´Ù. " 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) ' If smsSelect2(m_id) > 0 Then If m_id="nninc_addr" Then tran_phone_arr = Split(tran_phone,";") z = 0 For i = 0 To UBound( tran_phone_arr ) If tran_phone_arr(i) <> "" then SQL = "Insert into em_tran(tran_id, tran_phone, tran_callback, tran_status, tran_date, tran_msg) values (" SQL = SQL & "'"&m_id&"','"&tran_phone_arr(i)&"', '"&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&"'" ' Dbcon.Execute sql Response.write "success" End If Dbcon.close Set Dbcon = Nothing ' If rtn_url<>"" then ' response.redirect rtn_url ' End if %>