主页 > 知识库 > 初试WAP之wml+ASP查询

初试WAP之wml+ASP查询

热门标签:400电话办理包年 南宁网络外呼系统运营商 东营电销 微信地图标注合并了 如何修改多个百度地图标注 本地电话机器人 高德地图地图标注服务中心 r语言数据可视化地图标注 随州外呼调研系统
搞了这么多年计算机,第一次写文章到网上来!见笑了
程序目的:工作需要,查询企业注册资料的朋友太多了,省得麻烦,在网站上增加了查询功能,居然有人说没有电脑,没电脑也该有个手机吧。用手机查询这样随时随地都行,说干就干,做一个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

标签:宿迁 益阳 德州 拉萨 西双版纳 黄石 宁夏 果洛

巨人网络通讯声明:本文标题《初试WAP之wml+ASP查询》,本文关键词  初试,WAP,之,wml+ASP,查询,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《初试WAP之wml+ASP查询》相关的同类信息!
  • 本页收集关于初试WAP之wml+ASP查询的相关信息资讯供网民参考!
  • 推荐文章