请问诸位大哥怎样才能将存在数据库中的文本正文按照正确的格式在网页上显示出来，高分相送

[littlespring]

怎样才能将存在数据库中的文本正文按照正确的格式在网页上显示出来，高分相送

[meizz]

在入库之前对存入的文字进行一次转换:

<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case "&" : result=result+"&"
case chr(9) : result=result+"    "
case chr(13) : result=result+"<br>"
case chr(32) : result=result+" "
case chr(34) : result=result+"""
case chr(39) : result=result+"'"
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function
%>

[littlespring]

先谢了
这位大哥我还有点不太明白，怎么将Word文本读到这个函数中呢

[hchxxzx]

你是不是把WORD写到数据库中去？
如果是，那只要把WORD读取出来就可以正确显示了
如果不是，用以下这个函数转换一下就可以了

先把值求出来，再按照下面的函数转换一下
function my_newline(str)
if str<>"" then
my_newline=replace(str,chr(13)&chr(10),"<br>")
my_newline=replace(my_newline,chr(32)," ")
my_newline=replace(my_newline,chr(9),"　　")
else
my_newline=" "
end if
end function

response.write my_newline(rs("xxx"))