这就是我开头结尾:Wap网站提交中文出现乱码，如何解决？

我刚开始接触Wap网站，在网上下了点资料，自己做了个电话号码的查询，所有的一切都能正常运行，可是在文本框中输入中文后再点搜索，返回的页面就不是搜索应该得到的页面，而是说没有找到。输入英文或数字都可以返回相应的正确的页面。
程序如下：
================index.asp===========
<%Response.ContentType="text/vnd.wap.wml"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card title="我的电话本">
<p>
<input name="search" maxlength="20"/><br/>
<anchor><go href="search.asp?txt=$(search)" method="get" accept-charset="utf-8"></go>查询</anchor><br/>
<p>==============</p>
<a href="search.asp">[全部]</a><br/>
<a href="weather/">天气预报</a><br/>
<p>==============</p>
</p>
</card>
</wml>
====================================

==========search.asp================
<!--#include file=conn.asp-->
<%Response.ContentType="text/vnd.wap.wml"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card title="我的电话本">
<p>
<%
txt=trim(replace(replace(request("txt"),"'",""),";",""))
rs.source="select * from callBook where fName like '%"&txt&"%' or fPhoneNum like '%"&txt&"%' or fPhoneNum2 like '%"&txt&"%' order by fName"
rs.open rs.source,objcn,1,1
do while not rs.eof
response.write chinese2unicode(trim(rs("fName")))&"<br/>"&trim(rs("fPhoneNum"))&"<br/>----------------<br/>"
rs.movenext
loop
rs.close
set rs=nothing
objcn.close
set objcn=nothing
%>
==============<br/>
<a href="search.asp">[全部]</a>|<a href="index.asp">[返回]</a><br/>
==============<br/>
</p>
</card>
</wml>
====================================

============conn.asp================
<%
dim objcn,rs
set objcn=server.createobject("adodb.connection")
objcn.connectionstring="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("phone.mdb")
objcn.open
set rs=server.createobject ("adodb.recordset")
%>
<%
function chinese2unicode(Salon)
dim i
dim Salon_one
dim Salon_unicode
for i=1 to len(Salon)
Salon_one=Mid(Salon,i,1)
Salon_unicode=Salon_unicode&chr(38)
Salon_unicode=Salon_unicode&chr(35)
Salon_unicode=Salon_unicode&chr(120)
Salon_unicode=Salon_unicode& Hex(ascw(Salon_one))
Salon_unicode=Salon_unicode&chr(59)
next
chinese2unicode=Salon_unicode
end function
%>
====================================

请高手能给个正解。