国产18禁黄网站免费观看,99爱在线精品免费观看,粉嫩metart人体欣赏,99久久99精品久久久久久,6080亚洲人久久精品

程序員:最簡潔的多重查詢的解決方案

時(shí)間:2008-09-20 00:39:00   來源:無憂考網(wǎng)     [字體: ]
我們經(jīng)常會(huì)遇到多重查詢問題,而長長的SQL語句往往讓人丈二和尚摸不著頭腦。特別是客戶端部分填入查詢條件時(shí),如用普通方法將更是難上加難。
  以下巧妙地利用"where 1=1"的恒等式(事實(shí)上很多,讓它值為TRUE即可)解決此問題。
  正文概要
  ’subject 信息標(biāo)題
  ’company 發(fā)布信息的公司名稱
  ’content 發(fā)布信息的內(nèi)容
  ’address 公司地址
  ’infomation 公司簡介
  ’note 相關(guān)說明
  以上值均由FORM提交,然后通過:subject=trim(Request.Form("subject"))等得到相應(yīng)的值。
  <%
  ’這個(gè)函數(shù)很關(guān)鍵!---------------------------
  Function sql(a,b,sqls)
  if b<>"" then ’如果客戶端沒有提交此值,則不會(huì)產(chǎn)生相應(yīng)的SQL語句。
  sqls=sqls & " and " & a & " like ’%" & b & "%’"
  end if
  sql=sqls
  End Function
  ’-----------------調(diào)用數(shù)據(jù)庫
  Set conn=Server.CreateObject("ADODB.Connection")
  DBpath=Server.MapPath("/database/mydb.mdb")
  Conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=;dbq=" & DBpath
  Set rs=Server.CreateObject("ADODB.Recordset")
  sqls="select * from mytable where 1=1 "
  ’以下調(diào)用上面的函數(shù)即可,可以很多個(gè)調(diào)用(理論上是任意)
  sqls=sql("subject",subject,sqls)
  sqls=sql("company",company,sqls)
  sqls=sql("content",content,sqls)
  sqls=sql("address",address,sqls)
  sqls=sql("infomation",infomation,sqls)
  sqls=sql("note",note,sqls)
  sqls=sqls & " order by id desc"
  rs.open sqls,conn,3,2
  %>