初试WAP之wml＋ASP查询

搞了这么多年计算机，第一次写文章到网上来！见笑了程序目的：工作需要，查询企业注册资料的朋友太多了，省得麻烦，在网站上增加了查询功能，居然有人说没有电脑，没电脑也该有个手机吧。用手机查询这样随时随地都行，说干就干，做一个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=\”上饶工商信息网\”> 请输入查询资料<inputname=\”qycx\”type=\”text\”maxlength=\”16\”/> <anchortitle=\”确定\”>确定 <gohref=\”qycx.asp\”method=\”post\”> <postfieldname=\”qycx\”value=\”$qycx\”/> </go> </anchor> 上饶工商信息网 </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=\”上饶工商信息网\”> <% 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> <% rs.movenext loop rs.close %> 上饶工商信息网 </card> </wml> <%Functionuni(Chinese) Fori=1toLen(Chinese) a=Mid(Chinese,i,1) uni=uni&\”&#x\”&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=\”上饶工商信息网\”> <% name=request.querystring(\”id\”) sql=\”select*frominfowhereid=\”&name&\”\” setrs=server.createobject(\”adodb.recordset\”) rs.opensql,conn,1,1 dowhilenotrs.eof %> <%qymc=rs(\”企业名称\”)%> 企业名称：<%Response.writeqymc%> <%zs=rs(\”住所\”)%> 住所:<%Response.writezs%> <%fddb=rs(\”法定代表人\”)%> 法定代表人:<%Response.writefddb%> <%zczb=rs(\”注册资本\”)%> 注册资本:<% ifleft(zczb,1)=\”.\”then Response.write\”0\” else endif Response.writezczb%>万元 <%qylx=rs(\”企业类型\”)%> 企业类型:<%Response.writeqylx%> <%jyfw=rs(\”经营范围\”)%> 经营范围:<%Response.writejyfw%> <%zcrq=rs(\”成立日期\”)%> 注册日期:<%Response.writezcrq%> <% rs.movenext loop %> 上饶工商信息网-End <ahref=\”hello.asp\”>返回</a> </card> </wml> ===================== OK,完成查询显示企业详细资料！写得不好，不要骂我。嘿嘿，欢迎喜欢WAP的朋友可以跟我多交流，指导一下！QQ:18185813