初试WAP之wml＋ASP查询（转）
数据库结构如下：
库名：data.mdb
表名：info
字段：id 、企业名称、住所、法定代表人……（这个省略号是等等的意思）
一、反馈页面 hello.asp
源码如下：
<%@ Language=VBScript %>
<% Response.ContentType="text/vnd.wap.wml" %>
请输入查询资料
上饶工商信息网
二、信息接收 页面 qycx.asp
源码如下：
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<%
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")
%>
<%Response.write qymc%>
<%
rs.movenext
loop
rs.close
%>
上饶工商信息网
<% 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" %>
<%
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")
%>
<%
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%>
<%zs=rs("住所")%>
住所:<%Response.write zs%>
<%fddb=rs("法定代表人")%>
法定代表人:<%Response.write fddb%>
<%zczb=rs("注册资本")%>
注册资本:<%
if left(zczb,1)="." then
Response.write "0"
else
end if
Response.write zczb%>万元
<%qylx=rs("企业类型")%>
企业类型:<%Response.write qylx%>
<%jyfw=rs("经营范围")%>
经营范围:<%Response.write jyfw%>
<%zcrq=rs("成立日期")%>
注册日期:<%Response.write zcrq%>
<%
rs.movenext
loop
%>
上饶工商信息网-End
返回
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10294527/viewspace-125332/ ，如需转载，请注明出处，否则将追究法律责任。
