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