加载中...
查看文章
  • 最简洁的多重查询的解决方案
  • 作者：未知 来源：未知 添加时间：2004年5月7日 字体:大 中 小
  • 83803前言]

    x\v`我x\v`们经常会遇到多重查询问题，而长长的SQL语句往往让人丈二和尚摸不着头脑。特别是客户端部分填入查询条件时，如用普通方法将更是难上加难。

    x\v`以下巧妙地利用"where 1=1"的恒等式（事实上很多，让它值为TRUE即可）解决此问题。

    x\v`

    x\v`[正文概要]

    x\v`'subject 信息标题

    x\v`'company 发布信息的公司名称

    x\v`'content 发布信息的内容

    x\v`'address 公司地址

    x\v`'infomation 公司简介

    x\v`'note 相关说明

    x\v`以上值均由FORM提交，然后通过:subject=trim(Request.Form("subject"))等得到相应的值。

    x\v`

    x\v`<%

    x\v`'这个函数很关键！---------------------------

    x\v`Function sql(a,b,sqls)

    x\v`if b<>"" then '如果客户端没有提交此值，则不会产生相应的SQL语句。

    x\v`sqls=sqls & " and " & a & " like '%" & b & "%'"

    x\v`end if

    x\v`sql=sqls

    x\v`End Function

    x\v`'-----------------调用数据库

    x\v`Set conn=Server.CreateObject("ADODB.Connection")

    x\v`DBpath=Server.MapPath("/database/mydb.mdb")

    x\v`Conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=;dbq=" & DBpath

    x\v`Set rs=Server.CreateObject("ADODB.Recordset")

    x\v`sqls="select * from mytable where 1=1 "

    x\v`'以下调用上面的函数即可,可以很多个调用（理论上是任意）

    x\v`sqls=sql("subject",subject,sqls)

    x\v`sqls=sql("company",company,sqls)

    x\v`sqls=sql("content",content,sqls)

    x\v`sqls=sql("address",address,sqls)

    x\v`sqls=sql("infomation",infomation,sqls)

    x\v`sqls=sql("note",note,sqls)

    x\v`sqls=sqls & " order by id desc"

    x\v`rs.open sqls,conn,3,2

    x\v`%>

    x\v`

    x\v`

    x\v`[结束语]

    x\v`如果没有关键的函数Function sql(a,b,sqls)，我x\v`们可以想象，需要多少判断的一个接一个的语句！ 83800
  • 返回页面顶端
  • 上一篇：无组件上传文字与图片至数据库之gztiger解决方案
  • 下一篇：VBScript函数
  • 返回上一页 打印本文 加入收藏
  • 页面最后更新时间：2011年5月18日