Question

用我全部的分请教ASP高手一个字体大小的问题

<center><b><font size=3><%=rs("title")%></font></b><br>www.h8job.com ; <%=rs("dateandtime")%> 黑8求职指导站 </center><p>
<blockquote>
<br>
<font size=3><%=rs("content")%></font><br>
<br>
请看上边的代码段，第一个<font size=3>起作用了，标题字体满大的；第2个<font size=3>只对("content")的第一行起作用，后边的内容字体都很小很小，请问为什么啊，这个怎么修改呢
2楼3楼已经说到了问题的原因，可是给的方法都有些问题，3楼的1方法字体是变正常了，可是CONTENT里的<br>之类的都不起作用了，内容堆在一起；2方法不起作用，文字还是不大点。

追加100分求解决方案

Answer 1

<font size=3><%=rs("content")%></font><br>

这个写法是没错的, 和前句一样, 都会按3号字显示.

对于你所说的情况, 只有一个可能, 就是rs("content")的内容本身带有对字体的定义.

假设rs("content")的内容如下面所示:
-------------------
静夜思<br>
<font size=1>
床前明月光，疑是地上霜。举头望明月，低头思故乡。
</font>
-------------------

那么，经过你的程序后，最终的结果就是：
-------------------
<font size=3>静夜思<br>
<font size=1>
床前明月光，疑是地上霜。举头望明月，低头思故乡。
</font>
</font><br>
-------------------

现象就是标题是大字，但后面是小字。就是这么产生的。

要避免这种现象，有两个办法：

1、把所有字符都原样显示：

假如有<font这样的，就直接显示出<font，而不是让它起定义字体的作用。实现方法是经server.htmlencode编码。
-----------------------------
<font size=3><%=server.htmlencode(rs("content"))%></font><br>
-----------------------------

2、清除content里可能带有的对字体的设置：

HTML里对字体的设置，通常是用这几种：
<font size=3>...</font>
<div style="font:...">...</div>
<span style="font-size:...">...</span>

所以清掉这几个，基本上就正常了。

所以可以写这么个小函数（借用楼上的方法，扩充一下^_^）：
-------------------------------
<%
function clearfont(strcontent)
dim tmpcontent
tmpcontent = replace(strcontent, "<font", "<text")
tmpcontent = replace(tmpcontent, "font:", "text:")
tmpcontent = replace(tmpcontent, "font-size:", "text-size:")
clearfont = tmpcontent
end function
%>
<font size=3><%=clearfont(rs("content"))%></font><br>
-------------------------------

当然还会有其他设置字体的方式，但不常见，等碰到时再增加处理就可以了。

Answer 2

解决方法是编缉content里面的内容（源码）
或替换里面的格式
...晕，看要要加点料，如果你能把CON里面的源码给大家看，不出几秒就有答案了。。
<%dim content
content=rs("content")
content=LCASE(content) '转成小写，当然也可以搞个表达式
content=Replace(content,"font ","text ") '注意有空格
content=Replace(content,"</font>","")
%>

<font size=3><%=content%></font>
当然我只是说这个意思

Answer 3

直接把
<font size=3><%=rs("content")%></font>

改成:
<p style='font-size:30px'><%=rs("content")%></p>

其中30改成其它的数就好了.自已满意就行.

Answer 4

给你一个函数 粘贴到文件最后
<%
Function RemoveHTML(strHTML)
ON ERROR RESUME NEXT
strHTMLe=replace(strHTML,"<BR>",chr(13)&chr(10),1)

Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
strOutput = objRegExp.Replace(strHTMLe, "")
strOutput = Replace(strOutput, "<", "〈")
strOutput = Replace(strOutput, ">", "〉")
RemoveHTML = strOutput
Set objRegExp = Nothing
End Function
%>

用法 ：

<font size=3><%=RemoveHTML(rs("content"))%></font><br>

-------------------------------------------------

上面的函数修改一下 可以解决<br>问题

修改如下

<%
Function RemoveHTML(strHTML)
ON ERROR RESUME NEXT
strHTMLe=replace(strHTML,"<BR>",chr(13)&chr(10),1)

Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
strOutput = objRegExp.Replace(strHTMLe, "")
strOutput = Replace(strOutput, "<", "〈")
strOutput = Replace(strOutput, ">", "〉")

strOutput = Replace(strOutput,chr(13)&chr(10), "<br>")

RemoveHTML = strOutput
Set objRegExp = Nothing
End Function
%>

Answer 5

<font size=3><%=rs("content")%>

中间内容

</font>