asp常用函数_HTMLDecode
来源:
中文源码网 浏览:137 次 日期:2024-04-19 09:12:43
【下载文档: asp常用函数_HTMLDecode.txt 】
ASP常用函数:HTMLDecode
<% 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 %>