[ASP] 다이렉트센드 SMS 전송 함수

다이렉트센트 SMS 전송 함수

다이렉트센드를 사용하는 경우 간단한 SMS 전송에 쓰기위해 작성하였다.

해당 업체의 도메인은 아래와 같다.

https://directsend.co.kr/

다이렉트센드 - 문자,메일,카카오 대량발송전문

Function smsSend(receiverNo, message)

	Dim data, httpRequest, postResponse
	Dim title, sender, username, names, key, return_url_yn, return_url, cnt 
	
	title = Request.Form("title")
	sender = "발송번호"
	username = "사용자ID"
	receiver = "{""mobile"":""" & receiverNo & """}"
	key = "받은키"
	return_url_yn = 1
	return_url = 2

	receiver = "[" & receiver & "]"

	data = """title"":""" & title & """ "
	data = data & ", ""message"":""" & message & """ "
	data = data & ", ""sender"":""" & sender & """ "
	data = data & ", ""username"":""" & username & """ "
	data = data & ", ""receiver"":" & receiver

	If return_url_yn = 1  Then
		data = data & ", ""return_url_yn"":" & return_url_yn
		data = data & ", ""return_url"":" & return_url
	End If
	
	data = data & ", ""key"":""" & key & """ "
	data = data & ", ""type"":""" & "asp"  & """ "

	data = "{" & data & "}"

	Set httpRequest = Server.CreateObject("MSXML2.ServerXMLHTTP")
	
	httpRequest.Open "POST", "https://directsend.co.kr/index.php/api_v2/sms_change_word", False	

	httpRequest.SetRequestHeader "Content-Type", "application/json"
	httpRequest.Send data		'JSON 데이터

	postResponse = httpRequest.ResponseText

	Set oJSON = New aspJSON
	oJSON.loadJSON(postResponse)
	insertQuery = "insert into smsLog(sender, receiver, message, status, postResponse, is_delete) values('" & sender & "', '" & receiverNo & "', '" & message & "', '" & oJSON.data("status") & "', '" & Trim(httpRequest.ResponseText) & "', 0)"
	dbConn.execute(insertQuery)

	Set oJSON = Nothing

END Function

smsSend "휴대폰번호", "보낼 메시지"