繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 264 ::
收藏到网摘: n/a
<%
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
%>
评论 (0) All
