搞了这么多年计算机，第一次写文章到网上来！见笑了
程序目的：工作需要，查询企业注册资料的朋友太多了，省得麻烦，在网站上增加了查询功能，居然有人说没有电脑，没电脑也该有个手机吧。用手机查询这样随时随地都行，说干就干，做一个WAP查询，全用记事本写的。
数据库结构如下：
库名：data.mdb
表名：info
字段：id、企业名称、住所、法定代表人……（这个省略号是等等的意思）
一、反馈页面hello.asp
源码如下：
<%@Language=VBScript%>
<%Response.ContentType="text/vnd.wap.wml"%>
<?xmlversion="1.0"encoding="gb2312"?>
<!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<cardid="qycx"title="上饶工商信息网">
<p>
请输入查询资料<inputname="qycx"type="text"maxlength="16"/>
<anchortitle="确定">确定
<gohref="qycx.asp"method="post">
<postfieldname="qycx"value="$qycx"/>
</go>
</anchor>
<br/><br/>
上饶工商信息网
</p>
</card>
</wml>
二、信息接收页面qycx.asp
源码如下：
<%@Language=VBScript%>
<%Response.ContentType="text/vnd.wap.wml"%>
<?xmlversion="1.0"encoding="gb2312"?>
<!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<cardid="qycx2"title="上饶工商信息网">
<p>
<%
qycx=request.FORM("qycx")
cx="企业名称like'%"&qycx&"%'"
Setconn=Server.CreateObject("adodb.connection")
'conn.Open"dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.mappath("qycx.mdb")
sql="select*frominfowhere"&cx&""
setrs=server.createobject("adodb.recordset")
rs.opensql,conn,1,1
dowhilenotrs.eof
%>
<%qymc=rs("企业名称")
id=rs("id")
%>
<ahref="qycx2.asp?id=<%Response.writeid%>"><%Response.writeqymc%></a>
<br/>
<%
rs.movenext
loop
rs.close
%>
<br/><br/>
上饶工商信息网
</p>
</card>
</wml>
<%Functionuni(Chinese)
Fori=1toLen(Chinese)
a=Mid(Chinese,i,1)
uni=uni&""&Hex(Ascw(a))&";"
next
EndFunction
%>
=================================================
第二点评：看到这里，我有点汗，刚开始以“企业名称”做为关键字提交，后来才想到以ID为关键字进行查询避免了汉字提交的问题。这么基础一个问题，我居然琢磨了大半天。这里根据hello.asp提交的“企业名称”关键字查询得到所有“企业名称”字段中含有该关键字的企业全称（以免重复），做一个列表，点击将入第三个页面，即该企业详细资料。
三、qycx2.asp
源码如下：
<%@Language=VBScript%>
<%Response.ContentType="text/vnd.wap.wml"%>
<?xmlversion="1.0"encoding="gb2312"?>
<!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml">
<%
Setconn=Server.CreateObject("adodb.connection")
'conn.Open"dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.mappath("qycx.mdb")
%>
<wml>
<cardid="qycx3"title="上饶工商信息网">
<p>
<%
name=request.querystring("id")
sql="select*frominfowhereid="&name&""
setrs=server.createobject("adodb.recordset")
rs.opensql,conn,1,1
dowhilenotrs.eof
%>
<%qymc=rs("企业名称")%>
企业名称：<%Response.writeqymc%>
<br/>
<%zs=rs("住所")%>
住所:<%Response.writezs%>
<br/>
<%fddb=rs("法定代表人")%>
法定代表人:<%Response.writefddb%>
<br/>
<%zczb=rs("注册资本")%>
注册资本:<%
ifleft(zczb,1)="."then
Response.write"0"
else
endif
Response.writezczb%>万元
<br/>
<%qylx=rs("企业类型")%>
企业类型:<%Response.writeqylx%>
<br/>
<%jyfw=rs("经营范围")%>
经营范围:<%Response.writejyfw%>
<br/>
<%zcrq=rs("成立日期")%>
注册日期:<%Response.writezcrq%>
<br/>
<%
rs.movenext
loop
%>
<br/><br/>
上饶工商信息网-End
<br/>
<ahref="hello.asp">返回</a>
</p>
</card>
</wml>
=====================
OK,完成查询显示企业详细资料！
写得不好，不要骂我。嘿嘿，欢迎喜欢WAP的朋友可以跟我多交流，指导一下！QQ:18185813
【初试WAP之wml＋ASP查询】相关文章：