ASP常用函數:Str4Js()

　　程序代碼

　　<%
功能:定義轉換為javascript字符串輸出(約定Javascript中用單引號引用字符串)

　　Function StrJs(sString)
  StrJs = sString
  If IsNull(sString) Then StrJs = "" : Exit Function
  StrJs = Replace(StrJs "" "")
  StrJs = Replace(StrJs "" "")
  StrJs = Replace(StrJs vbCrLf "n")
  StrJs = Replace(StrJs vbCr "n")
  StrJs = Replace(StrJs vbLf "n")
  StrJs = Replace(StrJs vbTab "t")
  StrJs = Replace(StrJs "script" "scr+ipt" )
End Function
%>

From:http://tw.wingwit.com/Article/program/net/201311/14356.html