rs.update jibie=rs("szd_jibie") call SaveCookie_5do8() sub SaveCookie_5do8() Response.Cookies("5do8")("User")=user Response.Cookies("5do8")("Password") = PassWord Response.Cookies("5do8")("CookieDate") = CookieDate select case CookieDate case 0 """"not save case 1 Response.Cookies("5do8").Expires=Date+1 case 2 Response.Cookies("5do8").Expires=Date+31 case 3 Response.Cookies("5do8").Expires=Date+365 end select end sub