skin.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<!-- #include file="config.asp" -->
<!-- #include file="functions.asp" -->
<!-- #include file="../style/joekoe_menu.asp" -->
<%
dim web_width,user_ip,user_sys,cookies_true,head_js,skin_dir,iframe,page_load,login_is_abate,is_refur_true,forum_online
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
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,bbs_lday
'-----------------------------------常用变量设置--------------------------------------
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)
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),"|")
'--------------------------------用户在线时间统计---------------------------------
dim tim_login,tim_temp,lentimt
sql="select top 1 l_tim_login from user_login where l_username='"&login_username&"'"
set rs=joekoe_cms.exec(sql,1)
if not rs.eof then tim_login=rs(0)
rs.close
tim_temp=DateDiff("n",tim_login,now())
if symbol_name(login_username) and tim_temp>4 then
call joekoe_cms.exec("update user_login set l_tim_login='"&joekoe_cms.now_time&"' where l_username='"&login_username&"'",0)
 if tim_temp<30 then
call joekoe_cms.exec("update user_data set lentim=lentim+"&tim_temp&" where username='"&login_username&"'",0)
call joekoe_cms.exec("update user_data set lentimt=lentimt+"&tim_temp&" where username='"&login_username&"'",0)
 end if
end if
'-----------------------------------网站标识--------------------------------------
sub web_head_tit()
  tit=joekoe_cms.code_form(tit)
  tit_fir=joekoe_cms.code_form(tit_fir)
  call skin_load()
  call web_head_title()
  if iframe then
    response.write vbcrlf&"<iframe width=0 height=0 src=''id=hiddenframe name=hiddenframe></iframe>"
  end if
end sub

'================================================
'作    用：站内广告模块
'参    数：
'  ads_sort：广告名称
'  ads_t   ：判断在广告下部是否留空
'================================================
sub web_ads(ads_sort,ads_t)
  if var_null(ads_sort)="" then exit sub
  response.write vbcrlf&"<script language=javascript src='ads/ads_"&ads_sort&".js'></script>"
  if ads_t=1 then
    response.write ukong
  end if
end sub

'================================================
'作    用：每日更新
'参    数：
'  today_tim：当前时期
'================================================
sub day_initialize(today_tim)
  dim price_head,last_num
  price_head="#"
  if joekoe_cms.web_vt=1 then
    price_head="'"
  	sql="select count(tim) from bbs_data where tim<CONVERT(VARCHAR(10),getdate(),20) and tim>CONVERT(VARCHAR(10),getdate()-1,20)"
  else
    dim tmp_tim:tmp_tim=DATEADD("d",-1,DATE)
  	sql="select count(tim) from bbs_data where tim like '"&tmp_tim&"%'" 
  end if
  set rs=joekoe_cms.exec(sql,1)
  last_num=rs(0)
  rs.close
  call joekoe_cms.exec("update configs set num_new=0,today_tim='"&today_tim&"',bbs_lday="&last_num,0)
  call joekoe_cms.exec("update bbs_forum set forum_new_num=0",0)
  call joekoe_cms.exec("update user_data set lentimt=0",0)
  sql="update user_data set abate=1 where estate=1 and otim<"&price_head&today_tim&price_head
  call joekoe_cms.exec(sql,0)
  application.contents.removeall()
end sub

'================================================
'作    用：网站头部功能模块,设置页面头部信息及显示形式,浏览权限等
'参    数：
'	   var1 : 可选三个参数：0，1，2
'               0，表示不要登陆即可进行浏览该页面；
'               1，表示在后台设置要登陆浏览时，表示有权限用户（请查看下面的说明）登陆后才可浏览该页面；
'               2，表示强制有权限用户登陆后才可浏览该项页面；
'	   var2 : 可选两个参数：0，1
'               0，表示不论是否锁定用户可浏览该页面；
'               1，表示已被锁定的用户不可以浏览该页面；
'	   var3 : 可选三个参数：0，1，2，3，4，5
'               0，表示以左小右大形式的方式显示页面，输出页头JS和头部和底部信息，如“article.asp”一样，需配合“call   '                  web_center(0)、call web_end(0,0)”一起使用；
'               1，此参数值保留；
'               2，表示以满屏方式显示，输出页头JS和头部和底部信息，不分左右，如“article_view.asp”一样，配合“call
'                  web_end(0,0)”一起使用，当设置此值时该页面请勿再使用“call web_center(0)”；
'               3，此参数值保留；
'               4，表示只输出页头JS，不包含头部和底部信息，如“commend.asp”一样，配合“call 
'                  web_end(0,1)”一起使用，当设置此值时该页面请勿再使用“call web_center(0)”；
'               5，表示只进行权限处理，不输出页头JS和头部和底部信息，如“forum_loadonline.asp”一样，配合“call
'                  web_end(0,1)”一起使用，当设置此值时该页面请勿再使用“call web_center(0)”；
'	   var4 : 此参数值保留
'	   var5 : 此参数值保留
'================================================
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)
  online_num=0
  new_num=0
  today_tim=joekoe_cms.time_type(joekoe_cms.now_time,4)
  stamp_num=format_mid_num(1)  
'-------------------------------------------------------------------------
  web_config=application(joekoe_cms.web_cookies&"_web_config")
  if not isarray(web_config) 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,bbs_lday 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,bbs_lday) 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)",0)
      set rs=joekoe_cms.exec(sql,1)
    end if
    application(joekoe_cms.web_cookies&"_configs_counter")=rs(9)
    web_config=rs.getrows()
    rs.close
    application(joekoe_cms.web_cookies&"_web_config")=web_config
  end if
  num_topic=web_config(1,0)
  num_data=web_config(2,0)
  num_reg=web_config(3,0)
  new_username=web_config(4,0)
  total_counter=application(joekoe_cms.web_cookies&"_configs_counter")
  max_online=web_config(10,0)
  max_tim=web_config(11,0)
  start_tim=web_config(12,0)
  new_num=web_config(13,0)
  bbs_lday=web_config(15,0)
  if cstr(joekoe_cms.time_type(web_config(14,0),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
    dim tmpnum
    forum_online=int(request.querystring("forum_id"))
    if datediff("s",application(joekoe_cms.web_cookies&"_web_new_time"),joekoe_cms.now_time)>dim_num(38)*60 then
      application(joekoe_cms.web_cookies&"_web_new_time")=joekoe_cms.now_time
      if joekoe_cms.web_vt=1 then
        sql="delete from user_login where datediff(mi,l_tim_end,'"&joekoe_cms.now_time&"')>"&dim_num(2)
      else
        sql="delete from user_login where datediff('s',l_tim_end,'"&joekoe_cms.now_time&"')>"&dim_num(2)&"*60"
      end if
        call joekoe_cms.exec("",-1)
        conn.execute sql,tmpnum
    end if
    if tmpnum>0 then call web_online()
    login_password=jk_decrypt(login_password)
    if symbol_name(login_username)=false or symbol_ok(login_password)=false then
      call cookies_clear(0)
    else
     if datediff("s",session("user_time"),joekoe_cms.now_time)>dim_num(38)*60 then
	   session("user_data")=empty
	   session("user_on")=""
	 end if 
     if NOT isarray(session("user_data")) then
       sql="select top 1 id,username,power,popedom,emoney,integral,last_tim,face,face_w,face_h,estate,otim,bbs_counter,lentim,lentimt 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
         rs(6)=joekoe_cms.now_time
         rs.update
         session("user_data")=rs.getrows()
       end if
       rs.close
       session("user_time")=joekoe_cms.now_time
      end if
      dim user_datas:user_datas=session("user_data")
        login_id=user_datas(0,0)
        login_username=user_datas(1,0)
        login_mode=user_datas(2,0)
        login_popedom=user_datas(3,0)
        login_emoney=user_datas(4,0)
        login_integral=user_datas(5,0)
        login_faces=user_datas(7,0)&"|"&user_datas(8,0)&"|"&user_datas(9,0)
        login_is_abate=user_datas(10,0)
        login_bbs_counter=user_datas(12,0)
        login_lentim=user_datas(13,0)
        login_lentimt=user_datas(14,0)
        if int(login_is_abate)>0 then
          if int(dateDiff("d",today_tim,user_datas(11,0)))<1 then login_is_abate=0
        end if
        erase user_datas
        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
    if is_refur_true=true then call time_load()
'---------------------------------完整型,用户和游客都进行识别,这里识别游客-------------------------------------
    if int(stamp_num)>1 and login_mode="" and cookies_true=true then
      if datediff("s",session("guest_time"),joekoe_cms.now_time)>dim_num(38)*60 then session("guest")=""
      if var_null(session("guest"))="" then
        if request.cookies(joekoe_cms.web_cookies)("guest_name")="" then
          ttt="游客"&Session.SessionID
        else
          ttt=request.cookies(joekoe_cms.web_cookies)("guest_name")
          ttt=joekoe_cms.code_html(ttt,1,0)
        end if
        session("guest")=ttt
        session("guest_time")=joekoe_cms.now_time
        response.cookies(joekoe_cms.web_cookies)("guest_name")=ttt
        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,l_forum_online) values('"&ttt&"',1,'"&left(tit,50)&"','"&joekoe_cms.now_time&"','"&joekoe_cms.now_time&"','"&user_ip&"','"&user_sys&"',"&forum_online&")",0)
          total_counter=total_counter+1
          call joekoe_cms.exec("update configs set counter=counter+1",0)
        end if
        rs.close
	    call web_online()
      else
        ttt=session("guest")
      end if
      call joekoe_cms.exec("update user_login set l_where='"&left(tit,50)&"',l_tim_end='"&joekoe_cms.now_time&"',l_forum_online="&forum_online&" where l_username='"&ttt&"'",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
'---------------------------------功能型,用户识别-------------------------------------
      if int(stamp_num)>0 and login_mode<>"" and cookies_true=true then
        login_msg=session("login_msg")
        if var_null(login_msg)="" or login_msg>0 or application(joekoe_cms.web_cookies&"_"&login_id)=login_id then
          application.contents.remove(joekoe_cms.web_cookies&"_"&login_id)
          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