关于ASP+wml开发wap手机网站的问题!

来源:百度知道 编辑:UC知道 时间:2024/05/31 04:24:05
昨天花了一夜时间看了社区里所以关于wap下,ASP怎么实现查询中文的方法,看了大家说了什么过程啦,方法啦,函数啦....就看到一们仁兄和我一样,一一试过后就一个回答,还是不行!还是不行!非常体会那位仁兄的心情,真的不是不行,不知道为什么?
后来发现问题就出在wap的表单提交中文,中文不能传给ASP下的程序!数字和字母都可以,就是中文不行!请哪位高人再指点指点!这里附上代码,请高人自己测试一下,是不是这样,如果你修改成功,可以实现功能,又可以在模似器中成功运行使用的话,请回帖到这里吧!我想会有很多很多wap开发的朋友感谢你的!你做了件大好事!

下面是代码,直接保存为test.asp就可以进入winwap测试了!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% 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>

<head>

<meta http-equiv="Cache-Control" content="max-age=0"/>

<meta http-equiv="Cache-Control" content="no-cache"/>

把中文转换成UTF-8编码
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</p><p> ")
fString = Replace(fString, CHR(10), "<br> ")
HTMLEncode = fString
end if
end function

现在没有空哦!
有空就帮你看下!