关闭

WAP中ASP传递中文字符查询数据库演示

729人阅读 评论(0) 收藏 举报
首先我们先预览一下Openwave V7 Simulator和WAPDisplayer V1.5查看实例的效果图。手机采用联通CDMA普天SCP-580调试通过,没有实机拍摄。

Openwave V7 Simulator预览的程序效果图



WAPDisplayer V1.5预览的程序效果图

  程序用到的为Access2000数据库,结构设计如下所示。数据库文件保存为#WAPZJ.mdb,内含一个表,表名为WAPZJ。

按如下内容填写数据库

WAPZJ
Id Title Content
1 免费获得正版QuickWAP V1.5 为了感谢大家对WAP之家的支持,只要你在本站发表有效文章累积达到30篇或发表相关类型有效资源达到15个,您还可以发表仅仅2篇的原创QuickWAP软件的技术文章或评测您就可以向管理员申请免费获得正版QuickWAP V1.5一套,,心动了吗?快行动吧! 联系QQ :6500450 Email: wapzj#126.com (把#换成@)
2 本站WAP站开通网络实名:5280 即日,WAP技术门户(www.wapzj.com)与-全球最大中文手机搜索引擎--悠悠村(www.uucun.com)合作,在WAP技术门户旗下网站(wap.wapzj.com)推出了手机搜索功能,,并开通了网络实名:5280,移动用户您只要编辑短信5280发送到169916即可收到WAPPUSH服务信息(免费),点击下载就可以直达我们WAP网站!欢迎大家试用!


Index.asp 用于输入待查询字符的文件。

Index.asp文件代码

<%
Response.ContentType = "text/vnd.wap.wml"
%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.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" />
</head>
<card id="Search" title="WAP中文字符传递">
<p>
欢迎使用中文WAP搜索<br/>
请输入关键词: <input name="KeyWord" type="text" value="手机" />
<br/>
<do type="accept" label="查询">
<go href="Search.asp" method="post" accept-charset="gb2312">
<postfield name="KeyWord" value="$(KeyWord)" />
</go>
</do>
</p>
</card>
</wml>

Search.asp 用于进行查询,并将结果显示出来的文件。

Search.asp文件代码

<%'###################################################
'程序编写:Bicyle
'修改时间:2005-12-19 10:10
'文件归属:共享
'个人主页:http://wap.bicyle.org
'###################################################%>
<%
Response.ContentType = "text/vnd.wap.wml"
%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.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" />
</head>
<card id="Login" title="WAP中文字符传递">
<p>
<%
Set Conn=Server.CreateObject("Adodb.Connection")
DBPath = Server.MapPath("#WapZJ.mdb")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'接收中文字符。
Dim KeyWord
KeyWord=Request("KeyWord")
Dim SQL,Rs
'注意下边的这句sql语句。有时候变量要用'引起来。
SQL = "SELECT * FROM WAPZJ WHERE Title Like '%" & KeyWord & "%'" &" Or Content Like '%" & KeyWord & "%'"
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open SQL,Conn,1,3
If Rs.EOF then
'对于使用Response.Write输出的语句好像必须要进行UTF-8转码,虽然声明了使用gb2312。
Response.Write Uni("没有结果")
Response.Write "<do type='accept' label='Retry'>"
Response.Write " <go href='Index.asp'/>"
Response.Write "</do>"
Else
Response.Write Uni("标题:") & Uni(Rs("Title")) & "<br/>"
Response.Write Uni("内容:") & Uni(Rs("Content"))
End If
%>
<br/>
<a title="确定" href="Index.asp">重新搜索</a>
</p>
</card>
</wml>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn = Nothing
%>
<%
'以下是UTF-8转码的函数
Function Uni(Chinese)
For I = 1 to Len (Chinese)
A=Mid(Chinese, i, 1)
Uni=uni & "&#x" & Hex(Ascw(a)) & ";"
Next
End Function
%> 

  以上程序通过在Index.asp文件中输入需要查询的中文字符,然后通过Post的方式将变量传递给Search.asp文件,通过Request函数接收变量值,再利用Sql语句从数据库字段Title和Content的内容中进行相似查询,如果找到则将显示该条记录,找不到则提示没有结果。

  以上是使用ASP+WML开发的一个中文字符传递在数据库查询中的简单应用,程序采用的是GB2312编码方式,如果您使用QuickWAP那么将可以轻松使用UTF-8的编码方式,您可以参考如下文章。
  QuickWAP轻松解决WAP中文参数传递 
  http://download.enet.com.cn/blog/index.php?itemid=5686&catid=1

注意:
  经过实际测试虽然文件代码已经声明使用GB2312编码方式,但是对于Response.Write输出的中文字符仍然需要UTF-8进行转码。

 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:186955次
    • 积分:2763
    • 等级:
    • 排名:第12972名
    • 原创:74篇
    • 转载:76篇
    • 译文:1篇
    • 评论:31条
    文章分类
    最新评论