Function HtmlFormat(ByVal vStr)
If Has(vStr) Then
Dim m,Match : Set m = RegMatch(vStr, "<([^>]+)>")
For Each Match In m
vStr = Replace(vStr, Match.SubMatches(0), regReplace(Match.SubMatches(0), "\s+", Chr(0)))
Next
Set m = Nothing
vStr = Replace(vStr, Chr(32), " ")
vStr = Replace(vStr, Chr(9), " ")
vStr = Replace(vStr, Chr(0), " ")
vStr = regReplace(vStr, "(<[^>]+>)\s+", "$1")
vStr = Replace(vStr, vbCrLf, "<br />")
End If
HtmlFormat = vStr
End Function
调用 :<%=HtmlFormat(要显示的内容字段或变量)%>