ASP的多条件动态查询_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

http://www.gaodaima.com/66172.htmlASP的多条件动态查询_asp

输入网页的设计
在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数据库的多条件动态查询,达到了预定的效果。如果实际中需要实现模糊查询或多表联合查询,只需对上述程序稍加修改即可使用。

欢迎大家阅读《ASP的多条件动态查询_asp》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: ASP的多条件动态查询_asp

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注