程序加密需要替换回车符，但解密还原后，遇到不执行的问题，怎么处理？

<%
dd=5555
bb=6666
response.Write(dd&bb)
%>

但换个方式就不执行。测试一下下面这个，它不运行。

<%
function UnEncode(cc)
cc=replace(cc,"aaaa",vbcr)
UnEncode=cc
end function
ss="dd=5555aaaabb=6666aaaaresponse.Write(dd&bb)"
%>
<%UnEncode(ss)%>