home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / zb / Notepad-1 / style.asp < prev    next >
Text File  |  2004-12-09  |  447b  |  21 lines
  1. <%
  2. response.buffer=true
  3. dim style,referer
  4. referer=request.servervariables("http_referer")
  5. if referer="" then
  6.     referer="index.asp"
  7. end if
  8. style=request.querystring("style")
  9. if style="" or not isNumeric(style) then
  10.     style=1
  11. else
  12.     style=int(style)
  13. end if
  14.  
  15. if cookiePath<>"" then
  16.     response.cookies("style").Path=cookiePath
  17. end if
  18. response.cookies("style")=cstr(style)
  19. response.cookies("style").expires=dateadd("m",1,now())
  20. response.redirect referer
  21. %>