一聚教程网:一个值得你收藏的教程网站

热门教程

初试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" %>





<%
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%>

热门栏目