Question

ASP如何在文章中显示代码

我用的是ASP想要在文章中显示代码给别人看到...例如编程教程文章..我试过使用下面这个来实现...但是问题出来了..我想要加入图片...链接的时候由于有这个的存在也吧代码直接显示出来...我看到别的网站是把要显示的代码单独框起来..如这个http://www.chinaz.com/Program/Asp/0319250022008.html
我想知道这种方法如何实现..谢谢大家了
<%
function htmlcode(fstring)
if not isnull(fstring) then
fstring=replace(fstring,">",">")
fstring=replace(fstring,"<","<")
fstring=replace(fstring,"&#","<I>&#</I>")
fstring=replace(fstring,chr(32),"<I></I> ")
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),"</p><p>")
fstring=replace(fstring,chr(10),"<br>")
htmlcode=fstring
end if
end function
%>
爱じのve恋ゑ 你说的这个需要在录入数据库的时候就要进行编辑
但是我现在数据库里面已经有了近千篇文章...我不可能再编辑一次...
有没有不用在录入数据库的时候就进行编辑..
或者htmlcode中能不能标记一个例外..例如给图片显示的代码开个例外..?
谢谢你了

我的网站:www.sscee.com

Answer 1

去我的BLOG里看的显示是对的.百度编辑后最终显示有些变化.
'这个是到你数据库里时用的

function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")

fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
fString = Replace(fString, "<", "<")
fString = Replace(fString, ">", ">")
fString = Replace(fString, CHR(32), " ")

HTMLEncode2 = fString
end function

'前台显示
function HTMLDecode(fString)
fString = Replace(fString, "",CHR(13))
fString = Replace(fString, "</P><P>","</P><P>")
fString = Replace(fString, "<BR>","<BR>")
'fString = Replace(fString, " "," ")

HTMLDecode = fString
end function

例如
txt=HTMLEncode2(request.form("你的内容"))
rs("txt")=txt

前台显示的时候用
<%=HTMLDecode(rs("txt"))%>

你想单独为图片开个例外,就在前台显示时将<；img 再replace 成标签<img 应该就可以了..