skin.asp

..不怎么明白。不知道这个市什么只想下个服务端

<!-- #include file="config.asp" -->
<!-- #include file="jk_encrypt.asp" -->
<!-- #include file="functions.asp" -->
<!-- #include file="../style/joekoe_menu.asp" -->
<%
'****************************************************
' Web: http://www.aouoo.com , http://www.aouoo.net
' Copyright (C) 2007 Aouoo.com All Rights Reserved.
'****************************************************

dim web_width,user_ip,user_sys,cookies_true,head_js,skin_dir,iframe,page_load,login_is_abate,is_refur_true
dim lefter,righter,web_left_wid,web_center_height,m_channel,web_img_m,web_img_h,pic_w,pic_h,max_w,max_h,img_emoney,m_hei,max_word
dim online_num,login_msg,num_topic,num_data,num_reg,new_username,total_counter,max_online,max_tim,start_tim,new_num,today_tim,stamp_num

web_left_wid=185
web_center_height=300
pic_w=dim_num(15)
pic_h=dim_num(16)
max_w=dim_num(17)
m_hei=dim_num(6)
max_word=dim_num(4)
img_emoney="<img border=0 src='"&joekoe_cms.web_dir_skin&"small/emoney.gif' alt='"&joekoe_cms.web_unit&"' align=absmiddle>"

web_width=""
user_ip=joekoe_cms.ip_sys(0)
user_sys=joekoe_cms.code_form(left(joekoe_cms.ip_sys(1),250))
skin_dir=joekoe_cms.web_dir_skin
iframe=false
page_load=false
is_refur_true=true
cookies_true=true
if trim(request.cookies(joekoe_cms.web_cookies)("cookies_true"))<>"yes" then
  response.cookies(joekoe_cms.web_cookies).path=joekoe_cms.web_dir
  response.cookies(joekoe_cms.web_cookies)("cookies_true")="yes"
  cookies_true=false
end if

call web_is_open()
call web_ip_shield()

dim dim_menu
dim_menu=split(web_dim(20),"|")

sub web_head_tit()
  tit=joekoe_cms.code_form(tit)
  tit_fir=joekoe_cms.code_form(tit_fir)
  joekoe_cms.web_tit=tit
  call skin_load()
  call joekoe_cms.web_title()
  if iframe then
    response.write vbcrlf&"<iframe width=0 height=0 src=''id=hiddenframe name=hiddenframe></iframe>"
  end if
  lefter="<table border=0 width='"&web_width&"' cellspacing=0 cellpadding=0><tr><td width=1 class=bg_frame></td><td width=* align=center class=bg>"
  righter="</td><td width=1 class=bg_frame></td></tr></table>"
end sub

sub web_ads(ads_sort,ads_t)
  if var_null(ads_sort)="" then exit sub
  response.write vbcrlf&"<script language=javascript src='"&joekoe_cms.web_dir&"ads/ads_"&ads_sort&".js'></script>"
  if ads_t=1 then
    response.write ukong
  end if
end sub

sub day_initialize(today_tim)
  call joekoe_cms.exec("update configs set num_new=0,today_tim='"&today_tim&"'",0)
  application.lock
  application(joekoe_cms.web_cookies&"_configs_new_num")=0
  application(joekoe_cms.web_cookies&"_configs_today_tim")=today_tim
  application.unlock
  call joekoe_cms.exec("update bbs_forum set forum_new_num=0",0)
  sql="update user_data set abate=1 where estate=1 and otim<"&time_mode&today_tim&time_mode
  call joekoe_cms.exec(sql,0)
end sub

sub web_head(var1,var2,var3,var4,var5)
  if page_load then
    call format_redirect("page_load.asp")
  end if
  call web_head_tit()
  
  dim temp1,ttt
  num_topic=0
  num_data=0
  num_reg=0
  new_username=""
  total_counter=0
  max_online=0
  max_tim=joekoe_cms.now_time
  start_tim=joekoe_cms.time_type(joekoe_cms.now_time,5)
  login_msg=0
  online_num=0
  new_num=0
  today_tim=joekoe_cms.time_type(joekoe_cms.now_time,4)
  tit=joekoe_cms.code_form(tit)
  stamp_num=format_mid_num(1)
  
  '-------------------------------------------------------------------------
  if not application(joekoe_cms.web_cookies&"_configs_true") then
    sql="select top 1 id,num_topic,num_data,num_reg,new_username,num_news,num_article,num_down,num_product,counter,max_online,max_tim,start_tim,num_new,today_tim from configs"
    set rs=joekoe_cms.exec(sql,1)
    if rs.eof then
      rs.close
      call joekoe_cms.exec("insert into configs(id,num_topic,num_data,num_reg,new_username,num_news,num_article,num_down,num_product,counter,max_online,max_tim,start_tim,num_new,today_tim) values(1,"&num_topic&","&num_data&","&num_reg&",'"&new_username&"',0,0,0,0,"&total_counter&","&max_online&",'"&max_tim&"','"&start_tim&"',0,'"&today_tim&"')",0)
      set rs=joekoe_cms.exec(sql,1)
    end if
    application.lock
    application(joekoe_cms.web_cookies&"_configs_true")=true
    application(joekoe_cms.web_cookies&"_configs_num_topic")=rs(1)
    application(joekoe_cms.web_cookies&"_configs_num_data")=rs(2)
    application(joekoe_cms.web_cookies&"_configs_num_reg")=rs(3)
    application(joekoe_cms.web_cookies&"_configs_new_username")=rs(4)
    application(joekoe_cms.web_cookies&"_configs_num_news")=rs(5)
    application(joekoe_cms.web_cookies&"_configs_num_article")=rs(6)
    application(joekoe_cms.web_cookies&"_configs_num_down")=rs(7)
    application(joekoe_cms.web_cookies&"_configs_num_product")=rs(8)
    application(joekoe_cms.web_cookies&"_configs_counter")=rs(9)
    application(joekoe_cms.web_cookies&"_configs_max_online")=rs(10)
    application(joekoe_cms.web_cookies&"_configs_max_tim")=rs(11)
    application(joekoe_cms.web_cookies&"_configs_start_tim")=rs(12)
    application(joekoe_cms.web_cookies&"_configs_new_num")=rs(13)
    application(joekoe_cms.web_cookies&"_configs_today_tim")=rs(14)
    application.unlock
    rs.close
  end if
  num_topic=application(joekoe_cms.web_cookies&"_configs_num_topic")
  num_data=application(joekoe_cms.web_cookies&"_configs_num_data")
  num_reg=application(joekoe_cms.web_cookies&"_configs_num_reg")
  new_username=application(joekoe_cms.web_cookies&"_configs_new_username")
  total_counter=application(joekoe_cms.web_cookies&"_configs_counter")
  max_online=application(joekoe_cms.web_cookies&"_configs_max_online")
  max_tim=application(joekoe_cms.web_cookies&"_configs_max_tim")
  start_tim=application(joekoe_cms.web_cookies&"_configs_start_tim")
  new_num=application(joekoe_cms.web_cookies&"_configs_new_num")
  
  if cstr(joekoe_cms.time_type(application(joekoe_cms.web_cookies&"_configs_today_tim"),4))<>cstr(joekoe_cms.time_type(today_tim,4)) then
    call day_initialize(today_tim)
    total_counter=total_counter+1
    new_num=0
  end if
  
  if cookies_true then
    if joekoe_cms.web_db=1 then
      call joekoe_cms.exec("delete from user_login where datediff(mi,l_tim_end,getdate())>"&dim_num(2),0)
    else
      call joekoe_cms.exec("delete from user_login where datediff('s',l_tim_end,'"&joekoe_cms.now_time&"')>"&dim_num(2)&"*60",0)
    end if    
    login_password=jk_decrypt(login_password)
    if symbol_name(login_username)=false or symbol_ok(login_password)=false then
      call cookies_clear(0)
    else
      sql="select top 1 id,username,power,popedom,emoney,integral,last_tim,face,face_w,face_h,estate,otim from user_data where hidden=1 and abate=0 and username='"&login_username&"' and password='"&login_password&"'"
      call joekoe_cms.exec("",-1)
      rs.open sql,conn,1,3
      if rs.eof then
        call cookies_clear(0)
      else
        login_id=rs(0)
        login_username=rs(1)
        login_mode=rs(2)
        login_popedom=rs(3)
        login_emoney=rs(4)
        login_integral=rs(5)
        login_faces=rs(7)&"|"&rs(8)&"|"&rs(9)
        login_is_abate=rs(10)
        if int(login_is_abate)>0 then
          if int(dateDiff("d",today_tim,rs(11)))<1 then login_is_abate=0
        end if
        rs(6)=joekoe_cms.now_time
        rs.update
        login_modep=format_power(login_mode,2)
        response.cookies(joekoe_cms.web_cookies)("login_id")=login_id
        response.cookies(joekoe_cms.web_cookies)("login_password")=jk_encrypt(login_password)
      end if
      rs.close
    end if
    if is_refur_true=true then call time_load()

    '完整型,用户和游客都进行识别,这里识别游客
    if int(stamp_num)>1 and login_mode="" and cookies_true=true then
      ttt=trim(request.cookies(joekoe_cms.web_cookies)("guest_name"))
      ttt=joekoe_cms.code_html(ttt,1,0)
      if ttt="" then
        ttt="游客"&Session.SessionID
        response.cookies(joekoe_cms.web_cookies)("guest_name")=ttt
      end if
      sql="select top 1 l_id from user_login where l_username='"&ttt&"'"
      set rs=joekoe_cms.exec(sql,1)
      if rs.eof then
        call joekoe_cms.exec("insert into user_login(l_username,l_type,l_where,l_tim_login,l_tim_end,l_ip,l_sys) values('"&ttt&"',1,'"&left(tit,50)&"','"&joekoe_cms.now_time&"','"&joekoe_cms.now_time&"','"&user_ip&"','"&user_sys&"')",0)
        total_counter=total_counter+1
        call joekoe_cms.exec("update configs set counter=counter+1",0)
      else
        call joekoe_cms.exec("update user_login set l_where='"&left(tit,50)&"',l_tim_end='"&joekoe_cms.now_time&"' where l_id="&rs("l_id"),0)
        if format_mid_num(9)=1 then
          total_counter=total_counter+1
          call joekoe_cms.exec("update configs set counter=counter+1",0)
        end if
      end if
      rs.close
    end if
    
    if int(stamp_num)>0 and login_mode<>"" and cookies_true=true then
      sql="select count(id) from user_mail where accept_u='"&login_username&"' and types=1 and isread=0"
      set rs=joekoe_cms.exec(sql,1)
      login_msg=rs(0)
      rs.close
      sql="select top 1 l_id from user_login where l_username='"&login_username&"'"
      set rs=joekoe_cms.exec(sql,1)
      if rs.eof then
        call joekoe_cms.exec("insert into user_login(l_username,l_type,l_where,l_tim_login,l_tim_end,l_ip,l_sys) values('"&login_username&"',0,'"&left(tit,50)&"','"&joekoe_cms.now_time&"','"&joekoe_cms.now_time&"','"&user_ip&"','"&user_sys&"')",0)
        total_counter=total_counter+1
        call joekoe_cms.exec("update configs set counter=counter+1",0)
      else
        if format_mid_num(9)=1 then
          total_counter=total_counter+1
          call joekoe_cms.exec("update configs set counter=counter+1",0)
        end if      
        call joekoe_cms.exec("update user_login set l_where='"&left(tit,50)&"',l_tim_end='"&joekoe_cms.now_time&"' where l_username='"&login_username&"'",0)
      end if
      rs.close