中科新闻网宁波跨境电商产业园:access数据库中如何存储回车符 网页不显示<br>
来源：百度文库 编辑：中科新闻网 时间：2024/04/30 12:13:59
<%= Server.HTMLEncode((rs3.Fields.Item("content").Value)) %>
1楼的，不行啊，你这个不好用啊
2楼也不行啊，出现这个了
错误类型：
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/top1.asp, line 537, column 96
Response.Write(replace(Server.HTMLEncode((rs3.Fields.Item("content").Value),vbnewline,"<br />"))
可不可以加我QQ一下，帮帮忙 32174320
1楼的，不行啊，你这个不好用啊
2楼也不行啊，出现这个了
错误类型：
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/top1.asp, line 537, column 96
Response.Write(replace(Server.HTMLEncode((rs3.Fields.Item("content").Value),vbnewline,"<br />"))
可不可以加我QQ一下，帮帮忙 32174320
replace(Server.HTMLEncode(rs3.Fields.Item("content").Value),vbnewline,"<br />")
sorry .多了个括号..^_^
提取表单时，先将提取数据里的换行标志替换成<br>存储到数据库就可以了，从数据库读取到页面时就不用在从新做编码转换了，直接读取显示在页面上就可以了！
用下面这个函数就可以了！
Function HTMLEncode(fString)
if not isnull(fString) then
fString = Replace(fString, CHR(38), "&")
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(13), "")
'fString = Replace(fString, CHR(10), "<br/>")
HTMLEncode = fString
end if
end Function
直接把得到的文本框数据replace
replace(你的到的数据,chr(13),"<br>")