程式設計秘籍/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