初试WAP之wml＋ASP查询

在计算机行业摸爬滚打多年，第一次把文章发到网上，写得不好还请多包涵。这个项目的初衷其实很简单：工作中需要频繁查询企业注册资料，朋友也经常来问，干脆在网站上集成一个查询功能。但有人反馈说没有电脑，那就用手机吧——手机查询才是真正的随时随地。于是，用记事本敲了一个WAP查询系统。

数据库结构如下：
库名：data.mdb
表名：info
字段：id、企业名称、住所、法定代表人……（这个省略号是等等的意思）

一、反馈页面 hello.asp

第一个页面是查询入口，即hello.asp。功能很简单：提供一个输入框，让用户输入企业名称，然后提交搜索。这类需求在WAP开发中很常见，但细节处理上需要注意几个地方。

<%@ Language=VBScript %>
<% Response.ContentType="text/vnd.wap.wml" %>





请输入查询资料
确定







上饶工商信息网

二、信息接收 页面 qycx.asp

第二个页面负责接收查询关键字并返回结果列表。这里有个值得注意的细节：最初是以“企业名称”作为关键字提交，后来考虑到汉字提交的兼容性问题，改用ID作为查询关键字——这个看似基础的问题，在实际开发中确实容易让人绕远路。根据hello.asp提交的“企业名称”关键字查询，得到所有“企业名称”字段中含有该关键字的企业全称（避免重复），生成一个列表。点击即可进入第三个页面，查看该企业的详细资料。

<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>





<%
qycx=request.FORM("qycx")
cx="企业名称 like '%"&qycx&"%' "
Set conn=Server.CreateObject("adodb.connection") 
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb" 
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("qycx.mdb")
sql="select * from info where "&cx&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<%qymc=rs("企业名称")
id=rs("id")
%>
<%Response.write qymc%>


<%
rs.movenext
loop
rs.close
%>



上饶工商信息网



<% Function uni(Chinese)
For i = 1 to Len (Chinese)
a=Mid(Chinese, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
next
End Function
%> 

三、qycx2.asp

第三个页面用于展示企业详细资料，通过ID参数直接查库，返回完整信息。

<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>


<%
Set conn=Server.CreateObject("adodb.connection") 
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb" 
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("qycx.mdb")
%>



<%
name=request.querystring("id")
sql="select * from info where id="&name&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<%qymc=rs("企业名称")%>
企业名称：<%Response.write qymc%>


<%zs=rs("住所")%>
住所:<%Response.write zs%>


<%fddb=rs("法定代表人")%>
法定代表人:<%Response.write fddb%>


<%zczb=rs("注册资本")%>
注册资本:<%
if left(zczb,1)="." then
Response.write "0"
else
end if
Response.write zczb%>万元


<%qylx=rs("企业类型")%>
企业类型:<%Response.write qylx%>


<%jyfw=rs("经营范围")%>
经营范围:<%Response.write jyfw%>


<%zcrq=rs("成立日期")%>
注册日期:<%Response.write zcrq%>


<%
rs.movenext
loop
%>



上饶工商信息网-End 


返回

OK，完成查询显示企业详细资料。