最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
初试WAP之wml＋ASP查询
时间：2022-07-02 23:38:52 编辑：袖梨 来源：一聚教程网
程序目的：工作需要，查询企业注册资料的朋友太多了，省得麻烦，在网站上增加了查询功能，居然有人说没有电脑，没电脑也该有个手机吧。用手机查询这样随时随地都行，说干就干，做一个WAP查询，全用记事本写的。
数据库结构如下：
库名：data.mdb
表名：info
字段：id 、企业名称、住所、法定代表人……（这个省略号是等等的意思）
一、反馈页面 hello.asp
源码如下：
<%@ Language=VBScript %>
<% Response.ContentType="text/vnd.wap.wml" %>
二、信息接收 页面 qycx.asp
源码如下：
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
数据库结构如下：
库名：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%>
相关文章
- 《无期迷途》降临烙印深度介绍 06-16
- 最火2025币圈十大加密货币交易所榜单-最好用比特币交易app币安推荐 06-16
- SNORT币怎么交易-2025币安交易所新手全攻略 06-16
- 《大侠立志传》韩红玉结缘有什么 06-16
- Metaplanet最新购入1,112枚比特币后总持仓突破1万枚大关 06-16
- 《艾塔纪元》奥莉维亚凯撒怎么样 06-16