// 메시지발송
function SendMesg($url) {
    $fp = fsockopen("211.233.20.184", 80, $errno, $errstr, 10);
    if(!$fp) echo "$errno : $errstr";

    fwrite($fp, "GET $url HTTP/1.0\r\nHost: 211.233.20.184\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 = "";           // 문자나라 비밀번호
$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           ' 문자나라 비밀번호
Dim hpSender         ' 보내는분 핸드폰번호
Dim hpReceiver       ' 받는분의 핸드폰번호
Dim adminPhone       ' 비상시 메시지를 받으실 관리자 핸드폰번호
Dim hpMesg           ' 메시지

Dim url              
Dim result

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

url = "http://www.winc7788.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