keepformat.asp

来自「一个用ASP编写的办公自动化程序」· ASP 代码 · 共 14 行

<%
function keepformat(content)
	if typename(content)="Null" then
		keepformat=""
	else
		str=replace(content," ","&nbsp;")
		str=replace(str,"<","&lt")
		str=replace(str,">","&gt")
		str=replace(str,chr(13)+chr(10),"<br>")
		keepformat=str
	end if
end function
%>