ASP常用函数:Str4Js()技巧

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

Function Str4Js(sString)HpU中国设计秀
    Str4Js = sStringHpU中国设计秀
    If IsNull(sString) Then Str4Js = "" : Exit FunctionHpU中国设计秀
    Str4Js = Replace(Str4Js, "", "")HpU中国设计秀
    Str4Js = Replace(Str4Js, "'", "'")HpU中国设计秀
    Str4Js = Replace(Str4Js, vbCrLf, "n")HpU中国设计秀
    Str4Js = Replace(Str4Js, vbCr, "n")HpU中国设计秀
    Str4Js = Replace(Str4Js, vbLf, "n")HpU中国设计秀
    Str4Js = Replace(Str4Js, vbTab, "t")HpU中国设计秀
    Str4Js = Replace(Str4Js, "script", "scr'+'ipt", 1, -1 , 1)HpU中国设计秀
End FunctionHpU中国设计秀
%>HpU中国设计秀