网上卖弹弓钢珠违法吗:ASP 文本区(多行)内容预览时 如何识别回车?

function intoHTML(str)'将"<"等字符换成HTML附加命名实体
str=replace(str,"&","&amp;")
str=replace(str,"<","&lt;")
str=replace(str,">","&gt;")
str=replace(str,"""","&quot;")
str=replace(str,"'","&#39;")
str=replace(str," ","&nbsp;")
str=replace(str,"%","&#37;")
str=replace(str,chr(10),"<br>")
intoHTML=str
end function

str=replace(str,chr(10),"<br>")这个把回车换成<br>
chr(10)表示换行

用下面的代码

<%
'过滤HTML标签
function HTMLEncode(fString)
if not isnull(fString) then
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(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLEncode = fString
end if
end function
%>

输出时<%=HTMLEncode(rs(content))%>

做循环控制，在要显示HTML语言两边加<li></li>或者<p></p>也行。
如：
<%do while not rs.eof%>
<li>
<a href="useric.asp?name=<%response.Write(rs("user"))%>"><%response.Write(rs("user"))%></a>
</li>
<%
rs.movenext
loop
response.End()
%>