[다이렉트호스팅] 신청내용 SMS발송 [asp] > 기술자료

• 목록

write.asp 파일에서  hp1 ,  $hp2 , $hp3 , $company , 등의 함수값을 받아옵니다.
넘어온 함수를 write_ok.php 에서 SMS로 발송합니다.

<%
'  SMS 시작

  hp1 = request("hp1")
  hp2 = request("hp2")
  hp3 = request("hp3")
  hp = request("hp1") & request("hp2") & request("hp3")

  stran_phone = "010-1234-5678"    '수신자 전화번호
      ' 여러번호일 경우에는 ;으로 구분, 전화번호 구분자 대쉬(-)는 있거나 없거나 상관없음
  stran_callback = request("hp1") & request("hp2") & request("hp3")  ' 송신자 전화번호
  'stran_date = request("예약전송")  ' 예약전송시에만  (예.2003-01-01 13:01)
  stran_msg = "안내 : " & request("part") & " 온라인 예약이 접수 되었습니다."
      ' 전송메시지, 한글은 40자, 영문80자
  guest_no = "000000"          ' 서비스번호
  guest_key = "xxxxxxxxxx"  ' SMS인증키
' result = request("반환값")      ' 반환값  [ 성공시(OK), 실패시(에러메시지)  ],  생략가능

  Response.Write("hp1=" & hp1 & "<br>")
  Response.Write("hp2=" & hp2 & "<br>")
  Response.Write("hp3=" & hp3 & "<br>")
  Response.Write("hp=" & hp & "<br>")
  Response.Write("stran_callback=" & stran_callback & "<br>")
  Response.Write("stran_msg=" & stran_msg & "<br>")
  Response.Write("guest_no=" & guest_no & "<br>")
  Response.Write("guest_key=" & guest_key & "<br>")

  ' 여기부터는 수정사항 없음
  if trim(stran_phone) <> "" then
    Set xmldoc = CreateObject("MSXML2.DOMDocument.4.0")
    xmldoc.async = false
    xmldoc.setProperty("ServerHTTPRequest")=True
    texts = "http://sms.direct.co.kr/link/send.php?" & _ ' euc-kr 인경우
'    texts = "http://sms.direct.co.kr/link/send_utf8.php?" & _  ' utf-8 인 경우
      "stran_phone=" & stran_phone & "&stran_callback=" & stran_callback & _
      "&stran_date=" & stran_date & "&stran_msg=" & server.URLEncode(stran_msg) & _
      "&guest_no=" & guest_no & "&guest_key=" & guest_key
    xmldoc.load texts
    result = xmldoc.text
    set xmldoc = nothing
  end if

' SMS 끝
%>


추신) 해피정닷컴을 통해 서비스를 이용하실 경우 요금 할인혜택을 받으실수 있습니다.