初试WAP之wml+ASP查询(转)

因工作需要,为方便查询企业注册资料,在网站增加WAP查询功能,全用记事本编写。介绍了数据库结构,包含库名、表名和字段等信息,还给出了反馈页面hello.asp和信息接收页面qycx.asp的源码。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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

程序目的:工作需要,查询企业注册资料的朋友太多了,省得麻烦,在网站上增加了查询功能,居然有人说没有电脑,没电脑也该有个手机吧。用手机查询这样随时随地都行,说干就干,做一个WAP查询,全用记事本写的。

数据库结构如下:

库名:data.mdb

表名:info

字段:id 、企业名称、住所、法定代表人……(这个省略号是等等的意思)

一、反馈页面 hello.asp

源码如下:



<?xml version="1.0" encoding="gb2312"?>

ttp://www.wapforum.org/DTD/">http://www.wapforum.org/DTD/ wml_1.1.xml">


请输入查询资料
确定






上饶工商信息网


二、信息接收 页面 qycx.asp

源码如下:



<?xml version="1.0" encoding="gb2312"?>
ttp://www.wapforum.org/DTD/">http://www.wapforum.org/DTD/ wml_1.1.xml">



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
%>
id=rs("id")

%>



rs.movenext
loop
rs.close
%>



上饶工商信息网


For i = 1 to Len (Chinese)
a=Mid(Chinese, i, 1)
uni=uni & "" & Hex(Ascw(a)) & ";"
next
End Function
%>


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10294527/viewspace-125314/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-125314/

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值