⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 skin.asp

📁 ..不怎么明白。不知道这个市什么只想下个服务端
💻 ASP
📖 第 1 页 / 共 3 页
字号:
    end if
  end if
  
  sql="select count(l_id) from user_login"
  set rs=joekoe_cms.exec(sql,1)
  online_num=rs(0)
  rs.close
  if int(online_num)>application(joekoe_cms.web_cookies&"_configs_max_online") then
    application.lock
    application(joekoe_cms.web_cookies&"_configs_max_online")=online_num
    application(joekoe_cms.web_cookies&"_configs_max_tim")=joekoe_cms.now_time
    application.unlock
    call joekoe_cms.exec("update configs set max_online="&online_num&",max_tim='"&joekoe_cms.now_time&"'",0)
  end if
  if int(total_counter)>application(joekoe_cms.web_cookies&"_configs_counter") then
    application.lock
    application(joekoe_cms.web_cookies&"_configs_counter")=total_counter
    application.unlock
    call joekoe_cms.exec("update configs set counter="&total_counter,0)
  end if
  
  if page_power<>"" and instr("."&page_power&".","."&login_modep&".")<1 then call web_error("power")
  select case var1
  case 1
    if int(format_mid_num(8))=1 and login_mode="" then call my_login()
  case 2
    if login_mode="" then call my_login()
  end select
  if var2=1 and login_mode<>"" then
    if popedom_p(41)=1 then call web_error("locked")
  end if
  if var3=5 then exit sub
  call web_js()
  response.write vbcrlf&"<body topmargin=0 leftmargin=0 onselectstart =""return false"" onselect=""document.selection.empty()"">" 
  if var3=4 then exit sub
  %>
<table width="912" border="0" align="center" cellpadding="0" cellspacing="0" background="/skin/aouoo_skin/index/top_bar_02.jpg">
<tr><td width="20"><img src="/skin/aouoo_skin/index/top_bar_01.jpg" width="20" height="35" /></td>
<td><IMG height=12 src="/skin/aouoo_skin/index/top_home.gif" width=13> <A onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.Gm36.Cn/')" href="#"><font color="#FFFFFF">设为首页</font></A>&nbsp;&nbsp;<IMG height=12 src="/skin/aouoo_skin/index/top_gift.gif" width=13>&nbsp;<font color="#FFFFFF">合法诚信<img height="12" src="/skin/aouoo_skin/index/top_gift.gif" width="13" /><a href="http://www.Gm36.Cn/" target="_blank"><font color="#FFFFFF">时代数据</font></a></font></td>
<td width="20"><img src="/skin/aouoo_skin/index/top_bar_03.jpg" width="20" height="35" /></td></tr></table>
<table width="912" border="0" align="center" cellpadding="0" cellspacing="0"><tr><td width="324"><script type='text/javascript'>showFlashObject("showfla", "/skin/aouoo_skin/index/logo.swf", "324", "107", "high", "", "");</script></td><td><img src="/skin/aouoo_skin/index/top_head_r.jpg" width="588" height="107" /></td></tr></table>
<table width="912" height="32" border="0" align="center" cellpadding="0" cellspacing="0" background="/skin/aouoo_skin/index/menu_bg.jpg"><tr><td width="133"><a href="/"><img src="/skin/aouoo_skin/index/menu_home.jpg" width="133" height="32" border="0" /></a></td><td align="center" valign="bottom"><table width="100%" border="0" cellspacing="0" cellpadding="0" height="28"><tr align="center"><td><a href="/shop/toogs.asp" class="d">版本商城</a></td><td><img src="/skin/aouoo_skin/index/menu_line.jpg" width="2" height="17" /></td><td><a href="/host/server.asp" class="d">主机租用</a></td><td><img src="/skin/aouoo_skin/index/menu_line.jpg" width="2" height="17" /></td><td><a href="/host/host.asp" class="d">虚拟主机</a></td><td><img src="/skin/aouoo_skin/index/menu_line.jpg" width="2" height="17" /></td><td><a href="/host/domain.asp" class="d">域名注册</a></td><td><img src="/skin/aouoo_skin/index/menu_line.jpg" width="2" height="17" /></td><td><a href="/shop/website.asp" class="d">网站建设</a></td><td><img src="/skin/aouoo_skin/index/menu_line.jpg" width="2" height="17" /></td><td><a href="/shop/agency.asp" class="d">广告代理</a></td><td><img src="/skin/aouoo_skin/index/menu_line.jpg" width="2" height="17" /></td><td><a href="/article/article.asp" class="d">技术文章</a></td><td><img src="/skin/aouoo_skin/index/menu_line.jpg" width="2" height="17" /></td><td><a href="/down/down.asp" class="d">软件下载</a></td><td><img src="/skin/aouoo_skin/index/menu_line.jpg" width="2" height="17" /></td><td><a href="/support/Series.asp" class="d">私服一条龙</a></td></tr></table></td><td width="80"><a href="/support/remiog.asp"><img src="/skin/aouoo_skin/index/menu_r.jpg" width="80" height="32" border="0" /></a></td></tr></table><table width="912" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"><tr><td width="9"><img src="/skin/aouoo_skin/index/menu_bar_l.jpg" width="9" height="14" /></td><td align="right" background="/skin/aouoo_skin/index/menu_bar_c.jpg"></td><td width="339" align="right" background="/skin/aouoo_skin/index/menu_bar_c.jpg"><img src="/skin/aouoo_skin/index/menu_bar_r.jpg" width="7" height="14" /></td></tr><tr><td height="28">&nbsp;</td><td>现在是: <script language=JavaScript><!--
var enabled = 0; today = new Date();
var day; var date;
if(today.getDay()==0) day = "星期日 "
if(today.getDay()==1) day = "星期一 "
if(today.getDay()==2) day = "星期二 "
if(today.getDay()==3) day = "星期三 "
if(today.getDay()==4) day = "星期四 "
if(today.getDay()==5) day = "星期五 "
if(today.getDay()==6) day = "星期六 "
document.fgColor = " FF0072";
date1 =(today.getYear()) + "年" + (today.getMonth() + 1 ) + "月" + today.getDate() + "日 " ;
date2 = day ;
document.write(date1);
document.write(date2);
document.write("<span id='clock'></span>");
var now,hours,minutes,seconds,timeValue;
function showtime(){
now = new Date();
hours = now.getHours();
minutes = now.getMinutes();
seconds = now.getSeconds();
timeValue = (hours >= 12) ? "下午" : "上午";
timeValue += hours+ ":";
timeValue += ((minutes < 10) ? "0" : "") + minutes + ":";
timeValue += ((seconds < 10) ? "0" : "") + seconds + "";
clock.innerHTML = timeValue;
setTimeout("showtime()",100);
}
showtime();
-->
</script><%response.write "&nbsp;&nbsp;您现在位于:&nbsp;首页&nbsp;→&nbsp;"
  if tit_fir="" then
    response.write "<font title='"&joekoe_cms.code_html(tit,1,0)&"'>"&joekoe_cms.code_html(tit,1,30)&"</font>"
  else
    response.write ""&tit_fir&""
  end if%></td><td><table width="98%" border="0" cellspacing="0" cellpadding="0"><tr><td align="right"><%response.write "<marquee scrolldelay=100 scrollamount=3 onMouseOut='if (document.all!=null){this.start()}' onMouseOver='if (document.all!=null){this.stop()}'>"&scroll_head&"</marquee>"%></td></tr></table></td></tr></table><%end sub

function popedom_p(popedom_n)
  if cint(popedom_n)>len(login_popedom) or len(login_popedom)<>50 then
    popedom_p=0
    exit function
  end if
  popedom_p=int(mid(login_popedom,popedom_n,1))
end function

function web_left(lt)
  select case cint(lt)
  case 1
    web_left="<table border=0 width='100%' cellspacing=0 cellpadding=0><tr valign=top align=center><td width="&web_left_wid&" height="&web_center_height&" class=bg_left>"
  case 2
    web_left="<table border=0 width='100%' cellspacing=0 cellpadding=0><tr><td align=center class=bg_1>"
  case 3
    web_left="<table border=0 width='100%' cellspacing=0 cellpadding=0><tr><td height="&web_center_height&" align=center class=bg_1>"
  case else
    web_left="<table border=0 width='100%' cellspacing=0 cellpadding=0><tr valign=top align=center><td width="&web_left_wid&" class=bg_left>"
  end select
  web_left=lefter&web_left
end function

sub web_center(ct)
  response.write "</td>"
  response.write "<td width=1 background='"&joekoe_cms.web_dir_skin&"bg_c.gif'></td>"
  response.write "<td wdith=*>"
end sub

function web_right()
  web_right=vbcrlf&"</td></tr></table>"&righter
end function

sub web_end(var1,var2)
  if var2=0 then 
  response.Write "<table width='912' height='120' border='0' align='center' cellpadding='0' cellspacing='0' background='/skin/aouoo_skin/index/bottom_bg.gif'><tr><td width='146'><img src='/skin/aouoo_skin/index/bottom_logo.jpg' width='146' height='120' /></td><td width=620><TABLE cellSpacing=0 cellPadding=0 width='620' align=center><TR><TD align=center class='fbg'><table width='300' border='0' align='center' cellpadding='0' cellspacing='0'><tr align='center' class='fbg'><td><A href='/host/server.asp' class='d'>主机租用</A></td><td></td><td><A href='/shop/toogs.asp' class='d'>版本销售</A></td><td></td><td><A href='/shop/website.asp' class='d'>整站制作</A></td><td></td><td><A href='/host/host.asp' class='d'>虚拟主机</A></td><td></td><td><a href='/host/domain.asp' class='d'>域名注册</a></td></tr></table>业务咨询:<A href='http://wpa.qq.com/msgrd?V=1&amp;Uin=30241205&amp;Site=时代数据&amp;Menu=yes' target=blank><IMG src='/skin/aouoo_skin/index/qq.gif' border=0></A> 售前咨询:<A href='http://wpa.qq.com/msgrd?V=1&amp;Uin=30241205&amp;Site=时代数据&amp;Menu=yes' target=blank><IMG src='/skin/aouoo_skin/index/qq.gif' border=0></A> 售后咨询:<A href='http://wpa.qq.com/msgrd?V=1&amp;Uin=42455323&amp;Site=时代数据&amp;Menu=yes' target=blank><IMG src='/skin/aouoo_skin/index/qq.gif' border=0></A> 广告代理:<A href='http://wpa.qq.com/msgrd?V=1&amp;Uin=76275642&amp;Site=时代数据&amp;Menu=yes' target=blank><IMG src='/skin/aouoo_skin/index/qq.gif' border=0></A> 技术支持:<A href='http://wpa.qq.com/msgrd?V=1&amp;Uin=569277187&amp;Site=时代数据&amp;Menu=yes' target=blank><IMG src='/skin/aouoo_skin/index/qq.gif' border=0></A><BR>热线电话:0594-6998261 技术故障:13860949450 咨询QQ:30241205<BR>版权所有:Copyright 2005-2006 时代数据 [ www.Gm36.Cn ] All Rights Reserved.<BR>建议使用:1024*768 分辨率 苏ICP备06025073号<script src='http://s61.cnzz.com/stat.php?id=249446&web_id=249446&show=pic1' language='JavaScript' charset='gb2312'></script></TD></TR></TABLE></td><td width='146' align='right'><img src='/skin/aouoo_skin/index/bottom_r.gif' width='12' height='120' /></td></tr></table></body></html>"
  end if
  call web_clears(1)
end sub

sub web_branch(jst)
  response.buffer
end sub

sub web_js_type(jtt)
  if joekoe_cms.js_mod then exit sub
  response.write joekoe_cms.js_type("",jtt)
end sub

sub web_js_msg(msg_type,msg_var,msg_url)
  call cookies_load()
  if msg_type=0 then
    response.write "alert("""&msg_var&""");location.href="""&msg_url&""";"
    exit sub
  end if
  response.write joekoe_cms.js_put("alert("""&msg_var&""");location.href="""&msg_url&""";",1)
end sub

sub cookies_load()
  response.cookies(joekoe_cms.web_cookies)("time_load")=dateadd("s",-5,joekoe_cms.now_time)
end sub

sub cookies_clear(tl)
  if tl=1 then call cookies_load()
  response.cookies(joekoe_cms.web_cookies)("login_username")=""
  response.cookies(joekoe_cms.web_cookies)("login_password")=""
  response.cookies(joekoe_cms.web_cookies)("login_id")=""
  login_mode=""
  login_username=""
  login_password=""
end sub

sub my_login()
  if login_mode<>"" then exit sub
  dim temp1
  temp1=trim(request.serverVariables("url"))&"?"&trim(request.serverVariables("QUERY_STRING"))
  temp1=server.urlencode(temp1)
  response.cookies(joekoe_cms.web_cookies)("time_load")=DateAdd("s",-5,joekoe_cms.now_time)
  response.cookies(joekoe_cms.web_cookies)("login_username")=""
  response.cookies(joekoe_cms.web_cookies)("login_password")=""
  response.cookies(joekoe_cms.web_cookies)("login_id")=""
  response.cookies(joekoe_cms.web_cookies)("iscookies")=""
  call format_redirect("../user/user_login.asp?old_url="&temp1)
end sub

function format_menu(mvar)
  dim i
  format_menu=""
  for i=0 to ubound(dim_menu)
    if mvar=left(dim_menu(i),instr(dim_menu(i),":")-1) then
      format_menu=right(dim_menu(i),len(dim_menu(i))-instr(dim_menu(i),":"))
      exit for
    end if
  next
end function

sub skin_load()
  dim n_skin,n_wid
  n_skin=trim(request.cookies(joekoe_cms.web_cookies)("skin_var"))
  n_wid=trim(request.cookies(joekoe_cms.web_cookies)("skin_wid"))
  if n_skin<>"" and n_wid<>"" then
    joekoe_cms.web_skin=n_skin
    skin_dir=joekoe_cms.web_dir&"skin/"&n_skin&"/"
    joekoe_cms.web_dir_skin=skin_dir
    if web_width="" then web_width=n_wid
  else
    web_width=web_dim(8)
  end if
end sub

sub format_redirect(r_url)
  call web_clears(0)
  response.clear
  response.redirect r_url
  response.end
end sub

sub web_clears(c_end)
  erase dim_menu
  call web_clear(c_end)
end sub

sub web_js()
  response.write joekoe_cms.js_put(joekoe_cms.web_dir&"style/functions.js",0)
  response.write joekoe_cms.js_put(joekoe_cms.web_dir&"style/mouse_on_title.js",0)
end sub

sub web_is_open()
  if web_dim(0)=0 then
    response.clear
    call web_head_tit()
    call web_no_open()
    call web_clear(1)
  end if
end sub

sub web_ip_shield()
  dim tmp
  tmp=true
  if web_dim(22)="" or user_ip="" then exit sub
  dim sdim,snum
  sdim=split(web_dim(22),"|")
  snum=ubound(sdim)

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -