<%
FunctionHTMLDecode(sText)
DimI
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))
ForI=1To255
sText=Replace(sText,"&#"&I&";",Chr(I))
Next
HTMLDecode=sText
EndFunction
%>
网站建设 IT知识 IT知识教程 ASP常用函数:HTMLDecode 
最新文章
热门文章
猜你喜欢
