ASP设置/读取cookies函数

'设置cookies,过期时间以秒来计算
Function setCookies(cookiesName,cookiesValue,cookiesTime)
   cookiesName=trim(cookiesName)
if cookiesName<>"" then
   response.Cookies(COOKIES_PRE & cookiesName)=cookiesValue
   if isNumeric(cookiesTime) and cookiesTime<>0 then : response.Cookies(COOKIES_PRE & cookiesName).Expires=DateAdd("s",cookiesTime,Now())
   setCookies=true
else
      setCookies=false
   response.Write("Sorry,set cookies failure!")
   response.End()
end if
End Function

'读取cookies
Function readCookies(cookiesName)
cookiesName=trim(cookiesName)
if cookiesName<>"" then
     readCookies=request.Cookies(COOKIES_PRE & cookiesName)
else
     response.Write("Sorry,read cookies failure!")
response.End()
end if
End Function