一聚教程网:一个值得你收藏的教程网站

热门教程

asp 读写cookies 代码

时间:2022-07-02 23:02:55 编辑:袖梨 来源:一聚教程网

 '函数名: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())

热门栏目