<% Function HTMLDecode(sText) Dim I sText = Replace(sText, "&" , Chr(38)) sText = Replace(sText, """", Chr(34)) sText = Replace(sText, "<" , Chr(60)) sText = Replace(sText, ">" , Chr(62)) sText = Replace(sText, " ", Chr(32)) For I = 1 To 255 sText = Replace(sText, "&#" & I & ";", Chr(I)) Next HTMLDecode = sText End Function %>

　　推荐阅读

　　PJBLOG使用技巧

注：以下内容中除了几个小的改动，大部分都是网友们研究的成果和使用心得，我只是在这里做了一些集合和整理。最后在此，对PJBLOG的开发者舜子表示感谢，提供了这么好的程序供我们共享，也同时感谢不断为PJBLOG日渐>>>详细阅读

本文标题：ASP常用函数:HTMLDecode

地址：http://www.17bianji.com/kaifa2/ASP/32761.html

 1/2    1