搞了这么多年计算机,第一次写文章到网上来!见笑了程序目的:工作需要,查询企业注册资料的朋友太多了,省得麻烦,在网站上增加了查询功能,居然有人说没有电脑,没电脑也该有个手机吧。
搞了这么多年计算机,第一次写文章到网上来!见笑了
程序目的:工作需要,查询企业注册资料的朋友太多了,省得麻烦,在网站上增加了查询功能,居然有人说没有电脑,没电脑也该有个手机吧。用手机查询这样随时随地都行,说干就干,做一个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
最新资讯
第二届“科学探索奖”揭晓:50位青年科学家均分腾讯1.5亿元奖金

第二届“科学探索奖”

第二届“科学探索奖”获奖名单正式揭晓,50位青年科学家
百度关联公司北京成立全资子,经营范围含汽车租赁等

百度关联公司北京成立

天眼查App显示,9月23日,阿波罗智通(北京)科技有限公司成立
首张黑洞动态照片发布,再次验证广义相对论

首张黑洞动态照片发布

9 月 23 日,事件视界望远镜(Event Horizon Telescope,EHT
别吓唬小熊猫,不然它就会......站起来!

别吓唬小熊猫,不然它就

小熊猫的胆子就挺小,受到惊吓时,通常会站起来张开双臂。
李彦宏发起成立生命科学公司百图生科 BV百度风投刘维任新公司CEO

李彦宏发起成立生命科

一家名为“百图生科”(英文简称“BioMap”)的生命科学平
戴上这副眼镜,启动你的感知超能力

戴上这副眼镜,启动你的

最近,Facebook旗下的“Facebook现实实验室”(简称FRL),公
最新文章
简单了解XML 树结构

简单了解XML 树结构

这篇文章主要介绍了XML 树结构的相关资料,文中示例代码
Xml简介_动力节点Java学院整理

Xml简介_动力节点Java

XML 只是基于普通文本,但却提供了几乎可以在任何两个应
详解XML中的模式Schema

详解XML中的模式Schem

XML中拥有Schema特性,能够比DTD更加强大地引入元素结
XML基本概念入门学习指南

XML基本概念入门学习

这篇文章主要介绍了XML基本概念入门学习指南,包括其与
XML中的DTD文档类型定义完全解析

XML中的DTD文档类型定

XML标签的自定义功能非常强大,比如本文将要讲解的DTD(
用Asp与XML实现交互的一个实例源码

用Asp与XML实现交互的

XML是标准扩展语言,是未来Web编程的标准,asp是现在广为