推薦：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章，