<%Function FormatWord(ly)
ly=server.HTMLEncode(ly)
ly=Replace(ly, "'", "'")
ly=Replace(ly, chr(13) & chr(10), "<br>")
ly=Replace(ly, chr(10), "<br>")
ly=Replace(ly, chr(13), "<br>")
ly=Replace(ly,CHR(32)," ")
FormatWord=ly
End function
%>
调用过程的时候这么写 response.write FormatWord(rs("content"))