|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。ado|web|数据|数据库----*具体实现
----查询主页面为港澳证件信息查询,对应程序为gacx.as
p,查询结果以两种方式显示,一种是显示主要信息-港
澳证件信息查询结果列表,对应程序为gacxlb.asp,一种是
显示全部信息-港澳证件信息查询结果,对应程序为gacx
xq.asp,如果查询条件不能满足时,还将显示一个提示页
面,告诉用户不存在满足条件的结果,这由程序gacxts.as
p完成。
----首先根据客户提供的数据库和要求查询的各项建立
查询、查询结果、查询结果列表页面,还要给出一个简
单的提示界面,告诉用户不存在满足条件的结果,请重
新查询,这些工作可以用FrontPage98完成,整个页面应该
做到简洁年夜方,主题鲜明。程序代码在MicrosoftVisualInter
Dev下编写。
----下面处理编码数据库zd.dbf中的内容。从下图中可以
看到有很多带下拉框的选项例如"性别"、"出生地"等,这
些选项的内容都是从zd.dbf数据库中提取出来的,这正是
本程序数据库处理过程中的一个闪光点(这一部分是由
陶则平易近工程师设计并实现的),因为有的选项内容很多
,例如出境口岸有101项之多,你虽然也可以用<select><
option>...</option></select>格式在HTML页面中把各个选项
列举出来,但那将给程序的维护带来很年夜麻烦,一旦编
码数据库的内容有变动,程序也将不得不作很多修改,
而且带下拉框的选项都是在zd.dbf中编码了的,往主数据
库中输进数据时这些选项都只输进编码,但显示时却不
能显示编码,必须把编码对应的汉字显示出来。这段程
序代码如下(以性别为例):
<%
SetConn=Server.CreatObject("ADODB.Connection")
Conn.Open"GACX"
SetRS=Conn.Execute("SelectBC,
MCFromzdWhereBCLike"se%"")
Response.Write"<SELECTSIZE=1NAME="SEX">"
DoWhileNotRS.EOF
response.write"<option
value="RS(0)">"&RS(1)
Rs.MoveNext
Loop
Response.Write"</SELECT>"
RS.Colse
Conn.Colse
%>
----其中,zd.dbf包含两个字段MC、BC,MC表示待编码项,如
男、女,BC表示编码,如性别编码的前两位为"se",男用"se
1"表示,女用"se2"表示。
---- 数据库查询中最重要的是如何取得查询条件。
本例中要查询的项可以分为两类:一类是输进的text类型
的查询条件,另一类是从下拉框中选出来的项,在处理
时就要区分对待,text类型的查询条件很好处理,例如姓
名,我给输进的内容命名为"xm",如果输进的查询项不为
空时就增加一个查询条件"NAME=Request.Form("xm")"即可;下
拉框的处理要复杂得多,当下拉框选中一项时,例如性
别选中男,下拉框中输进的是"se1",(但反映在数据库中
时为"SEX=1",因为数据库中输进字典中带编码的项时只
输进编码),就是要查询"SEX=se1"的项,处理时要把"se1"中
的"1"提取出来,这里只须用到一个函数mid即可,查询条
件为"SEX=mid("se1",3,1)",即从数据库中查找SEX=1的项,并
把所有满足条件的项不重复地列举出来。
----查询结果的显示就很容易了,只须把查询结果的每
条记录按列表的方式显示出来即可,注意在显示查询结
果时要显示编码对应的汉字,就是到字典中往找编码为
"se"&"1"的项所对应的编码值,程序如下:
<tableborder="1"width="95%"
bordercolor="#C0C0C0"cellspacing="0"cellpadding="0"
bordercolorlight="#C0C0C0"
bordercolordark="#C0C0C0"height="60">
<tr>
<tdwidth="9%"align="center"
height="1"><palign="center">
姓名</td>
<tdwidth="12%"align="center"
height="1">档案号</td>
<tdwidth="6%"height="1">
<palign="center">性别</td>
......
</tr>
<%i=1%>
<%WhileNotRS.EOF%>
<tr>
<tdwidth="9%"align="center"
height="1"><%=RS("name")%></td>
<tdwidth="12%"align="center"
height="1"><%=RS("dang")%></td>
<tdwidth="6%"height="1"><%=Func
("se"&RS("sex"),GACX)%></td>
......
</tr>
<%RS.MoveNext%>
<%i=i+1%>
<%WEnd%>
</table>
----其中,Func("se"&RS("sex"),GACX)是个函数,实现从数据
源中取得编码所对应的汉字的功能。
</p>专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|