下面的函数试试:
function StrtoDatebase(str)
if str="" or IsNull(str) then
StrtoDatebase=""
else
if isHtmlTag(str) then
StrtoDatebase=str
else
str = Replace(str,"<","<")
str = Replace(str,">",">")
str = Replace(str,chr(10)+chr(13),"<br>")
str = Replace(str,chr(13),"<br>")
str = Replace(str,chr(32)," ")
str=replace(str," "," ")
StrtoDatebase= str
end if
end if
end if
end function