MyVar = lcase (Color) Select Case MyVar Case "red" document.bgColor = "red" Case "green" document.bgColor = "green" Case "blue" document.bgColor = "blue" Case Else MsgBox "选择另一种颜色" End Select
MyVar = lcase (radiio) Select Case MyVar Case "1" response.Cookies("**").Expires=DateAdd("d",7,Date)' Case "2" response.Cookies("**").Expires=DateAdd("d",30,Date)' Case "3" response.Cookies("**").Expires=DateAdd("d",0,Date)'