p> 这个应用所要完成的是对港澳出入境数据库进行查询操作，你可以给出一种或几种查询条件，然后按你的要求显示查询结果。
具体实现
查询主页面为港澳证件信息查询，对应程序为gacx.asp，查询结果以两种方式显示，一种是显示主要信息-港澳证件信息查询结果列表，对应程序为gacxlb.asp，一种是显示全部信息
港澳证件信息查询结果，对应程序为gacxxq.asp，如果查询条件不能满足时，还将显示一个提示页面，告诉用户不存在满足条件的结果，这由程序gacxts.asp完成。
首先根据客户提供的数据库和要求查询� 项建立查询、查询结果、查询结果列表页面，还要给出一个简单的提示界面，告诉用户不存在满足条件的结果，请重新查询，这些工作可以用FrontPage98完成，整个页面应该做到简洁大方，主题鲜明。程序代码在MicrosoftVisualInterDev下编写。
下面处理编码数据库zd.dbf中的内容。从下图中可以看到有很多带下拉框的选项例如"性别"、"出生地"等，这些选项的内容都是从zd.dbf数据库中提取出来的，这正是本程序数据库处理过程中的一个闪光点（这一部分是由陶则民工程师设计并实现的），因为有的选项内容很多，例如出境口岸有101项之多，你虽然也可以用$#@60;select$#@62;$#@60;option$#@62;...$#@60;/option$#@62;$#@60;/select$#@62;格式在HTML页面中把各个选项列举出来，但那将给程序的维护带来很大麻烦，一旦编码数据库的内容有变动，程序也将不得不作很多修改，而且带下拉框的选项都是在zd.dbf中编码了的，往主数据库中输入数据时这些选项都只输入编码，但显示时却不能显示编码，必须把编码对应的汉字显示出来。这段程序代码如下（以性别为例）：
$#@60;%
SetConn=Server.CreatObject("ADODB.Connection")
Conn.Open"GACX"
SetRS=Conn.Execute("SelectBC,
MCFromzdWhereBCLike"se%"")
Response.Write"$#@60;SELECTSIZE=1NAME="SEX"$#@62;"
Do While Not RS.EOF
response.write"$#@60;option value="RS(0)"$#@62;"&RS(1)
Rs.MoveNext
Loop
Response.Write"$#@60;/SELECT$#@62;"
RS.Colse
Conn.Colse
%$#@62;
其中，zd.dbf包含两个字段MC、BC，MC表示待编码项，如男、女，BC表示编码，如性别编码的前两位为"se"，男用"se1"表示，女用"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"的项所对应的编码值，程序如下：
$#@60;table border="1"width="95%" bordercolor="#C0C0C0"
cellspacing="0" cellpadding="0" bordercolorlight="#C
0C0C0" bordercolordark="#C0C0C0" height="60"$#@62;
$#@60;tr$#@62;
$#@60;td width="9%"align="center" height="1"$#@62;姓名$#@60;/td$#@62;
$#@60;td width="12%"align="center" height="1"$#@62;档案号$#@60;/td$#@62;
$#@60;td width="6%"height="1"$#@62;性别$#@60;/td$#@62;
......
$#@60;/tr$#@62;
$#@60;%i=1%$#@62;
$#@60;%While Not RS.EOF%$#@62;
$#@60;tr$#@62;
$#@60;td width="9%"align="center" height="1"$#@62;$#@60;%=RS("name")%$#@62;$#@60;/td$#@62;
$#@60;td width="12%"align="center" height="1"$#@62;$#@60;%=RS("dang")%$#@62;$#@60;/td$#@62;
$#@60;td width="6%"height="1"$#@62;$#@60;%=Func("se"&RS("sex"),GACX)%$#@62;$#@60;/td$#@62;
......
$#@60;/tr$#@62;
$#@60;%RS.MoveNext%$#@62;
$#@60;%i=i+1%$#@62;
$#@60;%WEnd%$#@62;
$#@60;/table$#@62;
其中，Func("se"&RS("sex"),GACX)是个函数，实现从数据源中取得编码所对应的汉字的功能。
参考文献
- 周世雄著《NT动态站点设计指南》大连理工大学出版社
- WindowsNTServer4.0下的ASP联机文档实用技巧分类
- Office编程
- CAD
- C、C++
- 数据库应用
- Delphi
- Internet应用
- Java
- Notes应用
- 操作系统应用
- PowerBuilder
- VB
- Visual Foxpro
- 其他类
