<%
'받는사람 핸드폰 번호
sTranPhone = Request("txtTranPhone")
'보내는사람 핸드폰 번호
sTranCallback = Request("txtTranCallback")
'예약전송 일시(생략시 즉시전송)
sTranDate = Request("txtTranDate")
'전송 메시지
sTranMsg = Request("txtTranMsg")
'계정번호
sGuestNo = Request("txtGuestNo")
'계정 인증키
sGuestAuthKey = Request("txtGuestAuthKey")
'발송구분 (SMS/LMS/MMS)
sType = Request("comType")
'LMS/MMS일 경우 제목
sSubject = Request("txtSubject")
'*======================================================================*\
' MMS일 경우 첨부파일 처리
' 서버&로컬 에 저장된 이미지 파일 읽어올때.
' 웹경로,로컬경로 모두 가능 합니다.
'\*======================================================================*/
'웹경로
'imgPath = "http://websvc.nesolution.com/sms/MMSAttachFiles/M050085/20180510145947.jpg"
'로컬경로
imgPath ="d:\img\test.jpg"
'"," 콤마로 구분 최대 3개 첨부 가능 합니다.
stringBase64files = GetStringBase64files(imgPath)&_
","&GetStringBase64files(imgPath)&","&GetStringBase64files(imgPath)
Function GetStringBase64files(imgPath)
imgPath = LCase(imgPath)
if LEFT(imgPath,4) ="http" THEN
Set Http= CreateObject("MSXML2.ServerXMLHTTP")
Http.Open "GET", imgPath, false
Http.Send()
binData = Http.ResponseBody
GetStringBase64files = Base64encode(binData)
Set Http = Nothing
ELSE
Dim inputStream
Set inputStream = CreateObject("ADODB.Stream")
inputStream.Open
inputStream.Type = 1 ' adTypeBinary
inputStream.LoadFromFile imgPath
Dim bytes: bytes = inputStream.Read
GetStringBase64files =Base64Encode(bytes)
END IF
End Function
Function Base64Encode(sText)
Dim oXML, oNode
Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
Set oNode = oXML.CreateElement("base64")
oNode.dataType = "bin.base64"
oNode.nodeTypedValue = sText
Base64Encode = oNode.text
Set oNode = Nothing
Set oXML = Nothing
End Function
'*======================================================================*\
' MMS일 경우 첨부파일 처리
'프론트에서 이미지 파일을 base64로 생성후 post로 받아 올때.
'\*======================================================================*/
'첨부파일
'stringBase64files = Request("Base64files")
'stringBase64files = Replace(stringBase64files,"\t","+")
sParam = "cmd=SendSms"
sParam = sParam + "&guest_no=" + sGuestNo
sParam = sParam + "&guest_key=" + sGuestAuthKey
sParam = sParam + "&tran_phone=" + sTranPhone
sParam = sParam + "&tran_callback=" + sTranCallback
sParam = sParam + "&tran_date=" + sTranDate
sParam = sParam + "&tran_msg=" + Server.URLEncode(sTranMsg)
sParam = sParam + "&type=" + sType
If sType = "LMS" Or sType = "MMS" Then
sParam = sParam + "&subject=" + Server.URLEncode(sSubject) '제목
End IF
If sType = "MMS" Then
sParam = sParam + "&files=" + Server.URLEncode(stringBase64files) '파일
End IF
sResponse = SendPOST("http://websvc.nesolution.com/SMS/SMS.aspx", sParam)
function SendPOST(parm_url, parm_post)
Set xmlHttp = Server.Createobject("MSXML2.ServerXMLHTTP.6.0")
xmlHttp.Open "POST", parm_url, False
xmlHttp.setRequestHeader "User-Agent", "asp httprequest"
xmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
xmlHttp.Send parm_post
SendPOST = xmlHttp.responseText
xmlHttp.abort()
set xmlHttp = Nothing
end function
%>
<HTML>
<HEAD>
<TITLE>New Document</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=ks_c_5601-1987">
<style type="text/css">
<!--
.unnamed1 { font-family:"굴림"; font-size:9pt; line-height:12pt}
//-->
</style>
</HEAD>
<BODY>
<div align="center">
<h2>SMS 예제소스(asp)</h2>
<br>
<span class="unnamed1">전송결과 : <b><%=sResponse%></b></span>
</div>
</BODY>
</HTML>
