skins.asp

来自「打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以」· ASP 代码 · 共 43 行

<!-- #include file="include/config.asp" -->
<%
dim back_url,old_url
back_url=request.servervariables("http_referer")
old_url=trim(request.querystring("old_url"))
if back_url="" then back_url="./"
if old_url<>"" then back_url=old_url

select case action
case "cookies_clear"
  call cookies_clear()
case else
  if format_mid_num(37)=1 then call skin_type()
end select

call web_clear(0)
response.redirect back_url

sub cookies_clear()
  dim cookies_name
  for each cookies_name in request.cookies(joekoe_cms.web_cookies)
    response.cookies(joekoe_cms.web_cookies)(cookies_name)=empty
  next
  if login_username<>"" then call joekoe_cms.exec("delete from user_login where l_username='"&login_username&"'",0)
  if session("guest")<>"" then call joekoe_cms.exec("delete from user_login where l_username='"&session("guest")&"'",0)
  Session.Abandon
end sub

sub skin_type()
  sql="select s_dir from jk_skin"
  set rs=joekoe_cms.exec(sql,1)
    do while not rs.eof
      if action=rs("s_dir") then
        response.cookies(joekoe_cms.web_cookies)("skin_var")=action
        rs.close
        exit sub
      end if
    rs.movenext
    loop
  rs.close
end sub
%>