keepformat.asp

一个用asp和sql server开发的网上办公系统

<%
Function keepformat(content)
dim str
if len(content)<>0 then
   str=replace(content,"<br>",chr(13))
   str=replace(str,"<BR>",chr(13))
   keepformat=replace(str,"<P>",chr(13)+chr(10))
else
   keepformat=""
end if
End function
%>