主题：下拉隐藏

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path    
    Case "aa.htm"

           wb.AddForm("","form1","handle.htm") '指定接收表单数据的的页面为handle.htm
            With wb.AddInputGroup("form1","ipg1","aa" )
             .AddSelect("对象","对象", "黄色|红色").Attribute = "showandhide(this.value)"  '调用js函数。         

            With wb.AddRadioGroup("form1","颜色","颜色")                   
            .Add("淡黄","淡黄")
            .Add("金黄","金黄")

            .Add("粉红","粉红")
            .Add("朱红","朱红")

               End With 
               End With

            wb.AppendHTML("<script src='./lib/brands.js'></script>") '引入脚本文件

            e.WriteString(wb.Build) 

End Select

 

 

请问一下我选择黄色之后 怎么把粉红 和朱红隐藏  ，选择红色后只显示  粉红 和朱红？

 

下面这段放在foxtable网页要怎么写？