特殊内容的显示

显示HTML标签

如果我们在HttpRequest设置以下代码：

Dim sb As new StringBuilder
sb.AppendLine("</br>表示换行, 段落以<p>开始,以</p>结束!")
e.WriteString(sb.Tostring)

意料之中，浏览器没有按照我们预期的方式显示：

如果要正常显示</br>等HTML标签，可以将代码改为：

Dim sb As new StringBuilder
sb.AppendLine(HTMLEncode("</br>表示换行, 段落以<p>开始,以</p>结束!"))
e.WriteString(sb.Tostring)

现在浏览器就能正常显示了：

保持格式显示

假定有下图所示的一个表：

如果我们在HttpRequest设置以下代码：

Dim sb As new StringBuilder
For Each dr As DataRow In DataTables("唐诗").DataRows
    sb.Appendline(dr("内容"))
    sb.AppendLine("</br></br>")
Next
e.WriteString(sb.Tostring)

不出意料，浏览器的没有按照我们希望的格式显示：

这是因为浏览器在解析内容时，会将多个连续的空格或换行，转换为一个空格。

如果希望按照原来的格式显示，可以将代码改为：

Dim sb As new StringBuilder
For Each dr As DataRow In DataTables("唐诗").DataRows
    sb.Appendline("<pre>" & dr("内容") & "</pre>")
    sb.AppendLine("</br>")
Next
e.WriteString(sb.Tostring)

现在就可以按照原格式显示了：

提示：<pre>和</pre>之间的内容，会按照原格式显示。