skin.asp

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

  for i=0 to snum
    if instr("$"&user_ip&".","$"&sdim(i)&".")>0 then
      erase sdim
      response.clear
      call web_head_tit()
      call web_no_ip()
      call web_clear(1)
    end if
  next
  erase sdim
end sub

sub web_error(etype)
  response.clear
  response.cookies(joekoe_cms.web_cookies)("time_load")=DateAdd("s",-5,joekoe_cms.now_time)
  response.cookies(joekoe_cms.web_cookies)("old_url")=request.servervariables("http_referer")
  response.cookies(joekoe_cms.web_cookies)("error_action")=etype
  call format_redirect("../common/error.asp")
end sub

sub user_login()
end sub

sub time_load()
  dim tim_s,var_s
  tim_s=int(dim_num(3))
  if int(tim_s)<1 then exit sub
  if login_mode=format_power2(1,1) then exit sub
  var_s=request.cookies(joekoe_cms.web_cookies)("time_load")
  if isdate(var_s) then
    if int(datediff("s",var_s,joekoe_cms.now_time))<=int(tim_s) then
      call web_error("time_load")
      exit sub
    end if
  end if
  response.cookies(joekoe_cms.web_cookies)("time_load")=joekoe_cms.now_time
end sub

sub time_lock()
  dim tt,tim1,tim2,nh,tl:tl=0
  tt=web_dim(10)
  if len(tt)<1 then tt="0:0"
  tim1=left(tt,instr(1,tt,":")-1)
  tim2=right(tt,len(tt)-instr(1,tt,":"))
  if not(isnumeric(tim1)) or not(isnumeric(tim2)) then exit sub
  tim1=int(tim1):tim2=int(tim2)
  if tim1=tim2 then exit sub
  if tim2=0 then tim2=24
  tim2=tim2-1
  nh=int(hour(joekoe_cms.now_time))
  if tim1>tim2 then
    if (nh>=tim1 and nh<=24) or (nh>=0 and nh<=tim2) then tl=1
  else
    if nh>=tim1 and nh<=tim2 then tl=1
  end if
  if tl=1 then
    call web_error("time_lock")
  end if
end sub

function frm_chk()
  frm_chk=false
  if trim(request.form("chk"))="yes" then
    frm_chk=joekoe_cms.post_chk()
  end if
end function

function post_tim()
  dim pt_var,pt_num
  post_tim=true
  pt_var=session("post_tim")
  if isdate(pt_var) then
    pt_num=datediff("s",pt_var,joekoe_cms.now_time)
    if int(dim_num(28))>0 and int(pt_num)<=int(dim_num(28)) then
      post_tim=false
    end if
  end if
  session("post_tim")=joekoe_cms.now_time
end function

function pic_url(pvar,pt)
  dim temp1,pic_var
  pic_var=pvar
  if pic_var="" then
    pic_var=joekoe_cms.web_dir&joekoe_cms.web_upload&"no_pic.gif"
  else
    if instr(pic_var,"://")<1 then
      pic_var=joekoe_cms.web_dir&joekoe_cms.web_upload&pic_var
    end if
  end if
  select case int(pt)
  case 1
    temp1="<img border=0 width="&pic_w&" height="&pic_h&" src='" & pic_var & "'>"
  case 2
    temp1="<img border=0 width="&(pic_w*1.5)&" height="&(pic_h*1.5)&" src='" & pic_var & "'>"
  case 3
    temp1="<img border=0 src='" & pic_var & "'>"
  case 4
     temp1="<img border=0 width="&(pic_w*0.7)&" height="&(pic_h*0.7)&" src='" & pic_var & "'>"
  case 5
     temp1="<img border=0 width="&(pic_w*0.5)&" height="&(pic_h*0.5)&" src='" & pic_var & "'>"
  case 8
    temp1="<img border=0 width="&(pic_w*1.2)&" height="&(pic_h*1.2)&" src='" & pic_var & "'>"
  case else
    temp1=pic_var
  end select
  pic_url=temp1
end function

function pic_fk(pvar,pt,purl)
  dim burl,picurl,temp1
  burl=joekoe_cms.web_dir&"images/fk/"
  picurl=pic_url(pvar,pt)
  if purl<>"" and var_null(purl)<>"" then picurl="<a href='"&purl&"' target=_blank>"&picurl&"</a>"
  temp1=temp1&vbcrlf&"<table border=0 cellpadding=0 cellspacing=0>" & _
              vbcrlf&"<tr><td colspan=3 width='100%' align=center>" & _
              vbcrlf&"  <table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
              vbcrlf&"  <tr height=4>" & _
              vbcrlf&"  <td width=7><img src='"&burl&"fk_top_left.gif' width=7 height=4 border=0></td>" & _
              vbcrlf&"  <td background='"&burl&"fk_top_bg.gif' width='*'><img src='"&burl&"fk_top_bg.gif' border=0 height=4></td>" & _
              vbcrlf&"  <td width=7 align=right><img src='"&burl&"fk_top_right.gif' border=0 width=7 height=4></td>" & _
              vbcrlf&"  </tr>" & _
              vbcrlf&"  </table>" & _
              vbcrlf&"</td></tr>" & _
              vbcrlf&"<tr><td colspan=3 width='100%' align=center>" & _
              vbcrlf&"  <table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
              vbcrlf&"  <tr>" & _
              vbcrlf&"  <td width=4 height='100%'>" & _
              vbcrlf&"    <table border=0 cellpadding=0 cellspacing=0 width='100%' height='100%'>" & _
              vbcrlf&"    <tr><td height=4><img src='"&burl&"fk_left_top.gif' border=0 width=4></td></tr>" & _
              vbcrlf&"    <tr><td background='"&burl&"fk_left_bg.gif'></td></tr>" & _
              vbcrlf&"    <tr><td height=4 valign=bottom><img src='"&burl&"fk_left_end.gif' border=0 width=4></td></tr>" & _
              vbcrlf&"    </table>" & _
              vbcrlf&"  </td>" & _
              vbcrlf&"  <td align=center width=*>"&picurl&"</td>" & _
              vbcrlf&"  <td width=4 height='100%'>" & _
              vbcrlf&"    <table border=0 cellpadding=0 cellspacing=0 width='100%' height='100%'>" & _
              vbcrlf&"    <tr><td height=4><img src='"&burl&"fk_right_top.gif' border=0 width=4></td></tr>" & _
              vbcrlf&"    <tr><td background='"&burl&"fk_right_bg.gif'></td></tr>" & _
              vbcrlf&"    <tr><td height=4 valign=bottom><img src='"&burl&"fk_right_end.gif' border=0 width=4></td></tr>" & _
              vbcrlf&"    </table>" & _
              vbcrlf&"  </td>" & _
              vbcrlf&"  </tr>" & _
              vbcrlf&"  </table>" & _
              vbcrlf&"</td></tr>" & _
              vbcrlf&"<tr><td colspan=3 width='100%' align=center>" & _
              vbcrlf&"  <table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
              vbcrlf&"  <tr height=4>" & _
              vbcrlf&"  <td width=7><img src='"&burl&"fk_end_left.gif' width=7 height=4 border=0></td>" & _
              vbcrlf&"  <td background='"&burl&"fk_end_bg.gif' width='*'><img src='"&burl&"fk_end_bg.gif' border=0 height=4></td>" & _
              vbcrlf&"  <td width=7 align=right><img src='"&burl&"fk_end_right.gif' border=0 width=7 height=4></td>" & _
              vbcrlf&"  </tr>" & _
              vbcrlf&"  </table>" & _
              vbcrlf&"</td></tr>" & _
              vbcrlf&"</table>"
  pic_fk=temp1
end function

function format_topic_type(b_jt,b_username,b_topic,b_c_num,b_url,b_tim,b_counter,b_ispic,b_tit,b_count,b_tim_type)
  dim n_img,tim_type,n_c_num,temp1
  n_c_num=b_c_num
  if b_ispic=true then
    n_img="&nbsp;·"
    n_c_num=n_c_num-2
  end if
  if int(b_tim_type)>0 then
    if int(b_tim_type)=2 then tim_type=tim_type&"</td><td align=right>"
    tim_type=tim_type&"&nbsp;<font class=tims>"&mid(b_tim,6,5)&"</font>"
  end if
  temp1="<tr><td height=20><font color='#999999'>·</font>&nbsp;<a href='"&b_url&"' alt='"&b_tit&"："&joekoe_cms.code_html(b_topic,1,0)&"<br>发 布 人："&b_username&"<br>"&b_count&"："&b_counter&" 人次<br>整理时间："&b_tim&"' target=_blank>"&joekoe_cms.code_html(b_topic,1,n_c_num)&"</a>"&tim_type&"</td></tr><tr><td colspan=2 height=1 bgcolor='#DCDCDC'></td></tr>"
  format_topic_type=temp1
end function

function format_pic_type(b_pic,b_topic,b_c_num,b_url)
  dim temp1
  temp1=temp1&vbcrlf&"<table border=0>" & _
              vbcrlf&"<tr><td align=center>"&pic_fk(b_pic,1,b_url)&"</td></tr>" & _
              vbcrlf&"<tr><td align=center><a href='"&b_url&"' title='"&joekoe_cms.code_html(b_topic,1,0)&"'>"&joekoe_cms.code_html(b_topic,1,b_c_num)&"</a></td></tr>" & _
              vbcrlf&"</table>"
  format_pic_type=temp1
end function

sub cms_copyright()
  response.write vbcrlf&"<table cellspacing=1 cellpadding=2 class=table>" & _
                 vbcrlf&"<tr><td class=bg_tds align=center height=30><a href='"&joekoe_cms.web_url&"' target=_blank>"&joekoe_cms.web_name&"</a>　<a href='/' class=gray>"&joekoe_cms.pro_edtion&"</a>　<a href='javascript:window.close();'>关闭窗口</a></td></tr>" & _
                 vbcrlf&"</table>"
end sub

sub web_no_open()
  response.write vbcrlf&"<body topmargin=0 leftmargin=0>" & _
                 vbcrlf&"<table border=0 width='100%' height='100%' class=bg>" & _
                 vbcrlf&"<tr><td width='100%' height='100%' valign=top>" & _
                 vbcrlf&"  <table border=0 cellpadding=8 cellspacing=8>" & _
                 vbcrlf&"  <tr><td class=htd><a href='"&joekoe_cms.web_url&"'>"&joekoe_cms.web_name&"</a><br><a href='"&joekoe_cms.web_url&"'>"&joekoe_cms.web_url&"</a></td></tr>" & _
                 vbcrlf&"  <tr><td class=htd><font class=red>站点维护中，请稍候再访问本站……</font><br>欢迎您的再次访问！<br><br><a href='admin.asp'>管理员登陆</a></td></tr>" & _
                 vbcrlf&"  <tr><td><a href='mailto:"&joekoe_cms.web_email&"'>邮件联系我们</a></td></tr>" & _
                 vbcrlf&"  </table>" & _
                 vbcrlf&"</td></tr>" & _
                 vbcrlf&"</table>"
end sub

sub web_no_ip()
  response.write vbcrlf&"<body topmargin=0 leftmargin=0>" & _
                 vbcrlf&"<table border=0 width='100%' height='100%' class=bg>" & _
                 vbcrlf&"<tr><td width='100%' height='100%' valign=top>" & _
                 vbcrlf&"  <table border=0 cellpadding=8 cellspacing=8>" & _
                 vbcrlf&"  <tr><td class=htd><a href='"&joekoe_cms.web_url&"'>"&joekoe_cms.web_name&"</a><br><a href='"&joekoe_cms.web_url&"'>"&joekoe_cms.web_url&"</a></td></tr>" & _
                 vbcrlf&"  <tr><td class=htd><font class=red>真对不起！</font><br><font class=red2><b>您目前已被本站列入不受欢迎名单！</b></font></td></tr>" & _
                 vbcrlf&"  <tr><td><a href='mailto:"&joekoe_cms.web_email&"'>邮件联系我们</a></td></tr>" & _
                 vbcrlf&"  </table>" & _
                 vbcrlf&"</td></tr>" & _
                 vbcrlf&"</table>"
end sub

'****************************************************
' Web: http://www.aouoo.com , http://www.aouoo.net
' Copyright (C) 2007 Aouoo.com All Rights Reserved.
'****************************************************
%>