asp Cookies 寫入與清除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
 
  ' cookies使用方法
  ResponseCookies("111cn.net教程","111cn",date())'設定cookies
  CleanCookies() '清除cookis