keepformat.asp

OA企业智能办公自动化系统边缘特别版 功能非常强大的OA系统 1.仿WINDOWS操作界面

<%
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
%>