|
Displaying Source Code(s)
|
|
HTMLDecode Function
--------------------------------------------------------------------------------
Description : The HTMLDecode function decodes an HTML encoded
string back into the original html code.
<%
Private Function HTMLDecode(ByVal encodedstring)
Dim tmp, i
tmp = encodedstring
tmp = Replace( tmp, """, Chr(34) )
tmp = Replace( tmp, "<" , Chr(60) )
tmp = Replace( tmp, ">" , Chr(62) )
tmp = Replace( tmp, "&" , Chr(38) )
tmp = Replace( tmp, " ", Chr(32) )
For i = 1 To 255
tmp = Replace( tmp, "&#" & i & ";", Chr( i ) )
Next
HTMLDecode = tmp
End Function
%> |
|
|
123
Eng