编程秘籍/JavaScript 编码

对字符串中的特殊字符进行编码，以便可以使用 JavaScript 进行显示

VBScript 解决方案

function JSEncode (sInput)
  JSEncode = sInput
  JSEncode = Replace (JSEncode, chr(0), "")
  JSEncode = Replace (JSEncode, "'", "\'")
  JSEncode = Replace (JSEncode, """", "\""")
  JSEncode = Replace (JSEncode, "&", "\x26")
  end function