 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
搞了这么多年计算机，第一次写文章到网上来！见笑了 程序目的：工作需要，查询企业注册资料的朋友太多了，省得麻烦，在网站上增加了查询功能，居然有人说没有电脑，没电脑也该有个手机吧。用手机查询这样随时随地都行，说干就干，做一个WAP查询，全用记事本写的。 数据库结构如下： 库名：data.mdb 表名：info 字段：id 、企业名称、住所、法定代表人……（这个省略号是等等的意思） 一、反馈页面 hello.asp 源码如下： <%@ Language=VBScript %> <% Response.ContentType="text/vnd.wap.wml" %> <?xml version="1.0" encoding="gb2312"?> <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/ wml_1.1.xml"> <wml> <card id="qycx" title="上饶工商信息网"> <p> 请输入查询资料<input name="qycx" type="text" maxlength="16" /> <anchor title="确定">确定 <go href="qycx.asp" method="post"> <postfield name="qycx" value="$qycx"/> </go> </anchor> <br/><br/> 上饶工商信息网 </p> </card> </wml> 二、信息接收 页面 qycx.asp 源码如下： <%@ Language=VBScript %> <% Response.ContentType = "text/vnd.wap.wml" %> <?xml version="1.0" encoding="gb2312"?> <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/ wml_1.1.xml"> <wml> <card id="qycx2" title="上饶工商信息网"> <p> <% 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") %> <a href="qycx2.asp?id=<%Response.write id%>" ><%Response.write qymc%></a> <br/> <% rs.movenext loop rs.close %> <br/><br/> 上饶工商信息网 </p> </card> </wml> <% Function uni(Chinese) For i = 1 to Len (Chinese) a=Mid(Chinese, i, 1) uni=uni & "&#x" & Hex(Ascw(a)) & ";" next End Function %> ================================================= 第二点评：看到这里，我有点汗，刚开始以“企业名称”做为要害字提交，后来才想到以ID为要害字进行查询避免了汉字提交的问题。这么基础一个问题，我居然琢磨了大半天。这里根据hello.asp提交的“企业名称”要害字查询得到所有“企业名称”字段中含有该要害字的企业全称（以免重复），做一个列表，点击将入第三个页面，即该企业具体资料。 三、qycx2.asp 源码如下： <%@ Language=VBScript %> <% Response.ContentType = "text/vnd.wap.wml" %> <?xml version="1.0" encoding="gb2312"?> <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/ wml_1.1.xml"> <% 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") %> <wml> <card id="qycx3" title="上饶工商信息网"> <p> <% 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%> <br/> <%zs=rs("住所")%> 住所:<%Response.write zs%> <br/> <%fddb=rs("法定代表人")%> 法定代表人:<%Response.write fddb%> <br/> <%zczb=rs("注册资本")%> 注册资本:<% if left(zczb,1)="." then Response.write "0" else end if Response.write zczb%>万元 <br/> <%qylx=rs("企业类型")%> 企业类型:<%Response.write qylx%> <br/> <%jyfw=rs("经营范围")%> 经营范围:<%Response.write jyfw%> <br/> <%zcrq=rs("成立日期")%> 注册日期:<%Response.write zcrq%> <br/> <% rs.movenext loop %> <br/><br/> 上饶工商信息网-End <br/> <a href="hello.asp">返回</a> </p> </card> </wml> ===================== OK,完成查询显示企业具体资料！ 返回类别: 教程 上一教程: 如何在VC++ 编写的组件中使用 ADO 下一教程: ASP程序错误具体说明例表 您可以阅读与"初试WAP之WML+ASP查询"相关的教程: · 初试WAP之wml＋ASP查询 · 用ASP和WML来实现数据库查询 · 利用ASP和WML来实现数据库查询 · ASP进阶教程Ⅸ：留言查询功能 · 解决在ASP中执行数据库查询中的特别字符的问题 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
