ASP的多条件动态查询

当用ASP与SQL Server数据库打交道时，查询语句是必不可少的。SQL Server数据库本身提供了丰富的查询语句，但是如何在ASP中实现对SQL Server数据库的多条件动态查询呢？笔者在用ASP开发一个基于SQL Server的网站时，较好地解决了这一问题，本文介绍其中的实现方法。
　　数据库的定义 　
　　在SQL Server中定义一个数据库，名称为“comm_server”。在该数据库中定义一个表，表名为“operator”,包含如下表所示字段 (仅以程序中用到的5个字段为例)：
字段名称 备注
Name 姓名Varchar(20)，定义为主键
Educationallever 学历 Varchar(10)
Grade 职称 Varchar(10)
State 现在状况 Varchar(10)
Time 记录时间 datetime

输入网页的设计
在index_people.htm网页中定义一个form，其中用到的标准用户界面元素如下：
姓名：学历： 选择职称： 选择现在状况： 选择
TML程序代码如下：
〈!－－form的方法设置为post，表单提交后由people_seek.asp程序进行处理－－〉
〈form method=“post” action=“people_seek.asp”〉
〈pre〉
〈font size=“2”〉姓名：〈/font〉
〈input type=“text” name=“txt_name” size=“10”〉
〈font size=“2”〉学历：
〈select name=“sel_xueli”〉
〈option value=“选择”〉选择〈/option〉
〈option value=“中专”〉中专〈/option〉
〈option value=“大专”〉大专〈/option〉
〈option value=“本科”〉本科〈/option〉
〈option value=“硕士”〉硕士〈/option〉
〈option value=“博士”〉博士〈/option〉
〈option value=“博士后”〉博士后〈/option〉
〈/select〉
职称：
〈select name=“sel_zhicheng”〉
〈option value=“选择”〉选择〈/option〉
〈option value=“助工”〉助工〈/option〉
〈option value=“工程师”〉工程师〈/option〉
〈option value=“高级工程师”〉高级工程师〈/option〉
〈/select〉
现在状况：
〈select name=“sel_zhuangkuang”〉
〈option value=“选择”〉选择〈/option〉
〈option value=“在位”〉在位〈/option〉
〈option value=“休假”〉休假〈/option〉
〈option value=“出差”〉出差〈/option〉
〈/select〉
〈input type=“submit” name=“btn_seek” value=“搜索”〉
〈input type=“reset” name=“btn_cancel” value=“取消”〉
〈input type=“submit” name=“btn_browse” value=“浏览”〉
〈/font〉 〈/pre〉
〈/form〉
多条件动态查询的实现
people_seek.asp程序代码如下：
〈!－－定义以下两个函数，通过ADO连接SQL Server数据库－－〉
〈％
Function GetSQLServerConnection( Computer, UserID, Password, Db )
Dim Params, conn
Set GetSQLServerConnection = Nothing
Params = “Provider=SQLOLEDB.1”
Params = Params ＆“;Data Source=” ＆ Computer
Params = Params ＆ “;User ID=” ＆ UserID
Params = Params ＆ “;Password=” ＆ Password
Params = Params ＆ “;Initial Catalog=” ＆ Db
Set conn = Server.CreateObject
(“ADODB.Connection”)
conn.Open Params
Set GetSQLServerConnection = conn
End Function
Function GetSQLServerStaticRecordset( conn, source )
Dim rs
Set rs = Server.CreateObject(“ADODB.Recordset”)
rs.Open source, conn, 3, 2
Set GetSQLServerStaticRecordset = rs
End Function
％〉
〈HTML〉〈BODY bgcolor=“＃FFFFFF”〉
以下是对form表单的处理：
〈!－－如果在form中点击“搜索”按钮－－〉
〈％
if Request(“btn_seek”)〈〉 Empty then
〈!－－获得查询者输入信息－－〉
seek_name=Trim(Request(“txt_name”))
seek_xueli=Trim(Request(“sel_xueli”))
seek_zhicheng=Trim(Request(“sel_zhicheng”))
seek_zhuangkuang=Trim(Request
(“sel_zhuangkuang”))
〈!－－如果查询者什么都没有输入－－〉
if((seek_name=“”) and (seek_xueli=“选择”)
and (seek_zhicheng=“选择”) and
(seek_zhuangkuang=“选择”)) then ％〉
〈center〉〈h2〉〈font color=“＃FF0033”〉
〈％Response.Write “您没有输入查询条件！” ％〉〈BR〉〈BR〉
〈％Response.Write “请输入条件后查询！！！” ％〉〈BR〉〈BR〉
〈/font〉〈/h2〉
〈input type=“button” name=“btn_goback”value=“返回” onclick=“javascript:history.go(－1)”〉
〈/center〉
〈％Response.End％〉
〈％ end if
〈!－－定义要查询的SQL语句－－〉
sql_text=“select ＊ from operator where ”
〈!－－查看是否输入了人名－－〉
if seek_name=“” then
〈!－－如果没有输入人名－－〉
sql_text=sql_text
else 〈!－－如果输入了人名－－〉
sql_name=“name =‘“＆seek_name＆”’”
sql_text=sql_text＋sql_name
end if
〈!－－查看是否选择了学历－－〉
if seek_xueli=“选择” then
〈!－－如果没有选择学历－－〉
sql_text=sql_text
else 〈!－－如果选择了学历－－〉
if (seek_name〈〉“”) then
〈!－－在前面输入了要查询的人名－－〉
sql_xueli=“ and “＋”educationallever =‘“＆seek_xueli＆”’”
else
sql_xueli=“educationallever =‘“＆
seek_xueli＆”’”
end if
sql_text=sql_text＋sql_xueli
end if
〈!－－查看是否选择了职称－－〉
if seek_zhicheng=“选择" then
〈!－－如果没有选择职称－－〉
sql_text=sql_text
else 〈!－－如果选择了职称－－〉
if ((seek_name〈〉“”) or (seek_xueli〈〉“选择”)) then
〈!－－在前面输入了人名或选择了学历－－〉
sql_zhicheng=“ and “＋”grade =‘“＆seek_zhicheng＆”’”
else 〈!－－仅选择了职称－－〉
sql_zhicheng=“grade =‘“＆
seek_zhicheng＆”’”
end if
sql_text=sql_text＋sql_zhicheng
end if
〈!－－查看是否选择了现在状况－－〉
if seek_zhuangkuang=“选择” then
〈!－－如果没有选择现在状况－－〉
sql_text=sql_text
else 〈!－－选择了现在状况－－〉
if ((seek_name〈〉“”) or (seek_xueli〈〉“选择”) or (seek_zhicheng〈〉“选择”)) then
〈!－－在前面输入了人名或选择了学历或选择了职称－－〉
sql_zhuangkuang=“ and “＋”state =‘“＆seek_zhuangkuang＆”’”
else 〈!－－仅选择了现在状况－－〉
sql_zhuangkuang=“state =‘“＆
seek_zhuangkuang＆”’”
end if
sql_text=sql_text＋sql_zhuangkuang
end if
〈!－－按记录时间倒序显示－－〉
sql_text=sql_text＋“ order by time desc”
else 〈!－－如果在form中点击“浏览”按钮－－〉
sql_text=“select ＊ from operator order by time desc”
end if
Myself = Request.ServerVariables(“PATH_INFO”)
〈!－－连接SQL Serve数据库，机器名为“comm_server”，数据库名称为“comm_server ”，以“sa”的身份访问，密码为空－－〉
Set rs = GetSQLServerStaticRecordset( GetSQLServerConnection(“comm_server”,“sa”,“”,“comm_server” ), sql_text)
if rs is nothing then
Response.Write “连接数据库失败！”
Response.End
end if
〈!－－如果在数据库中没有查询到所要的信息－－〉
if ((rs.BOF=true) and (rs.EOF=true)) then ％〉
〈center〉〈h2〉
〈font color=“＃FF0033”〉
〈％Response.Write “数据库中没有您要查询的信息！” ％〉〈BR〉〈BR〉
〈/font〉〈/h2〉
〈a href=“index_people.htm”〉
〈font size=4〉返回〈/font〉〈/a〉
〈/center〉
〈％ Response.End
end if
……％〉
　　上述ASP程序实现了对SQL Server数据库的多条件动态查询，达到了预定的效果。如果实际中需要实现模糊查询或多表联合查询，只需对上述程序稍加修改即可使用。

原文转自：http://www.ltesting.net