<%
FunctionHTMLDecode(sText)
Dim
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
%>
Articles that may be of interest to you:
Javascript UrlDecode function code mysql imitates oracle's decode effect query PHP Be careful of SQL injection vulnerabilities caused by urldecode php urlencode() and urldecode() function character encoding principle detailed explanation of Javascript's function code generated by json (can be decoded with php's json_decode) C# decoding function corresponding to escape in js UrlDecodePHP json_decode function detailed analysis Introduction to decode() function in SQL