推薦:10行代碼讓你告別Arp作惡導致的掉線一同學在宿舍是很多人一起上網,有不少人用arp作惡,導致上網老是掉線。問我有什麼辦法嗎,於是就寫了下面的vbs腳本,同學說用了後聊天也不掉線了。 以
我們經常會遇到多重查詢問題,而長長的SQL語句往往讓人丈二和尚摸不著頭腦。特別是客戶端部分填入查詢條件時,如用普通方法將更是難上加難。
以下巧妙地利用where 1=1的恆等式(事實上很多,讓它值為TRUE即可)解決此問題。
[正文概要]
'subject 信息標題
'company 發布信息的公司名稱
'content 發布信息的內容
'address 公司地址
'infomation 公司簡介
'note 相關說明
以上值均由FORM提交,然後通過:subject=trim(Request.Form(subject))等得到相應的值。
| 以下為引用的內容: <% '這個函數很關鍵! --------------------------- Function sql(a,b,sqls) if b<> then '如果客戶端沒有提交此值,則不會產生相應的SQL語句。 sqls=sqls & and & a & like '% & b & %' end if sql=sqls End Function '-----------------調用數據庫 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 '以下調用上面的函數即可,可以很多個調用(理論上是任意) 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 %> [結束語] |
如果沒有關鍵的函數Function sql(a,b,sqls),我們可以想像,需要多少判斷的一個接一個的語句!
分享:ASP 3.0高級編程(三十四) 7.4.4 使用IIS錯誤頁面與ASP錯誤處理過程相關的內容是為IIS提供可定制的錯誤頁面。事實上,在IIS 4.0中也有這個特點。但新的ASP內置對象ASPError,更易於使用且提供更加強大的功能。在第4章,