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”〉
共3页: 上一页 1 [2] [3] 下一页

评论加载中…