netbox 下开发wap utf8中文乱码

gelei 2009-11-27 05:10:22

主要代码

issave.asp

<%Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>"%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="cache-control" content="no-cache"/>
</head>
<card id="Main" title="爽聊网">
爽聊

 <input name="bookname" type="text" maxlength="12" size="12"/>
<anchor title="保存">保存
<go href="save.asp" accept-charset="utf-8">
<postfield name="Called" value="<%=called%>"/>
<postfield name="UserID" value="<%=UserID%>"/>
<postfield name="bookname" value="$(bookname)"/>
</go>
</anchor>


</card>
</wml>

save.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>"%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="cache-control" content="no-cache"/>
</head>
<card id="Main" title="保存号码">


<%
m = date()
if request("UserID")="" then '本机号码为空
response.Write("请填写本机号")
response.write " <anchor>返回<prev/></anchor>"
response.write "</card></wml>"
response.end
else '请填写本机号
UserID=StandardNum(request("UserID"))

if request("bookname")="" then '推荐号码为空
response.Write("姓名不为空")
response.write " <anchor>返回<prev/></anchor>"
response.write "</card></wml>"
response.end
else '推荐号码不为空
bookname=request("bookname")
'response.Write(bookname)
'response.write " <anchor>返回<prev/></anchor>"
'response.write "</card></wml>"
'response.end
QQphone=StandardNum(request("Called"))
set rs3= CreateObject("ADODB.Recordset")
rs3.open "select * from user_data where UserID='" & UserID & "'",conn
'response.Write("select * from user_data where Userpwd='" & OldUserpwd & "' and UserID='" & UserID & "'")
'response.End()
if rs3.eof then '主叫未注册
response.write("主叫未注册")
response.write " <anchor>返回<prev/></anchor>"
response.write "</card></wml>"
response.end
else '主叫已注册
set rs4= CreateObject("ADODB.Recordset")
rs4.open "select * from qqphones where QQphone='" & QQphone & "' and userid='" & userid & "' ",conn
'response.Write("select * from qqphones where QQphone='" & QQphone & "' and userid='" & userid & "'")
'response.End()
if not rs4.eof then '主叫未注册
response.write("重复!")
response.write " <anchor>返回<prev/></anchor>"
response.write "</card></wml>"
response.end

else

conn.execute "insert into qqphones(UserID,QQphone,bookname,AddTime) values('" &UserID& "','" & QQphone & "','" &bookname& "',' "&m&chr(32)&hour(now())&":"&minute(now())&":"&second(now())&" ')"
'response.Write(insert into qqphones(UserID,QQphone,bookname,AddTime) values('" &UserID& "','" & QQphone & "','" &bookname& "',' "&m&chr(32)&hour(now())&":"&minute(now())&":"&second(now())&" '))
'response.write " <anchor>返回<prev/></anchor>"
'response.write "</card></wml>"
'response.end
end if

%>
<%

end if
end if
end if

%>

保存成功
 
<anchor title="呼叫">
呼叫
<go href="send.asp">
<postfield name="Called" value="$(Called)"/>
<postfield name="UserID" value="$(UserID)"/>
</go>
</anchor>

 
<anchor>返回<prev/></anchor>

</card>
</wml>

问题：用iis正常，但文件netbox编译后写入中文乱码，查看资料有人说需要转码函数，不知道具体步骤，请详解。

...全文