ASP编程：初试WAP之wml＋ASP查询
ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！程序目标：事情必要，查询企业注册材料的伴侣太多了，免得贫苦，在网站上增添了查询功效，竟然有人说没有电脑，没电脑也该有个手机吧。用手机查询如许随时随地都行，说干就干，做一个WAP查询，全用记事本写的。
数据库布局以下：
库名：data.mdb
表名：info
字段：id、企业称号、居处、法定代表人……（这个省略号是等等的意义）
1、反应页面 hello.asp
源码以下：
<%@Language=VBScript%>
<%Response.ContentType="text/vnd.wap.wml"%>
<?xmlversion="1.0"encoding="gb2312"?>
<!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<cardid="qycx"title="上饶工商信息网">
<p>
请输出查询材料<inputname="qycx"type="text"maxlength="16"/>
<anchortitle="断定">断定
<gohref="qycx.asp"method="post">
<postfieldname="qycx"value="$qycx"/>
</go>
</anchor>
<br/><br/>
上饶工商信息网
</p>
</card>
</wml>
2、信息吸收 页面qycx.asp
源码以下：
<%@Language=VBScript%>
<%Response.ContentType="text/vnd.wap.wml"%>
<?xmlversion="1.0"encoding="gb2312"?>
<!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<cardid="qycx2"title="上饶工商信息网">
<p>
<%
qycx=request.FORM("qycx")
cx="企业称号like%"&qycx&"%"
Setconn=Server.CreateObject("adodb.connection")
conn.Open"dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.mappath("qycx.mdb")
sql="select*frominfowhere"&cx&""
setrs=server.createobject("adodb.recordset")
rs.opensql,conn,1,1
dowhilenotrs.eof
%>
<%qymc=rs("企业称号")
id=rs("id")
%>
<ahref="qycx2.asp?id=<%Response.writeid%>"><%Response.writeqymc%></a>
<br/>
<%
rs.movenext
loop
rs.close
%>
<br/><br/>
上饶工商信息网
</p>
</card>
</wml>
<%Functionuni(Chinese)
Fori=1toLen(Chinese)
a=Mid(Chinese,i,1)
uni=uni&"&#x"&Hex(Ascw(a))&";"
next
EndFunction
%>
=========================================================================
第二点评：看到这里，我有点汗，刚入手下手以“企业称号”做为关头字提交，厥后才想到以ID为关头字举行查询制止了汉字提交的成绩。这么基本一个成绩，我竟然揣摩了泰半天。这里依据hello.asp提交的“企业称号”关头字查询失掉一切“企业称号”字段中含有该关头字的企业全称（以避免反复），做一个列表，点击将进第三个页面，即该企业具体材料。
3、qycx2.asp
源码以下：
<%@Language=VBScript%>
<%Response.ContentType="text/vnd.wap.wml"%>
<?xmlversion="1.0"encoding="gb2312"?>
<!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml">
<%
Setconn=Server.CreateObject("adodb.connection")
conn.Open"dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.mappath("qycx.mdb")
%>
<wml>
<cardid="qycx3"title="上饶工商信息网">
<p>
<%
name=request.querystring("id")
sql="select*frominfowhereid="&name&""
setrs=server.createobject("adodb.recordset")
rs.opensql,conn,1,1
dowhilenotrs.eof
%>
<%qymc=rs("企业称号")%>
企业称号：<%Response.writeqymc%>
<br/>
<%zs=rs("居处")%>
居处:<%Response.writezs%>
<br/>
<%fddb=rs("法定代表人")%>
法定代表人:<%Response.writefddb%>
<br/>
<%zczb=rs("注册本钱")%>
注册本钱:<%
ifleft(zczb,1)="."then
Response.write"0"
else
endif
Response.writezczb%>万元
<br/>
<%qylx=rs("企业范例")%>
企业范例:<%Response.writeqylx%>
<br/>
<%jyfw=rs("谋划局限")%>
谋划局限:<%Response.writejyfw%>
<br/>
<%zcrq=rs("建立日期")%>
注册日期:<%Response.writezcrq%>
<br/>
<%
rs.movenext
loop
%>
<br/><br/>
上饶工商信息网-End
<br/>
<ahref="hello.asp">前往</a>
</p>
</card>
</wml>
=============================================================================
OK,完成查询显现企业具体材料！
写得欠好，不要骂我。嘿嘿，接待喜好WAP的伴侣能够跟我多交换，引导一下！QQ:18185813
</p>强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。
页:
[1]