//함수 부분

function fnConsultWrite() {

    

    var ajaxForm = $("#APPL_FORM"); //폼 객체

    var dataEncode = ajaxForm.serialize().replace(/%/g, '%25');


    //데이터 유효성검사

    if(!checkFormData()){

        return;

    }


    $.ajax({

        type: "POST",

        url: "전송 url.asp",

        async:false,

        data: dataEncode,

        //contentType: "application/json; charset=utf-8",

        dataType: "json",

        success: function(data, status) {

            if (data.STAT == "INS_TRUE") {


            }

            else if (data.STAT == "UPD_TRUE") {


            }

            else {

                alert("에러가 발생하였습니다.  다시 시도해 주세요.");

            }

        },

        error: function() {

            alert("에러가 발생하였습니다.  다시 시도해 주세요.");

        }

    });

}



//반는 부분 처리

<%

    Session.CodePage  = "949"

    Response.CharSet  = "EUC-KR"

    Response.AddHeader "Pragma", "no-cache"

    Response.CacheControl = "no-cache"

    Response.Expires = -1442

    Const MetaCharset = "euc-kr"


    //ASP 에서는 다음 함수를 통해 한글을 변환하여 받는다.

    ex) 변수 = URLDecodeUTF8(Request("APSI_APP_FLG_ETC_GA")

    Function URLDecodeUTF8(byVal strUrl)


        Dim strBase,ub

        Dim UtfB

        Dim UtfB1, UtfB2, UtfB3

        Dim moveSeq, strText


        ub  = 0


        For moveSeq = 1 To Len(strUrl)

            strBase = Mid(strUrl, moveSeq, 1)


            Select Case strBase


                Case "+"

                    strText = strText & " "


                Case "%"

                    ub  = Mid(strUrl, moveSeq + 1, 2)

                    UtfB = CInt("&H" & ub)


                    If UtfB<128 Then

                        moveSeq = moveSeq + 2

                        strText = strText & ChrW(UtfB)

                    Else

                        UtfB1=(UtfB And &H0F) * &H1000

                        UtfB2=(CInt("&H" & Mid(strUrl, moveSeq + 4, 2)) And &H3F) * &H40

                        UtfB3=CInt("&H" & Mid(strUrl, moveSeq + 7, 2)) And &H3F

                        strText = strText & ChrW(UtfB1 Or UtfB2 Or UtfB3)

                        moveSeq = moveSeq + 8

                    End If


                Case Else

                    strText = strText & strBase

            End Select

        Next

        URLDecodeUTF8 = strText

    End Function    

%>

Posted by kunoo
,