// 메시지발송
function SendMesg($url) {
    // 테스트 후, 서버 상태에 따라 원활한 접속 방법을 이용해주세요.
    //$fp = fsockopen("ssl:munjanara.co.kr", 443, $errno, $errstr, 10);
    $fp = fsockopen("munjanara.co.kr", 80, $errno, $errstr, 10);

    if(!$fp){
        echo "$errno : $errstr";
        exit;
    }

    fwrite($fp, "GET $url HTTP/1.0\r\nHost: munjanara.co.kr\r\n\r\n"); 
    $flag = 0; 
    
    while(!feof($fp)){
        $row = fgets($fp, 1024);

        if($flag) $out .= $row;
        if($row=="\r\n") $flag = 1;
    }
    fclose($fp);
    return $out;
}


$userid = "";           // 문자나라 아이디
$passwd = "";           // 문자나라 2차 비밀번호(로그인 후 개인정보 수정에서 설정)
$hpSender = "";         // 보내는분 핸드폰번호(문자전송에서 발신번호 인증 필요!)
$hpReceiver = "";       // 받는분의 핸드폰번호
$adminPhone = "";       // 비상시 메시지를 받으실 관리자 핸드폰번호
$hpMesg = "";           // 메시지
/*  UTF-8 글자셋 이용으로 한글이 깨지는 경우에만 주석을 푸세요. */
//$hpMesg = iconv("UTF-8", "EUC-KR","$hpMesg");
/*  ---------------------------------------- */
$hpMesg = urlencode($hpMesg);
$endAlert = 1;  // 전송완료알림창 ( 1:띄움, 0:안띄움 )

// 한줄로 이어쓰기 하세요.
echo SendMesg("/MSG/send/web_admin_send.htm?userid=$userid&passwd=$passwd&sender=$hpSender&
receiver=$hpReceiver&encode=1&end_alert=$endAlert&message=$hpMesg");

FUNCTION SendMesg(url)
    Dim RStr
    Dim xmlHttp

    SET xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
    xmlHttp.open "GET", url, False
    xmlHttp.setRequestHeader "Content-Type","text/xml"
    xmlHttp.setRequestHeader "Accept-Language","ko"
    xmlHttp.send

    if xmlHttp.status = 200 then
        RStr = xmlHttp.responseText
    Else
        RStr = "get_fail"
    End if

    SET xmlHttp = Nothing

    SendMesg = RStr
END FUNCTION


Dim userid           ' 문자나라 아이디
Dim passwd           ' 문자나라 2차 비밀번호
Dim hpSender         ' 보내는분 핸드폰번호
Dim hpReceiver       ' 받는분의 핸드폰번호
Dim adminPhone       ' 비상시 메시지를 받으실 관리자 핸드폰번호
Dim hpMesg           ' 메시지

Dim url              
Dim result

userid = ""
passwd = ""
hpSender = ""
hpReceiver = ""
adminPhone = ""
hpMesg = Server.URLEncode("")

url = "https://www.munjanara.co.kr/MSG/send/web_admin_send.htm?userid=" & userid &_
"&passwd=" & passwd & "&sender=" & hpSender & "&receiver=" &_
hpReceiver & "&encode=1&message=" & hpMesg
result = SendMesg(url)

Response.write result