 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<!-- 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 %> 返回类别: 教程 上一教程: 去掉内容中的所有全部HTML标签 下一教程: 从数据表中取出第N条到第M条的记录的方式 您可以阅读与"ASP中的多条件组合查询实现"相关的教程: · ASP的多条件动态查询 · ASP项目中的通用条件查询模块 · 解决在ASP中执行数据库查询中的特别字符的问题 · 在ASP中使用SQL语句之2:用WHERE子句设置查询条件 · 用ASP和WML来实现数据库查询 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
