
Function HTMLDecode(sText)
    Dim I
    sText = Replace(sText, "&quot;", Chr(34))
    sText = Replace(sText, "&lt;"  , Chr(60))
    sText = Replace(sText, "&gt;"  , Chr(62))
    sText = Replace(sText, "&amp;" , Chr(38))
    sText = Replace(sText, "&nbsp;", Chr(32))
    For I = 1 to 255
        sText = Replace(sText, "&#" & I & ";", Chr(I))
    Next
    HTMLDecode = sText
End Function
document.write(HTMLDecode("&lt;p&gt;&lt;font color=&quot;#666666&quot;&gt;|  &lt;a href='/n6.htm'&gt;联系我们&lt;/a&gt; | &lt;a href='/n8.htm'&gt;诚征伙伴&lt;/a&gt; | &lt;a href='/n9.htm'&gt;招贤纳士&lt;/a&gt; | &lt;a href='/n60.htm'&gt;公司简介&lt;/a&gt; |&lt;/font&gt;&lt;/p&gt;&lt;script src='http://s78.cnzz.com/stat.php?id=443512&amp;web_id=443512&amp;show=pic1' language='JavaScript' charset='gb2312'&gt;&lt;/script&gt;")&chr(10)&chr(13))