分类: ASP Technology

保持文本数据格式不变的函数

[ 2006-05-01 20:54:32 | 作者: kite ]
字体大小: 大 | 中 | 小
<%
function HTMLEncode(fString)
fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")
fString = Replace(fString, CHR(32), "&nbsp;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "<br>")
fString = Replace(fString, CHR(10), "<br>")
HTMLEncode = fString
end function
%>
永久地址 永久地址: http://www.jmkite.com/kite/technology/feed.asp?q=comment&id=190

此文还没有评论.

您无法为这篇日志发表评论.