Function Xszh (en)
if zh<> "" or Not IsNull (en) then
zh=replace (en, "", "&nbsp;&nbsp;")
zh=replace (en, "&euro;", "'")
' Zh=replace (ZH,CHR, "<br>")
zh=lcase (en)
zh=replace (en, "<table", "&lt;table")
zh=replace (en, "<hr>", "&lt;hr&gt;")
zh=replace (en, "<tr", "&lt;tr")
zh=replace (en, "<%", "&lt;%")
zh=replace (en, "<html>", "&lt;html&gt;")
zh=replace (en, "<body", "&lt;body")
' Zh=replace (en, "<div", "&lt;div")
zh=replace (en, "<iframe", "&lt;iframe")
zh=replace (en, "</iframe>", "&lt;iframe&gt;")
zh=replace (en, "</html>", "&lt;/html&gt;")
' Zh=replace (en, "<object", "&lt;object")
' Zh=replace (en, "<object", "&lt;object")
' Zh=replace (en, "</div>", "&lt;/div&gt;")
' Zh=replace (en, "<span", "&lt;span")
' Zh=replace (en, "<script", "&lt;script")
zh=replace (en, "<td", "&LT;TD")
zh=replace (en, "</table>", "&lt;/table&gt;")
zh=replace (en, "<title>", "&lt;title&gt;")
zh=replace (en, "</title>", "&lt;/title&gt;")
zh=replace (en, "</body>", "&lt;/body&gt;")
zh=replace (en, "<input", "&lt;input")
zh=replace (en, "<!doctype", "&lt;doctype")
zh=replace (en, "</tr>", "&lt;/tr&gt;")
zh=replace (en, "</td>", "&lt;/td&gt;")
' Zh=replace (en, "<img", "&lt;img")
zh=replace (en, "[img]", "<img border=0 src=")
zh=replace (en, "[/img]", ">")
zh=replace (en, "<text", "&lt;text")
zh=replace (en, "<java", "&lt;java")
zh=replace (en, "<a", "<a Target=_blank")
zh=replace (en, "</javascript>", "&lt;/javascript&gt;")
zh=replace (en, "[url=", "<a target=_blank href=")
zh=replace (en, "[/url]", "</a>")
Xszh = en
End If
End Function