初试WAP之wml+ASP查询
初试WAP之wml+ASP查询
发布时间:2016-12-29 来源:查字典编辑
摘要:搞了这么多年计算机,第一次写文章到网上来!见笑了程序目的:工作需要,查询企业注册资料的朋友太多了,省得麻烦,在网站上增加了查询功能,居然有人...

搞了这么多年计算机,第一次写文章到网上来!见笑了

程序目的:工作需要,查询企业注册资料的朋友太多了,省得麻烦,在网站上增加了查询功能,居然有人说没有电脑,没电脑也该有个手机吧。用手机查询这样随时随地都行,说干就干,做一个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

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新XML/RSS学习
热门XML/RSS学习
编程开发子分类