최초등록

2026-02-23 10:01:00 +09:00
commit 7bc9767bf4
3120 changed files with 198447 additions and 0 deletions
@@ -0,0 +1,74 @@
+<!--#include virtual="/include/lib/dbcon.asp"-->
+<!--#include virtual="/include/function/default_func.asp"-->
+<%
+	'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 "<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.write "<br />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 & "<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
+	
+	End if
+
+	Dbcon.close
+	Set Dbcon = Nothing
+
+	response.redirect rtn_url
+%>