让WAP模拟器显示中文汉字

<%@ LANGUAGE="VBScript" %>
<% Function c2u(text)
   For i=1 to Len(text)
   c=Mid(text,i,1)
   c2u=c2u&"&#x" & Hex(AscW(c)) & ";"
   next
  End Function
%>

<% Response.ContentType="text/vnd.wap.wml: %><?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"><wml>
 <template>
    <do type="options" label="back">
      <prev/>
   </do>
 </template> 

<card id="lists">
  <p><%=c2u("选择一位作者：")%>
   <select title="<%=c2u("作者列表")%>" ivalue="0">
     <option value="jinyong" onpick="#jy"><%=c2u("金庸")%></option>
     <option value="gulong" onpick="#gl"><%=c2u("古龙")%></option>
   </select>
  </p>
</card>

<card id="jy">
  <onevent type="onenterbackward">
    <prev/>
  </onevent>
<do type="accept">
  <go href="#display_fav"/>
</do>
<p><%=c2u("选择你想要购买的书")%>
<select name="fav" title="Stooges">
   <option value="<%=c2u("笑傲江湖")%>"><%=c2u("笑傲江湖")%></option>
   <option value="<%=c2u("射雕英雄传")%>"><%=c2u("射雕英雄传")%></option>
   <option value="<%=c2u("鹿鼎记")%>"><%=c2u("鹿鼎记")%></option>
   <option value="<%=c2u("神雕侠侣")%>"><%=c2u("神雕侠侣")%></option>
</select>
</p>
</card>

<card id="gl">
 <onevent type="onenterbackward">
   <prev/>
 </onevent>
 <do type="accept">
   <go href="#display_fav"/>
 </do>
<p><%=c2u("选择你想要购买的书")%>
 <select multiple="true" title="<%=c2u("古龙")%>" name="fav">
   <option value="<%=c2u("孤星传")%>"><%=c2u("孤星传")%></option>
   <option value="<%=c2u("大地飞鹰")%>"><%=c2u("大地飞鹰")%></option>
   <option value="<%=c2u("天涯明月刀")%>"><%=c2u("天涯明月刀")%></option>
   <option value="<%=c2u("陆小凤")%>"><%=c2u("陆小凤")%></option>
 </select>
</p>
</card>

<card id="display_fav">
<p><%=c2u("你选择的书是：")%>$fav.</p>
</card>
</wml>