 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
当用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数据库的多条件动态查询，达到了预定的效果。假如实际中需要实现模糊查询或多表联合查询，只需对上述程序稍加修改即可使用。 返回类别: 教程 上一教程: ASP中也能解压缩RAR文件 下一教程: ASP + ORACLE 分页方式 (不用存储过程) 您可以阅读与"ASP的多条件动态查询"相关的教程: · ASP中的多条件组合查询实现 · 在ASP网页中实现DROPDOWN控件动态添加选项 · ASP项目中的通用条件查询模块 · 在ASP中使用SQL语句之2:用WHERE子句设置查询条件 · ASP进阶教程Ⅸ：留言查询功能（一） |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
