asp 读写cookies 代码

 '函数名：ResponseCookies
  '作  用：写入COOKIES
  '参  数：Key ----cookie名
  '        value ----cookie值
  '        expires ---- cookie过期时间
  '****************************************************
  Public Function ResponseCookies(Key,Value,Expires)
   DomainPath=Left(Request.ServerVariables("script_name"),inStrRev(Request.ServerVariables("script_name"),"/"))
   Response.Cookies(Key)=""&Value&""
   if Expires<>0 then Response.Cookies(Key).Expires=date+Expires
   Response.Cookies(Key).Path=DomainPath
  End Function
 
  '****************************************************
  '函数名：CleanCookies
  '作  用：清除COOKIES
  '****************************************************
  Public Function CleanCookies()
   DomainPath=Left(Request.ServerVariables("script_name"),inStrRev(Request.ServerVariables("script_name"),"/"))
   For Each objCookie In Request.Cookies
    Response.Cookies(objCookie)= ""
    Response.Cookies(objCookie).Path=DomainPath
   Next
  End Function 
 
  ' 使用方法
 
  call ResponseCookies("111com.net","www.111com.net",now())