Response.Cookies("user")("userid")=userid '创建Cookies
Response.Cookies("user")("userpw")=userpw
dim newdate
newdate=now()
if timelimit="1" then
elseif timelimit="2" then
newdate=DateAdd("d", 1, now())
response.Cookies("user").Expires=newdate
elseif timelimit="3" then
newdate=DateAdd("w", 1, now())
response.Cookies("user").Expires=newdate
elseif timelimit="4" then
newdate=DateAdd("d", 30, now())
response.Cookies("user").Expires=newdate
elseif timelimit="5" then
newdate=DateAdd("y", 1, now())
response.Cookies("user").Expires=newdate
end if
set newdate=nothing