黄丽玲好听的歌曲:VB同时替换<>为《》咋实现啊?

来源:百度文库 编辑:高校问答 时间:2024/05/15 14:55:17
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoWhiteSpace(str)
DoWhiteSpace = Replace((Replace(Replace(str,"<","《"), vbCrlf, "<br>")), chr(32)&chr(32), " ")
End Function
</SCRIPT>
这段代码只能把<换成《...我想同时把<>换成《》怎么换啊?

function DoWhiteSpace(str)
DoWhiteSpace = Replace(Replace(Replace(Replace(str,"<","《"), ">", "》"), vbCrlf, "<br>"), chr(32)&chr(32), " ")
End Function