段友的身份深不可测
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
%>
