<select size="1" name="aa"> 

<option>請選擇</option>

<option>1</option> 

<option>2</option> 

<option>3</option></select>

(bb,cc也是下拉式選單)

aa=request("aa")

bb=request("bb")

cc=request("cc")


Set conn = Server.CreateObject("ADODB.Connection") 

DBPath = Server.MapPath("dev.mdb") 

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath 

Set rs = Server.CreateObject("ADODB.Recordset") 



Sql1 = "select * From devconf where"

sql2 = " aa = '"& aa &"'"

sql3 = " and bb like '%"& bb &"%'"

sql4 = " and cc like '%"& cc &"%'" (bb,cc是選關鍵字)

sql = sql1 & sql2 & sql3 & sql4 

rs.Open Sql, conn, 1,1 


------------------------------------------------------

回應者: 找蟹的人 
Sql1 = "select * From devconf where"

sql2 = " aa = '"& aa &"'"

If bb <> "" Then

sql3 = " and bb like '%"& bb &"%'"

End If

If cc <> "" Then

sql4 = " and cc like '%"& cc &"%'" (bb,cc是選關鍵字)

End If

sql = sql1 & sql2 & sql3 & sql4 
					
                        
 
                         

							
							 本篇文章發表於2001-12-06 00:00