Function Xszh (en)
If zh<> "" or Not IsNull (en) Then
Zh=replace (en, "", " ")
Zh=replace (en, "€", "'")
"Zh=replace (ZH,CHR), <br>"
Zh=lcase (en)
Zh=replace (en, "<table", "<table")
Zh=replace (en, "Zh=replace (en, "<tr", "&LT;TR")
Zh=replace (en, "<%", "<%")
Zh=replace (en, "Zh=replace (en, "<body", "<body")
' Zh=replace (en, "<div", "<div")
Zh=replace (en, "<iframe", "<iframe")
Zh=replace (en, "</iframe>", "<iframe>")
Zh=replace (en, "' Zh=replace (en, "<object", "<object")
' Zh=replace (en, "<object", "<object")
' Zh=replace (en, "</div>", "</div>")
' Zh=replace (en, "<span", "<span")
' Zh=replace (en, "<script", "<script")
Zh=replace (en, "<td", "&LT;TD")
Zh=replace (en, "</table>", "</table>")
Zh=replace (en, "<title>", "<title>")
Zh=replace (en, "</title>", "</title>")
Zh=replace (en, "</body>", "</body>")
Zh=replace (en, "<input", "<input")
Zh=replace (en, "<!doctype", "<doctype")
Zh=replace (en, "</tr>", "</tr>")
Zh=replace (en, "</td>", "</td>")
' Zh=replace (en, "Zh=replace (EN, "[img]", "Zh=replace (en, "[/img]", ">")
Zh=replace (en, "<text", "<text")
Zh=replace (en, "<java", "<java")
Zh=replace (en, "<a", "<a Target=_blank")
Zh=replace (en, "</javascript>", "</javascript>")
Zh=replace (en, "[url=", "<a target=_blank href=")
Zh=replace (en, "[/url]", "</a>")
Xszh = en
End If
End Function