'****************************************************
' Function name: responsecookies
' Function: Write cookies
' parameter: Key----cookie Name
' Value----cookie
' Expires----cookie expiration time
'****************************************************
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
'****************************************************
' Function name: cleancookies
' Function: Remove 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 use method
Responsecookies ("111cn.net tutorial", "111CN", Date ()) ' Set cookies
Cleancookies () ' Clear Cookis