取出数据，适当保持HTML格式，如换行， 简单的做法是：
<%=replace(rs("texing"),chr(10),"<br>")%>
<%=Server.HTMLcode rs("texing"))%> ， 直接这样出错。
<%=Server.HTMLEncode rs("texing"))%> 这个是在网页也能吧示html代码。
HTMLcode函数
Function HTMLcode(fString)
if not isnull(fString) then
if instr(fString,"<")>0 and instr(fString,">")>0 then
HTMLcode = fString
else
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "<br><br>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLcode = fString
end if
end if
End Function
备注：
chr(13) 是一个回车
Chr(10) 是个换行符
chr(32) 是一个空格符