驗證時的代碼如下:
<%cookiesday=request.form("cookiesday")
admin=rs("admin")
response.Cookies("admin")=admin
select case cookiesday
case 0
'Response.Cookies("user").expires=time+1200
case 1
Response.Cookies("admin").expires=time+2400
case 2
Response.Cookies("admin").expires=date+7
case 3
Response.Cookies("admin").expires=date+30
end select
%>