ASP 下 能作为json输出后js能解密的 escape 函数

网络上流传的 vbsEscape UnEscape都只针对asp而言，js传递给asp时可进行转义解码，但asp输出json时如果用这些函数进行编码的话，js是无法正常解码的。

下面是经过实际验证可用的asp escape函数：

原文地址：http://www.webdevbros.net/2007/04/26/json-character-escaping-function-in-classic-asp/


'******************************************************************************************
'' @SDESCRIPTION:   takes a given string and makes it JSON valid (http://json.org/)
'' @AUTHOR: Michael Rebec
'' @DESCRIPTION:    all characters which needs to be escaped are beeing replaced by their
''                  unicode representation according to the
''                  RFC4627#2.5 - http://www.ietf.org/rfc/rfc4627.txt?number=4627
'' @PARAM:          val [string]: value which should be escaped
'' @RETURN:         [string] JSON valid string
'******************************************************************************************
public function escapeJSON(val)
    cDoubleQuote = &h22
    cRevSolidus = &h5C
    cSolidus = &h2F
 
    for i = 1 to (len(val))
        currentDigit = mid(val, i, 1)
        if asc(currentDigit) > &h00 and asc(currentDigit) < &h1F then
            currentDigit = escapeJSONSquence(currentDigit)
        elseif asc(currentDigit) >= &hC280 and asc(currentDigit) <= &hC2BF then
            currentDigit = "u00" + right(padLeft(hex(asc(currentDigit) - &hC200), 2, 0), 2)
        elseif asc(currentDigit) >= &hC380 and asc(currentDigit) <= &hC3BF then
            currentDigit = "u00" + right(padLeft(hex(asc(currentDigit) - &hC2C0), 2, 0), 2)
        else
            select case asc(currentDigit)
                case cDoubleQuote: currentDigit = escapeJSONSquence(currentDigit)
                case cRevSolidus: currentDigit = escapeJSONSquence(currentDigit)
                case cSolidus: currentDigit = escapeJSONSquence(currentDigit)
            end select
        end if
        escapeJSON = escapeJSON & currentDigit
    next
end function
 
function escapeJSONSquence(digit)
    escapeJSONSquence = "u00" + right(padLeft(hex(asc(digit)), 2, 0), 2)
end function 
 
function padLeft(value, totalLength, paddingChar)
    padLeft = right(clone(paddingChar, totalLength) & value, totalLength)
end function
 
public function clone(byVal str, n)
    for i = 1 to n : clone = clone & str : next
end function