• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

初试wap之wml＋asp查询

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

程序目的：工作需要，查询企业注册资料的朋友太多了，省得麻烦，在网站上增加了查询功能，居然有人说没有电脑，没电脑也该有个手机吧。用手机查询这样随时随地都行，说干就干，做一个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="&#36;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=&#123;microsoft access driver (*.mdb)&#125;;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
%>

[1] [2]  下一页