[asp]替换函数replace问题请教一下[supfrie] [复制链接]

Function text_chg(aBody)
text_chg = replace(aBody,"<","<")
text_chg = replace(text_chg,">",">")
text_chg = replace(text_chg,chr(39),"'")
text_chg = replace(text_chg,chr(34),""")

text_chg = replace(text_chg,chr(13)&chr(10),"<br>")

text_chg = replace(text_chg," "," ")
text_chg = trim(text_chg)
text_chg = replace(text_chg," "," ")
End Function