在文章存入数据库之前这样子。

str=replace(str," "," ")
str=replace(str,chr(13),"
")
str=replace(str,chr(9),"  ")

再存入数据库。

<%
function adjust(str)
dim result
dim l
if isNULL(str) then
adjust=""
exit function
end if
l=len(str)
result=""
    dim i
    for i = 1 to l
     select case mid(str,i,1)
     case "<"
     result=result+"<"
     case ">"
     result=result+">"
case chr(13)
     result=result+"
"
     case chr(34)
     result=result+"""
     case "&"
     result=result+"&"
case chr(32)    
     if i+1<=l and i-1>0 then
     if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then    
     result=result+" "
     else
     result=result+" "
     end if
     else
     result=result+" "    
     end if
     case chr(9)
     result=result+" "
     case else
     result=result+mid(str,i,1)
end select
next
adjust=result
end function

在要用到的地方调用这个函数就行了。