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

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

　　写得不好，不要骂我。嘿嘿，欢迎喜欢WAP的朋友可以跟我多交流，指导一下！QQ:18185813