UC知道asp怎么样去掉调用数据中的回车换行
来源：百度知道 编辑：UC知道 时间：2024/05/20 14:34:08
我想调用的数据库代码里有回车和换行,怎样屏蔽掉,让我显示的数据没有回车,是一行显示.
比如我这样调用<%=rs("inc_text")%>要怎么写才能屏蔽回车换行?
还是不行啊,我调用的还是有回车,
<%省略这段代码%>
<MARQUEE scrollAmount=2 direction="left" scrolldelay="90">
<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select inc_text from inc_info,inc_class where inc_class.i_id=inc_info.inc_class_id and i_type='网站公告'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.Write("无数据！")
else
do while not rs.eof
%>
<td width="20"></td><td><%=FormatHTML(rs("inc_text"))%></td>
<%
rs.movenext
loop
rs.close
end if
%></tr>
</table>
</MARQUEE>
比如我这样调用<%=rs("inc_text")%>要怎么写才能屏蔽回车换行?
还是不行啊,我调用的还是有回车,
<%省略这段代码%>
<MARQUEE scrollAmount=2 direction="left" scrolldelay="90">
<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select inc_text from inc_info,inc_class where inc_class.i_id=inc_info.inc_class_id and i_type='网站公告'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.Write("无数据！")
else
do while not rs.eof
%>
<td width="20"></td><td><%=FormatHTML(rs("inc_text"))%></td>
<%
rs.movenext
loop
rs.close
end if
%></tr>
</table>
</MARQUEE>
16：54修改
-----------------------
<%Function FormatHTML(fString)
If fString<>"" Then
fString = trim(fString)
fString = replace(fString, ";", "；") '分号过滤
fString = replace(fString, "--", "--") '--过滤
fString = replace(fString, "%20", "") '特殊字符过滤
fString = replace(fString, "==", "") '==过滤
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """")
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), " ") '---------这行 改了
fString = Replace(fStr