在线等，马上给分，关于replace问题

[月小升java-er点com]

function archer(str)
archer=replace(replace(replace(replace(str,"<","⁢"),">",">"),chr(13),"<br>"),""," ")
end function
这个代码能实现换行，文字有空格，等

但是不能实现这个
输入
rrrrr
rrrrrr
输出
rrrrr
rrrrr

我要求输出是
rrrrr
rrrrr
请问如何改上面的代码才能实现

[Laone]

function archer(str)
str = replace(str,"<","<")
str = replace(str,vbCrLf,"<br>")
str = replace(str,chr(32)," ")
archer = str
end function

[jarodzhao]

function archer(str)
archer=replace(replace(replace(replace(str,"<","⁢"),">",">"),chr(13),"<br>"),"(这儿加一个空格试试)"," ")
end function

[fason]

use this function
<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+"""
case "&" : result=result+"&"
case chr(13) : result=result+"<br/>"
case chr(9) : result=result+"    "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function %>


or you can use "textarea",like here

[zl9732]

改成这样子看看：
function archer(str)
archer=replace(replace(replace(replace(str,"<","⁢"),">",">"),chr(13)&chr(10),"<br>"),""," ")
end function

[cmsoft]

archer=replace(replace(replace(replace(replace(str,"<","⁢"),">",">"),chr(13),"<br>")," "," "),chr(10)&char(13),"<br>")

[月小升java-er点com]

给分拉

[bullion]

function encodestr(str)
dim i
str=trim(str)
str=replace(str,"<","<")
str=replace(str,">",">")
str=replace(str,"'","""")
str=replace(str,vbCrLf&vbCrlf,"</p><p>")
str=replace(str,vbCrLf,"<br>")
encodestr=replace(str," ","　")
end function
content=encodestr(request("content"))