其中，string=rp(string)令字符串string里的所有"变成"？

Question

帮忙设计两个ASP函数，例如rp(string)，nrp(string)。令&变成&令<变成<令>变成>令空格变成 令回车变成<br>而string=nrp(string)是上面那个的逆运算。把*.asp文件发我邮箱吧[e-mail]令&变成& a m p ;令<变成& l t ;令>变成& g t ;令空格变成& n b s p令回车变成<br>

Answer 1

<%
function rp(string)
dim str
str=replace(string,chr(34),"＆quot;")
str=replace(str,chr(38),"＆amp;")
str=replace(str,chr(39),"＆#39;")
str=replace(str,"<","＆lt;")
str=replace(str,">","＆gt;")
str=replace(str,chr(32),"＆nbsp;")
str=replace(str,chr(10),"<br>")
str=replace(str,chr(13),"")
rp=str
end function
function nrp(string)
dim str
str=replace(string,"＆quot;",chr(34))
str=replace(str,"＆#39;",chr(39))
str=replace(str,"＆lt;","<")
str=replace(str,"＆gt;",">")
str=replace(str,"＆nbsp;",chr(32))
str=replace(str,"<br>",chr(13)＆chr(10))
str=replace(str,"＆amp;",chr(38))'注意这一句必须放在最后，否则就像楼上的那样，会出现意想不到的结果？
nrp=str
end function
%>
把以上的＆符号替换为英文状态下的&

Answer 2

Function rp(s)
Dim t
t = Replace(s, "&", "&amp;")
t = Replace(t, "<", "&lt;")
t = Replace(t, ">", "&gt;")
t = Replace(t, " ", "&nbsp;")
t = Replace(t, vbcrlf, "<br>") '这个是Windows换行符,vbcrlf
rp = t
End Function

Function nrp(s)
Dim t
t = Replace(s, "&amp;", "&")
t = Replace(t, "&lt;", "<")
t = Replace(t, "&gt;", ">")
t = Replace(t, "&nbsp;", " ")
t = Replace(t, "<br>", vbcrlf)
nrp = t
End Function

Answer 3

主要就是为了 解决文本域 输入回车后 在页面能直接呈现。