程序代码

<%
'功能:定义转换为javascript字符串输出(约定Javascript中，用单引号引用字符串)
'来源:/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
%>