用详细分类查询查询就好了!"" 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("") End If rs_wawa.close() set rs_wawa=nothing End if %>| Search Employees | | EmployeeID: | | | TitleOfCourtesy: | ==select== Ms. Dr. Mrs. | | FirstName: | | | LastName: | | | Title: | | | City: | | | | |
"" Then Response.Write("") 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("") For j=0 to Flds Response.Write""&arr_wawa(j,i)&"" Next Response.Write("") Next Else Response.Write(""&Rows&"") End If Response.Write("") End If %>参考资料：ASP中的多条件组合查询实现
已赞过已踩过<
|
