<%    
    Set rc = Server.CreateObject("ADODB.Recordset")
    switch (request("action")){  
    case:"办公家具"
    sql = "select * from produce where News_Class = '办公家具' "
    case:"宾馆客房家具"
    sql = "select * from produce where News_Class = '宾馆客房家具' "
    case:"酒店家具"
    sql = "select * from produce where News_Class = '酒店家具' "
    case:"民用家具"
    sql = "select * from produce where News_Class = '民用家具' "
    case:"其他产品"
    sql = "select * from produce where News_Class = '其他产品' "
    default:
    sql = "select * from produce "
    }
    set rc = conn.Execute(sql)
%>

用select case也是一样的吧

<%   
    Set rc = Server.CreateObject("ADODB.Recordset")
    select case (request("action"))
    case "办公家具"
    sql = "select * from produce where News_Class = '办公家具' "
    case "宾馆客房家具"
    sql = "select * from produce where News_Class = '宾馆客房家具' "
    case "酒店家具"
    sql = "select * from produce where News_Class = '酒店家具' "
    case "民用家具"
    sql = "select * from produce where News_Class = '民用家具' "
    case "其他产品"
    sql = "select * from produce where News_Class = '其他产品' "
    case else
    sql = "select * from produce "
    end select
    set rc = conn.Execute(sql)
%>

楼主
VBS中选择语句是使用select case