我的博客| Blog
- ·微信小程序错误：VM564:...
- ·mongodb3.2设置密码...
- ·单行滚动代码-单行滚动效果
- ·自己动手制作图形字体，以便于...
- ·MySQL无限级分类PHP按...
- ·Windows下的Apach...
- ·如何将网站上的文章分享到微信...
- ·PHP实现自动获取本月第几个...
联系我| Contact Me
- 电话：18681257080
- QQ：271538869
- 邮编：518020
- 信箱：service@08321.org
- 地址：四川省内江市资中县
诚信稳健，和谐共赢
- 以诚信为立世之本，在稳健的基础上，不断寻求创新与突破。
- 以务实严谨、精微细致的专业精神，为客户做最优质的策划，实现效果最大化。
成功，依稀可见
- 为什么成功依稀可见？
- 依希认为：每一人都有成功的机会，只要我们愿意付出努力，成功就在我们的前方。所以：成功，依稀可见！
我的博客
wap中文乱码解决方法之asp
来源：本站编辑 发布日期：2009-9-27 已有 人浏览过此信息
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?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>
<head><meta http-equiv="Cache-Control" content="max-age=7" forua="true"/>
</head>
<template>
<do type="accept" label="返回"><prev/></do>
</template>
<card id="instruction" title="公司简介">
<%
Function URLDecode(enStr)
dim deStr
dim c,i,v
deStr=""
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
v=eval("&h"+Mid(enStr,i+1,2))
if v<128 then
deStr=deStr&chr(v)
i=i+2
else
if isvalidhex(mid(enstr,i,3)) then
if isvalidhex(mid(enstr,i+3,3)) then
v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
deStr=deStr&chr(v)
i=i+5
else
v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
deStr=deStr&chr(v)
i=i+3
end if
else
destr=destr&c
end if
end if
else
if c="+" then
deStr=deStr&" "
else
deStr=deStr&c
end if
end if
next
URLDecode=deStr
end function
%>
<p><%=URLDecode(request("name"))%></p>
<p><%=Conversion(request("name"))%></p>
<p><%=request("name")%></p>
<p><%=unicode(request("name"))%></p>
<p><%=unicode(request("name"))%></p>
<p><%=chinese2unicode(request("name"))%></p>
</card>
</wml>
发送的参数要用server.UrlEncode对参数进行Utf-8编码，接收时用URLDecode进行解码
网页的头文件必须是：<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
网页保存格式为utf-8。
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?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>
<head><meta http-equiv="Cache-Control" content="max-age=7" forua="true"/>
</head>
<template>
<do type="accept" label="返回"><prev/></do>
</template>
<card id="instruction" title="公司简介">
<%
Function URLDecode(enStr)
dim deStr
dim c,i,v
deStr=""
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
v=eval("&h"+Mid(enStr,i+1,2))
if v<128 then
deStr=deStr&chr(v)
i=i+2
else
if isvalidhex(mid(enstr,i,3)) then
if isvalidhex(mid(enstr,i+3,3)) then
v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
deStr=deStr&chr(v)
i=i+5
else
v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
deStr=deStr&chr(v)
i=i+3
end if
else
destr=destr&c
end if
end if
else
if c="+" then
deStr=deStr&" "
else
deStr=deStr&c
end if
end if
next
URLDecode=deStr
end function
%>
<p><%=URLDecode(request("name"))%></p>
<p><%=Conversion(request("name"))%></p>
<p><%=request("name")%></p>
<p><%=unicode(request("name"))%></p>
<p><%=unicode(request("name"))%></p>
<p><%=chinese2unicode(request("name"))%></p>
</card>
</wml>
发送的参数要用server.UrlEncode对参数进行Utf-8编码，接收时用URLDecode进行解码
网页的头文件必须是：<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
网页保存格式为utf-8。
