ASP常用函数:Str4Js()

核心提示：程序代码<%'功能:定义转换为javascript字符串输出(约定Javascript中，用单引号引用字符串)'来源:http://www.cncms.com/asp.aspFunction Str4Js(sString) Str4Js = sString If IsNull(sString)

程序代码
<%
'功能:定义转换为javascript字符串输出(约定Javascript中，用单引号引用字符串)
'来源:http://www.cncms.com/asp.asp

Function Str4Js(sString)
　  Str4Js = sString
　  If IsNull(sString) Then Str4Js = "" : Exit Function
　  Str4Js = Replace(Str4Js, "\", "\\")
　  Str4Js = Replace(Str4Js, "'", "\'")
　  Str4Js = Replace(Str4Js, vbCrLf, "\n")
　  Str4Js = Replace(Str4Js, vbCr, "\n")
　  Str4Js = Replace(Str4Js, vbLf, "\n")
　  Str4Js = Replace(Str4Js, vbTab, "\t")
　  Str4Js = Replace(Str4Js, "script", "scr'+'ipt", 1, -1 , 1)
End Function
%>