程序代码
<%
功能:定义转换为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
%>
