cookies.asp
Upload User: ahxunteng
Upload Date: 2022-05-16
Package Size: 1606k
Code Size: 1k
Development Platform:

VBScript

  1. <%
  2. select case Request("menu")
  3. case "BsSkins"
  4. Response.Cookies("BsSkins")=""&Request("no")&""
  5. Response.Cookies("BsSkins").Expires=date+3650
  6. url=Request.ServerVariables("http_referer")
  7. if url<>empty and instr(url,"left.asp")=0 then
  8. response.redirect url
  9. else
  10. response.write "<SCRIPT>location='index.asp';</SCRIPT>"
  11. end if
  12. case "eremite"
  13. Response.Cookies("eremite")="1"
  14. Response.Cookies("eremite").Expires=date+3650
  15. response.redirect Request.ServerVariables("http_referer")
  16. case "online"
  17. Response.Cookies("eremite")="0"
  18. Response.Cookies("eremite").Expires=date+3650
  19. response.redirect Request.ServerVariables("http_referer")
  20. end select
  21. %>