蛙蛙推荐:asp中的多条件组合查询实现

原创 2004年07月12日 14:51:00

<!--
蛙蛙推荐:asp中的多条件组合查询实现
多条件组合查询在很多地方都很有用,本文用一个简单的例子来实现一种组合查询
在示例之前请确保你安装有sqlserver2000及其默认数据库NorhtWind.
代码非常直观,加上关键部分我做了注释,所以很容易理解.
需要注意的几个问题就是:
1.在字符串连接的时候注意两个需要连接的串中第二个串的开头第一个字符应该打一个空格,这样不至于两个串的首尾相连成一个单词.
2.righ的left函数取出的结构区分大小写,如果你字符串里用的是'and',而你判断的时候用的是'AND',程序就不会按你所想的运行了
3.注意JS中,history.go(-1),history.back(),location.reload,location.href的区别和实际应用
提醒大家平时多做一些数据结构和算法的训练,写程序基础很重要,不要小看一些字符串处理函数和正则表达式等的应用,好多大的项目正是由一些小函数组合在一起形成的.
-->
<%
If Trim(Request.Form("submit"))<>"" Then
 Dim arr_wawa,rs_wawa,strconn,sql
 Set rs_wawa=Server.CreateObject("ADODB.RecordSet")
 strconn="Driver={sql server};server=192.168.0.110;database=northwind;uid=sa;pwd=sa;"
 '获取表单变量,这里只过滤了空格,但在实际应用中为了安全,需要过滤更多的危险字符.
 EmployeeID=Trim(Request.Form("EmployeeID"))
 TitleOfcourtesy=Trim(Request.Form("TitleOfcourtesy"))
 FirstName=Trim(Request.Form("FirstName"))
 LastName=Trim(Request.Form("LastName"))
 Title=Trim(Request.Form("Title"))
 City=Trim(Request.Form("City"))
 '以下是动态生成一个sql查询字符串
 '*************************************
 sql="SELECT EmployeeID,TitleOfCourtesy,FirstName,LastName,Title,City FROM Employees WHERE"
 If EmployeeID<>"" Then sql=sql&" EmployeeID="&EmployeeID&" AND"
 If TitleOfCourtesy<>"" Then sql=sql&" TitleOfcourtesy='"&TitleOfCourtesy&"' AND"
 If FirstName<>"" Then sql=sql&" FirstName like '%"&FirstName&"%' AND"
 If LastName<>"" Then sql=sql&" LastName like '%"&LastName&"%' AND"
 If Title<>"" Then sql=sql&" Title like '%"&Title&"%' AND"
 If City<>"" Then sql=sql&" City like '%"&City&"%' AND"
 if right(sql,5)="WHERE" then sql=left(sql,clng(len(sql))-5) '解决所有参数都为空的情况
 if right(sql,3)="AND" then sql=left(sql,clng(len(sql))-3) '去掉参数最后的and
 sql=sql&" ORDER BY EmployeeID DESC"
 'Response.Write sql '调试语句
 '**************************************
 rs_wawa.Open sql,strconn,1,3
 If Not(rs_wawa.Eof And Rs_wawa.Bof) Then
  arr_wawa=rs_wawa.getrows() '取出离线的记录集,取出记录集随后就可以关闭记录集,可以节省资源
 Else
  Response.Write("<script>alert('没有记录');history.go(-1);</script>")
 End If
 rs_wawa.close()
 set rs_wawa=nothing
End if
%>
<form name="form1" method="post" action="">
  <table width="500" border="1" align="center" cellspacing="1">
    <tr>
      <td colspan="2" align="right"><div align="center">Search Employees</div></td>
    </tr>
    <tr>
      <td width="50%" align="right">EmployeeID:</td>
      <td width="50%"><input name="EmployeeID" type="text" id="EmployeeID"></td>
    </tr>
    <tr>
      <td width="50%" align="right">TitleOfCourtesy:</td>
      <td width="50%"><select name="TitleOfCourtesy" id="TitleOfCourtesy">
          <option value="">==select==</option>
    <option value="Ms.">Ms.</option>
          <option value="Dr.">Dr.</option>
          <option value="Mrs.">Mrs.</option>
        </select></td>
    </tr>
    <tr>
      <td width="50%" align="right">FirstName:</td>
      <td width="50%"><input name="FirstName" type="text" id="FirstName"></td>
    </tr>
    <tr>
      <td width="50%" align="right">LastName:</td>
      <td width="50%"><input name="LastName" type="text" id="LastName"></td>
    </tr>
    <tr>
      <td width="50%" align="right">Title:</td>
      <td width="50%"><input name="Title" type="text" id="Title"></td>
    </tr>
    <tr>
      <td width="50%" align="right">City:</td>
      <td width="50%"><input name="City" type="text" id="City"></td>
    </tr>
    <tr>
      <td width="50%" align="right">
<input type="submit" name="Submit" value="提交"></td>
      <td width="50%">
<input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </table>
</form>
<%
If Trim(Request.Form("submit"))<>"" Then
 Response.Write("<table width='100%' border='0' cellspacing='1'>")
 Dim i,j,Rows,Flds
 Rows=Ubound(arr_wawa,2)
 Flds=Ubound(arr_wawa,1)
 If Rows>=0 Then
 For i=0 To Rows
  Response.Write("<tr>")
  For j=0 to Flds
   Response.Write"<td>"&arr_wawa(j,i)&"</td>"
  Next
  Response.Write("</tr>")
 Next
 Else
 Response.Write("<tr><td>"&Rows&"</td></tr>")
 End If
 Response.Write("</table>")
End If
%>

蛙蛙推荐:asp中的多条件组合查询实现

蛙蛙推荐:asp中的多条件组合查询实现多条件组合查询在很多地方都很有用,本文用一个简单的例子来实现一种组合查询在示例之前请确保你安装有sqlserver2000及其默认数据库NorhtWind.代码非...
  • onlytiancai
  • onlytiancai
  • 2004年07月12日 14:51
  • 1494

asp.net实现组合查询的一种方法

vb   Protected Function ComboSQL()Function ComboSQL(ByVal tbox As TextBox) As String                ...
  • JOHNCOOLS
  • JOHNCOOLS
  • 2006年02月19日 13:23
  • 1680

管理寓言:蛙鼠殒命

蛙鼠殒命                                           一只老鼠在河边玩耍的时候,遇见了英俊的青蛙。青蛙口若悬河地向老鼠介绍游泳的快乐、漂流的趣味以及沼泽地...
  • citizen2yy
  • citizen2yy
  • 2004年11月09日 17:50
  • 1642

蛙蛙推荐:asp实现树型结构

-----------[test]表生成脚本---------------if exists (select * from dbo.sysobjects where id = object_id(N[...
  • onlytiancai
  • onlytiancai
  • 2005年01月27日 15:07
  • 1333

Asp.net 实现高级查询组件(开源插件)

  • 2014年04月26日 10:40
  • 483KB
  • 下载

asp.net 利用多表联合查询进行汇总统计

3张表相关联,按照各个地区用户统计每个栏目在某个时间段的上报数量和审核数量,表结构如下图所示:...
  • taomanman
  • taomanman
  • 2015年07月08日 17:54
  • 3153

这款养蛙游戏火爆了朋友圈,游戏开发程序员已赚翻!

最近我的朋友圈发生了变化不晒猫、不晒狗、不晒老公他们都在晒蛙?!“我家蛙蛙出去浪到现在都还没有回来,明信片也没寄……”“呀,我不小心把我家蛙的明信片删了怎么办怎么办??”“上个礼拜首页还都是四个男人,...
  • EGEFCXzo3Ha1x4
  • EGEFCXzo3Ha1x4
  • 2018年01月24日 00:00
  • 319

蛙蛙推荐:蛙蛙教你文本聚类

蛙蛙推荐:蛙蛙教你文本聚类摘要:文本聚类是搜索引擎和语义web的基本技术,这次本蛙和大家一起学习一下简单的文本聚类算法,可能不能直接用于实际应用中,但对于想学搜索技术的初学者还是有一定入门作用的。这...
  • onlytiancai
  • onlytiancai
  • 2008年05月10日 20:40
  • 727

ASP多条件查询后翻页问题

在搜索文本框中输入搜索条件搜索后,如果搜索出来的信息条数小于或等于一页所设置的条数时,搜索也没有问题,可当搜索出来的条数大于所设条数的时,显示的将是所有数据库信息。请高手指点!谢谢...
  • lcc_2008_lcc
  • lcc_2008_lcc
  • 2007年11月06日 19:52
  • 280

asp.net mvc多条件+分页查询解决方案

开发环境vs2010 css:bootstrap js:jquery     bootstrap paginator 原先只是想做个mvc的分页,但是一般的数据展现都需要检索条件,而且是多个条...
  • dyllove98
  • dyllove98
  • 2013年08月02日 22:59
  • 6205
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:蛙蛙推荐:asp中的多条件组合查询实现
举报原因:
原因补充:

(最多只允许输入30个字)