asp函数htmtojs

[Code]<%function htmltojs(str)
dim tojs,i
str = Replace(str, Chr(10), "") 
str = Replace(str, Chr(32) & Chr(32), "") 
str = Split(str, Chr(13))
tojs=""
For i = 0 To UBound(str) 
If Trim(str(i)) <> "" Then 
str(i) = Replace(str(i), Chr(34), Chr(92)&Chr(34)) 
str(i) = Replace(str(i), Chr(39), Chr(92)&Chr(39)) 
str(i) = Replace(str(i), Chr(47), Chr(92)&Chr(47)) 
tojs = tojs & "document.writeln(" & Chr(34) & str(i) & Chr(34) & ");" & Chr(10) 
End If 
Next
htmltojs = tojs
end function
%>[/Code]