多条件查询代码(同时生成分页转向url)

程序编写过程中经常用到多条件查询，如果条件很多，处理起来是不是会很麻烦？
查询完后要分页，点“下一页”后查询参数没了？
下面这种方法可以很好的解决这个问题，使用起来也比较方便。
保存下面的代码到example.asp，然后运行example.asp文件，就会看到效果，
程序会自动保存提交的查询参数，即使翻页也不会丢失！

 

<%

'获取页面传递过来的参数
dim KeyWords,UserType,UserFrom,UserIsLock,UsefulLife,CorpType,choose '定义变量
KeyWords =trim(request.querystring("KeyWords"))
UserType =trim(request.querystring("UserType"))
UserFrom =trim(request.querystring("UserFrom"))
UserIsLock =trim(request.querystring("UserIsLock"))
UsefulLife =trim(request.querystring("UsefulLife"))
CorpType =trim(request.querystring("CorpType"))
'获取页面传递过来的参数结束

 

'查询结果
page=cint(request.querystring("page"))  '获取页面传递过来的分页参数
if  page=""  or  page<1  then  page=1      '处理传递过来的分页参数

dim  vs(5) '定义数组,本数组用来存储url参数
vs(0)="":vs(1)="":vs(2)="":vs(3)="":vs(4)="" '初始化

 

'根据条件开始给数组元素赋值,以确定查询参数
if  KeyWords<>"" and KeyWords<>"输入会员用户名搜索" then  vs(0)="KeyWords="  &  KeyWords
if  UserType<>""  then  vs(1)="UserType="  &  UserType
if  UserFrom<>""  then  vs(2)="UserFrom="  &  UserFrom
if  UserIsLock<>""  then  vs(3)="UserIsLock="  &  UserIsLock
if  UsefulLife<>""  then  vs(4)="UsefulLife="  &  UsefulLife
if  CorpType<>""  then  vs(5)="CorpType="  &  CorpType

'赋值结束

dim  conStr(6) '定义数组,本数组存储SQL查询条件
conStr(0)="":conStr(1)="":conStr(2)="":conStr(3)="":conStr(4)="":conStr(5)="" '初始化

 

'根据条件开始给数组元素赋值,以确定查询条件
if  KeyWords<>"" and KeyWords<>"输入会员用户名搜索"  then    conStr(0)="[UserName]='"  &  KeyWords  &  "'"
if  UserType<>"-1"  and  UserType<>""  then  conStr(1)="[UserType]="  &  UserType

if  UserFrom<>"-1"  and  UserFrom<>""  then  conStr(2)="[UserFrom]="  &  UserFrom

if  UserIsLock<>"-1"  and  UserIsLock<>""  then  conStr(3)="[UserIsLock]="  &  UserIsLock
if  UsefulLife<>"-1"  and  UsefulLife<>""  then  conStr(4)="[UsefulLife]="  &  UsefulLife
if  CorpType<>"-1"  and  CorpType<>""  then  conStr(5)="[CorpType]="  &  CorpType

'赋值结束

dim  SQLSTR:SQLSTR="" '定义变量,存储组合后的SQL查询条件
dim  sendSTR:sendSTR="" '定义变量,存储组合后的url参数

 

'循环赋值
for i=0 to 5 
        if conStr(i)<>"" then
                if SQLSTR="" then                       
                        SQLSTR=" where " & conStr(i)        '使用此条件来添加where关键字
                else
                        SQLSTR=SQLSTR & " and " & conStr(i)        '关键字and来连接查询条件
                end if
        end if
        if vs(i)<>"" then
                sendSTR=sendStr & vs(i) & "&"                        '直接用&来链接各url参数
        end if
next

 

set rs=server.CreateObject("adodb.recordset")
SQL="Select  *  from  [Users]"  &  SQLSTR  &  "  order  by  [UserID]  desc" '生成查询SQl
rs.open SQL,conn,1,1
s_url="example?"  &  sendStr '生成分页转向url,注意example.asp后面的?,一定不要漏了
response.write  "<br  /><br  />生成的SQL查询语句:"  &  SQL
response.write  "<br  /><br  />生成的分页转向url:"  &  s_url
response.write  "<br  /><br  />当前在第"  &  page  &  "页!"
response.write  "<br  /><br  /><a  href="""  &  s_url  &  "page="  &  page-1  &  """>上一页</a>  <a  href="""  &  s_url  &  "page="  &  page+1  &  """>下一页</a>"
%>
<table class="tableBorder" cellspacing="1" cellpadding="3" width="96%" align="center" border="0">
 <tr>
  <th height="25" align="left">会员列表</th>
 </tr>
 <tr>
  <td class="TableRow1">
  <!--提交表单开始-->
  <form style="display:inline;" name="search" action="" method="get">  <!--注意,必须用get方法提交表单-->
   <input id="KeyWords" name="KeyWords" <% if KeyWords<>"" then %> value="<%=KeyWords%>" <% else %> value="输入会员用户名搜索" <% end if %> onFocus="if(this.value=='输入会员用户名搜索')this.value='';" onBlur="if(this.value=='')this.value='输入会员用户名搜索';" style="color:gray;" />
   <select name="UserType" style="vertical-align:middle;">
    <option value="-1" <%if  UserType="-1" then response.write "selected"%>>不限会员类型</option>
    <option value="1" <%if UserType="1" then response.write "selected"%>>金卡会员</option>
    <option value="2" <%if UserType="2" then response.write "selected"%>>银卡会员</option>
   </select>
   <select name="UserFrom" style="vertical-align:middle;">
    <option value="-1" <%if UserFrom="-1" then response.write "selected"%>>不限添加方式</option>
    <option value="1" <%if  UserFrom="1" then response.write "selected"%>>前台注册</option>
    <option value="0" <%if UserFrom="0" then response.write "selected"%>>后台添加</option>
   </select>
   <select name="UserIsLock" style="vertical-align:middle;">
    <option value="-1" <%if UserIsLock="-1" then response.write "selected"%>>不限会员状态</option>
    <option value="1" <%if  UserIsLock="1" then response.write "selected"%>>激活</option>
    <option value="0" <%if UserIsLock="0" then response.write "selected"%>>锁定</option>
   </select>
   <select name="UsefulLife" style="vertical-align:middle;">
    <option value="-1" <%if UsefulLife="-1" then response.write "selected"%>>不限有效期限</option>
    <option value="1" <%if UsefulLife="1" then response.write "selected"%>>1年</option>
    <option value="2" <%if UsefulLife="2" then response.write "selected"%>>2年</option>
    <option value="3" <%if UsefulLife="3" then response.write "selected"%>>3年</option>
    <option value="4" <%if UsefulLife="4" then response.write "selected"%>>4年</option>
    <option value="5" <%if UsefulLife="5" then response.write "selected"%>>5年</option>
   </select>
   <select name="CorpType" style="vertical-align:middle;">
    <option value="-1" <%if CorpType="-1" then response.write "selected"%>>不限企业类型</option>
    <option value="1" <%if CorpType="1" then response.write "selected"%>>经销商</option>
    <option value="2" <%if CorpType="2" then response.write "selected"%>>酒类企业</option>
    <option value="3" <%if CorpType="3" then response.write "selected"%>>包装企业</option>
    <option value="4" <%if CorpType="4" then response.write "selected"%>>机械设备企业</option>
    <option value="5" <%if CorpType="5" then response.write "selected"%>>其它企业</option>
   </select>
   <input type="submit" name="Submit2" value="开始搜索">
  </form>

<!--提交表单结束-->
  </td>
 </tr>
</table>

 

 

现在的代码是在原代码的基础上稍做了些修改，其源代码的功能没有变化。真的很佩服作者，很厉害！！

 

原帖地址：http://dev.mo.cn/article_158.html