// ¸Þ½ÃÁö¹ß¼Û
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