ASP常用函数:HTMLDecode

2018-09-06 12:30

阅读:378

  <%
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
%>


评论


亲,登录后才可以留言!