如何用htmlEncode来显示信息Unicode

<%@ Language=VBScript %>
<html>
<head>
<title>
千花飘舞之UNICODE编号</title>
</head>
<body>
<%
Dim strU
dim strNormal
strU= ChrW(7913)
strNormalANSI= "aiN"
%>

<font face="arial" size= 1>
<P>An ANSI value: <%=strNormalANSI%>
<P>An htmlencoded String: <%=Server.htmlEncode(strU)%>
</font>