文本原样输出问题

也许大家也会遇到类似的问题，就是从数据库中输出文本时，经常没有空格，回车。格式比较乱。在这，我从网上下载了一个函数，轻松解决了以上的问题。发布一下。以此共勉。

 

function formatinputtext(strtext)
dim A ,i,re_do_loop
Do
re_do_loop=false
A=len(strtext)
for i=1 to A
  if len(strtext)=A then
    if  right(left(strtext,i),1)=chr(10) then
         response.write server.HTMLEncode(left(strtext,(i-1)))
         response.write "<br>"
         strtext=right(strtext,(A-i))
         re_do_loop=true
   elseif right(left(strtext,i),1)=chr(32) then
        response.write server.HTMLEncode(left(strtext,(i-1)))
         response.write "&nbsp;"
         strtext=right(strtext,(A-i))
         re_do_loop=true
    end if
 end if
next
loop until re_do_loop=false

        if strtext<>"" then
            response.write server.HTMLEncode(strtext)
        end if
end function