keepformat.asp

来自「一个用asp和sql server开发的网上办公系统」· ASP 代码 · 共 12 行

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