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)'
End Select
这样是不是对了??
用这个之前是不是要在网页开头创建cookies??