<!-- #include file="include/admin_onlogin.asp" -->
<!-- #include file="include/admin_menu_type.asp" -->
<%

select case action
case "left"
  call admin_left()
  call admin_ender2(1)
case "main"
  call admin_main()
  call admin_ender(1)
case "top"
  call admin_top()
  call admin_ender2(0)
case else
  call admin_frame()
  call admin_ender2(1)
end select

sub admin_ender2(et)
  response.write vbcrlf&"</table>" & _
		 vbcrlf&"</center>"
  if et=1 then response.write ukong
  response.write vbcrlf&"<!--本页面执行时间："&FormatNumber((timer()-joekoe_cms.timer_start)*1000,3)&"毫秒-->" & _
		 vbcrlf&"</body></html>"
  call web_clear(0)
end sub

sub admin_main()
  call admin_title(1)
  dim burl,fso,obj,obj2,tmp1,tmp2,now_online,sum_pay
  burl="?"&trim(request.querystring())
  if burl<>"?" then burl=burl&"&"
  call admin_td("网站统计信息")
  sql="select count(l_id) from user_login"
  set rs=joekoe_cms.exec(sql,1)
  now_online=rs(0)
  rs.close
  if not joekoe_cms.int_true(now_online) then now_online=0
  sql="select top 1 * from configs where id=1"
  set rs=joekoe_cms.exec(sql,1)
  if rs.eof then
    sql="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,0,0,0,'',0,0,0,0,0,0,'"&joekoe_cms.now_time&"','"&joekoe_cms.time_type(joekoe_cms.now_time,5)&"',0,'"&joekoe_cms.time_type(joekoe_cms.now_time,4)&"')"
    call joekoe_cms.exec(sql,0)
    sql="select top 1 * from configs where id=1"
    set rs=joekoe_cms.exec(sql,1)
  end if
%>
<tr>
<td width='20%'>网站基本信息：</td>
<td width='80%'><font class=red><%response.write rs("num_product")%></font> 个商品，<font class=red><%response.write rs("num_news")%></font> 条新闻，<font class=red><%response.write rs("num_article")%></font> 篇文章，<font class=red><%response.write rs("num_down")%></font> 个软件，<font class=red><%response.write rs("num_reg")%></font> 位用户，最新注册 <%response.write format_user_view(rs("new_username"),1,0)%></td>
</tr>
<tr>
<td></td>
<td>论坛主题总数 <font class=red><%response.write rs("num_topic")%></font> 贴，论坛贴子总数 <font class=red><%response.write rs("num_data")%></font> 贴，今日论坛贴数 <font class=red><%response.write rs("num_new")%></font> 贴，当前 <font class=red><%response.write now_online%></font> 人在线</td>
</tr>
<tr>
<td>网站统计信息：</td>
<td>网站自 <font class=blue><%response.write rs("start_tim")%></font> 起，总访问量 <font class=red><%response.write rs("counter")%></font> 人次，最高峰同时 <font class=red><%response.write rs("max_online")%></font> 人在线（发生在<font class=blue><%response.write rs("max_tim")%></font>）</td>
</tr>
<%if trim(request.querystring("error"))="popedom" then%>
<tr><td colspan=2 height=30 align=center><font class=red2>您可能没有相关的后台管理权限！！！</font></td></tr>
<%end if%>
</table>
<%
  rs.close
  response.write ukong

  response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>"
  call admin_td("网站快捷管理操作")
%>
<tr class=tr1>
<td width='20%'>网站用户搜索：</td>
<td width='80%'>
  <table border=0 cellspacing=0 cellpadding=2>
  <form action='admin_user.asp' method=get>
  <input type=hidden name=jk_mod value='search'>
  <tr class=tr1>
  <td>关键字：</td>
  <td><input type=text name=keyword value='' size=20 maxlength=20></td>
  <td width=5></td>
  <td><select name=sea_type>
  <option value='username'>按用户名</option>
  <option value='email'>按用户邮件</option>
  <option value='nname'>按用户头衔</option>
  </select></td>
  <td width=5></td>
  <td><input type=submit value='搜索用户'></td>
  <td width=10></td>
  <td><%response.write img_admin("","")%>&nbsp;<a href='admin_user.asp'>用户管理</a></td>
  </tr>
  </form>
  </table>
</td>
</tr>
<tr class=tr1>
<td>商城订单搜索：</td>
<td>
  <table border=0 cellspacing=0 cellpadding=2>
  <form action='admin_shop_order.asp' method=get>
  <input type=hidden name=jk_mod value='search'>
  <tr class=tr1>
  <td>关键字：</td>
  <td><input type=text name=keyword value='' size=20 maxlength=20></td>
  <td width=5></td>
  <td><select name=sea_type>
  <option value='ordernum'>按订单号</option>
  <option value='username'>按注册用户</option>
  <option value='nname'>按真实姓名</option>
  </select></td>
  <td width=5></td>
  <td><input type=submit value='搜索订单'></td>
  <td width=10></td>
  <td><%response.write img_admin("","")%>&nbsp;<a href='admin_shop_order.asp'>订单管理</a></td>
  </tr>
  </form>
  </table>
</td>
</tr>
<tr>
<td>快捷管理链接：</td>
<td>
  <table border=0 cellspacing=0 cellpadding=2>
  <tr>
  <td><%response.write img_admin("","")%>&nbsp;<a href='admin_data.asp'>数据更新</a></td>
  <td>&nbsp;<%response.write img_admin("","")%>&nbsp;<a href='admin_ads.asp'>广告管理</a></td>
  <td>&nbsp;<%response.write img_admin("","")%>&nbsp;<a href='admin_review.asp'>评论管理</a></td>
  <td>&nbsp;<%response.write img_admin("","")%>&nbsp;<a href='admins_sql.asp'>执行SQL</a></td>
  <td>&nbsp;<%response.write img_admin("","")%>&nbsp;<a href='admins_config_edit.asp' class=red2>配置管理</a></td>
  <td>&nbsp;<%response.write img_admin("","")%>&nbsp;<a href='admins_config_skin.asp' class=red>模板管理</a></td>
  <td>&nbsp;<%response.write img_admin("","")%>&nbsp;<a href='admins_event.asp'>管理日记</a></td>
  </tr>
  </table>
</td>
</tr>
<%
  sql="select sum(e_amount) from notes_emoney where e_ispay=1"
  set rs=joekoe_cms.exec(sql,1)
  sum_pay=rs(0)
  rs.close
  if not isnumeric(sum_pay) then sum_pay=0
%>
<tr>
<td>消费记录管理：</td>
<td>
  <table border=0>
  <tr>
<% if cstr(login_username)=cstr(web_dim(3)) then %>
  <td><%response.write img_admin("s_emoney","")%>&nbsp;总支付金额：<font class=red><%response.write sum_pay%></font>&nbsp;元</td>
  <td width=5></td>
<% end if %>
  <td><%response.write img_admin("","")%>&nbsp;<a href='admin_notes.asp'>消费记录</a></td>
  <td width=5></td>
  <td><%response.write img_admin("s_imp","")%>&nbsp;<a href='admin_notes.asp?jk_mod=emoney&action=ispay'>已支付购买</a></td>
  <td width=5></td>
  <td><%response.write img_admin("","")%>&nbsp;<a href='admin_notes.asp?jk_mod=emoney&action=nopay'>未支付购买</a></td>
  <td width=5></td>
  <td><%response.write img_admin("s_imp","")%>&nbsp;<a href='admin_notes.asp?jk_mod=prepay'>充值服务记录</a></td>
  </tr>
  </table>
</td>
</tr>
<%
  response.write vbcrlf&"</table>"
  response.write ukong
      
  response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>"
  call admin_td("系统当前配置情况")
  if trim(request.querystring("system_info"))="yes" then
%>
<table border=0 cellspacing=0 cellpadding=0 class=table3>
<tr align=center valign=top>
<td width='60%'>
  <table cellspacing=1 cellpadding=3 class=table0>
  <tr><td colspan=2 align=center class=tr1>服务器的有关参数</td></tr>
  <tr><td height=22 width='33%'>服务器名：</td><td width='77%'>&nbsp;<%response.write Request.ServerVariables("SERVER_NAME")%></td></tr>
  <tr><td height=22>服务器IP：</td><td>&nbsp;<%response.write Request.ServerVariables("LOCAL_ADDR")%></td></tr>
  <tr><td height=22>服务器端口：</td><td>&nbsp;<%response.write Request.ServerVariables("SERVER_PORT")%></td></tr>
  <tr><td height=22>服务器时间：</td><td>&nbsp;<%response.write now%></td></tr>
  <tr><td height=22>IIS版本：</td><td>&nbsp;<%response.write Request.ServerVariables("SERVER_SOFTWARE")%></td></tr>
  <tr><td height=22>服务器操作系统：</td><td>&nbsp;<%response.write Request.ServerVariables("OS")%></td></tr>
  <tr><td height=22>脚本超时时间：</td><td>&nbsp;<%response.write Server.ScriptTimeout%> 秒</td></tr>
  <tr><td height=22>站点物理路径：</td><td>&nbsp;<%response.write request.ServerVariables("APPL_PHYSICAL_PATH")%></td></tr>
  <tr><td height=22>服务器CPU数量：</td><td>&nbsp;<%response.write Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td></tr>
  <tr><td height=22>服务器解译引擎：</td><td>&nbsp;<%response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td></tr>
  </table>
</td>
<td width='40%'>
  <table cellspacing=1 cellpadding=3 class=table0>
  <tr><td colspan=2 align=center class=tr1>组件支持有关参数</td></tr>
  <tr><td height=22 width='60%'>ADO 数据对像：</td><td width='40%'>&nbsp;<%response.write admin_object_install("adodb.connection",1)%></td></tr>
  <tr><td height=22>FSO 文本文件读写：</td><td>&nbsp;<%response.write admin_object_install("scripting.filesystemobject",0)%></td></tr>
  <tr><td height=22>Stream 文件流：</td><td>&nbsp;<%response.write admin_object_install("Adodb.Stream",0)%></td></tr>
  <tr><td height=22>Jmail 邮件收发：</td><td>&nbsp;<%response.write admin_object_install("JMail.SMTPMail",1)%></td></tr>
  <tr><td height=22>ASPmail 发信：</td><td>&nbsp;<%response.write admin_object_install("SMTPsvg.Mailer",1)%></td></tr>
  <tr><td height=22>CDONTS 虚拟SMTP发信：</td><td>&nbsp;<%response.write admin_object_install("CDONTS.NewMail",1)%></td></tr>
  <tr><td height=22>LyfUpload 上传组件：</td><td>&nbsp;<%response.write admin_object_install("LyfUpload.UploadFile",1)%></td></tr>
  <tr><td height=22>AspUpload 上传组件：</td><td>&nbsp;<%response.write admin_object_install("Persits.Upload.1",1)%></td></tr>
  <tr><td height=22>SA-FileUp 上传组件：</td><td>&nbsp;<%response.write admin_object_install("SoftArtisans.FileUp",1)%></td></tr>
  <tr><td height=22>AspJpeg 图像处理组件：</td><td>&nbsp;<%response.write admin_object_install("Persits.Jpeg",1)%></td></tr>
  </table>
</td>
</tr>
</table>
<%
  else
    response.write vbcrlf&"<tr><td colspan=2 height=40>&nbsp;&nbsp;"&img_admin("s_imp","")&"&nbsp;<a href='"&burl&"system_info=yes#system_info'>点击查看系统当前配置情况</td></tr>"
  end if
  response.write ukong
  
  response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>"
  call admin_td("系统当前占用空间情况")
  dim s_system,s_images,s_data,s_ads,s_skin,s_style,s_upload,s_pro,s_other,sys_path,sys_num_folder,sys_num_file,sys_cdate
  if trim(request.querystring("filesystem_info"))="yes" then
    if object_install("scripting.filesystemobject") then
      on error resume next
      tmp1=server.mappath("./")
      set fso=server.createobject("scripting.filesystemobject")
      set obj=fso.getfolder(tmp1)
      s_system=obj.size
      sys_path=tmp1
      sys_num_folder=obj.subfolders.count
      sys_num_file=obj.files.count
      sys_cdate=obj.datecreated
      s_pro=0
      set obj2=obj.files
      for each tmp2 in obj2
        s_pro=s_pro+tmp2.size
      next
      set obj2=nothing
      set obj=nothing
      set obj=fso.getfolder(server.mappath("upload/"))
      s_upload=obj.size
      set obj=nothing
      if not fso.folderexists(tmp1&"upload") then s_system=s_system+s_upload
      set obj=fso.getfolder(server.mappath("data_jk/"))
      s_data=obj.size
      set obj=nothing
      set obj=fso.getfolder(server.mappath("images/"))
      s_images=obj.size
      set obj=nothing
      set obj=fso.getfolder(server.mappath("ads/"))
      s_ads=obj.size
      set obj=nothing
      set obj=fso.getfolder(server.mappath("skin/"))
      s_skin=obj.size
      set obj=nothing
      set obj=fso.getfolder(server.mappath("style/"))
      s_style=obj.size
      set obj=nothing
      set obj=fso.getfolder(server.mappath("include/"))
      s_pro=s_pro+obj.size
      set obj=nothing
      set fso=nothing
      s_other=s_system-s_data-s_images-s_ads-s_skin-s_style-s_upload-s_pro
      if err then err.clear
%>
<tr><td colspan=2>
<a name="filesystem_info"></a>
  <table border=0>
  <tr><td colspan=4><%response.write img_admin("s_imp","")%>&nbsp;<a alt='物理路径：<%response.write sys_path%><br>创建时间：<%response.write sys_cdate%>'>系统目录</a>占用空间总量为 <%response.write byte_size(s_system)%>，共有 <font class=red><%response.write sys_num_folder%></font> 个文件夹，<font class=red><%response.write sys_num_file%></font> 个文件，其中：</td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;系统程序占用空间：</td><td><%response.write byte_imgs(s_system,s_pro,1)%></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;数 据 库占用空间：</td><td><%response.write byte_imgs(s_system,s_data,2)%></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;系统图片占用空间：</td><td><%response.write byte_imgs(s_system,s_images,2)%></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;网站Skin占用空间：</td><td><%response.write byte_imgs(s_system,s_skin,3)%></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;广告数据占用空间：</td><td><%response.write byte_imgs(s_system,s_ads,4)%></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;ＪＳ文件占用空间：</td><td><%response.write byte_imgs(s_system,s_style,5)%></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;上传文件占用空间：</td><td><%response.write byte_imgs(s_system,s_upload,6)%></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;其它文件占用空间：</td><td><%response.write byte_imgs(s_system,s_other,7)%></td></tr>
  </table>
</td></tr>
<%
    else
      response.write vbcrlf&"<tr><td colspan=2 class=red height=40>&nbsp;&nbsp;"&img_admin("","")&"&nbsp;您的空间不支持 FSO 文本文件读写，因此不能进行此项检测！</td></tr>"
    end if
  else
    response.write vbcrlf&"<tr><td colspan=2 height=40>&nbsp;&nbsp;"&img_admin("s_imp","")&"&nbsp;<a href='"&burl&"filesystem_info=yes#filesystem_info'>点击查看系统当前占用空间情况</td></tr>"
  end if
  response.write ukong
  
  response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>"
  call admin_td("『白城天空』CMS 2006 版权、常用联系方法、技术支持")
%>
<tr>
<td width='20%'>产品开发及版权：</td>
<td width='80%'>版权所有 &copy; <a href='http://wwwg.6600.org' target=_blank>白城天空</a></td>
</tr>
<tr>
<td>官方支持网站：</td>
<td><a href='http://wwwg.6600.org' target=_blank>『白城天空』</a>&nbsp;&nbsp;&nbsp;<a href='http://wwwg.6600.org' target=_blank>http://wwwg.6600.org</a></td>
</tr>
<tr>
<td>业务联系方式：</td>
<td><%response.write img_admin("s_email","")%>&nbsp;ktttt@126.com&nbsp;&nbsp;<%response.write img_admin("s_qq","")%>&nbsp;<a href='http://wpa.qq.com/msgrd?V=1&Uin=112211111&Exe=QQ&Site=cc9c.35e.net&Menu=Yes' target=blank ><img src=' http://wpa.qq.com/pa?p=1:112211111:1' border=0></a></td>
</tr>
<tr>
<td>技术在线支持：</td>
<td><%response.write img_admin("s_url","")%>&nbsp; VIP 会员区&nbsp;&nbsp;<%response.write img_admin("s_qq","")%>&nbsp;<a href='http://wpa.qq.com/msgrd?V=1&Uin=112211111&Exe=QQ&Site=cc9c.35e.net&Menu=Yes' target=blank><img src=' http://wpa.qq.com/pa?p=1:112211111:3' border=0></a></td>
</tr>
<%
end sub

function byte_imgs(svar,bvar,bnum)
  dim tmp1
  tmp1=bvar/svar
  byte_imgs="<font class=tims>"&byte_size(bvar)&"</font>&nbsp;</td><td align=right><font class=tims>"&formatpercent(tmp1,2)&"</font>&nbsp;</td><td><img src='images/vote/vb"&bnum&".gif' border=0 width='"&formatnumber(360*tmp1,2)&"' height=10 align=absmiddle>"
end function

function byte_size(svar)
  dim temp1
  if svar>=1073741824 then
    temp1=int((svar/1073741824)*1000)/1000 & "</font> GB"
  elseif svar>=1048576 then
    temp1=int((svar/1048576)*1000)/1000 & "</font> MB"
  elseif svar>=1024 then
    temp1=int((svar/1024)*1000)/1000 & "</font> KB"
  else
    temp1=svar & "</font> B"
  end if
  byte_size="<font class=red>"&temp1
end function

function admin_object_install(obj,objver)
  on error resume next
  dim obj_jk,tmp1
  err=0
  set obj_jk=server.createobject(obj)
  if -2147221005=Err then
    err.clear
    admin_object_install="<font class=red><b>×</b></font>&nbsp;<font class=gray>不支持</font>"
  else
    tmp1=""
    if objver=1 then
      tmp1=obj_jk.version
      if var_null(tmp1)="" then tmp1=obj_jk.about
      tmp1=replace(tmp1,"Version","")
      tmp1=trim(tmp1)
      tmp1="&nbsp;<font class=tims><font class=blue>"&tmp1&"</font></font>"
    end if
    admin_object_install="<b>√</b>&nbsp;<font class=gray>支持</font>"&tmp1
  end if
  set obj_jk=nothing
  if -2147221005=Err then err.clear
end function

sub admin_left()
  call admin_title(0)
%>
<script language=javascript>
function re_load() { location.reload(); }
</script>
<base target=frame_main>
</head>
<script language=javascript>
<!--
function left_menu(meval)
{
  var left_n=eval(meval);
  if (left_n.style.display=="none")
  { eval(meval+".style.display='';"); }
  else
  { eval(meval+".style.display='none';"); }
}
//document.all.left_sys.style.display='';
//document.all.left_bm.style.display='none'
-->
</script>
<body topmargin=0 leftmargin=0>
<center>
  <table border=0 cellspacing=0 cellpadding=0><tr><td height=2></td></tr></table>
<%
  call menu_type()
  if cstr(login_username)=cstr(web_dim(3)) then
%>
 <table cellspacing=0 cellpadding=0 class=m_table>
  <tr>
  <td class=m_td width=4><img height=25 width=4 src="images/admin/menu_topleft.gif"></td>
  <td class=m_td width=* background="images/admin/menu_topbg.gif" align=center onclick="javascript:left_menu('left_jk');">◆ 核心管理 ◆</td>
  <td class=m_td width=4><img height=25 width=4 src="images/admin/menu_topright.gif"></td>
  </tr>
  <tr id=left_jk style="display:none;"><td class=m_tr colspan=3 background="images/admin/menu_bg.gif" align=center>
    <table cellspacing=1 cellpadding=2 class=m_table2>
    <tr><td height=3></td></tr>
    <tr><td><%response.write img_admin("s_arrow","")%>&nbsp;<a href='admins_event.asp'>管理日记</a></td></tr>
    <tr><td><%response.write img_admin("s_arrow","")%>&nbsp;<a href='admins_config_edit.asp' class=red2>配置管理</a></td></tr>
    <tr><td><%response.write img_admin("s_arrow","")%>&nbsp;<a href='admins_ip.asp'>IP锁管理</a></td></tr>	
    <tr><td><%response.write img_admin("s_arrow","")%>&nbsp;<a href='admins_config_skin.asp' class=red>模板配置</a></td></tr>
    <tr><td><%response.write img_admin("s_arrow","")%>&nbsp;<a href='admins_rss.asp'>RSS管理</a></td></tr>
    <tr><td><%response.write img_admin("s_arrow","")%>&nbsp;<a href='admins_sql.asp'>执行SQL</a></td></tr>
    <tr><td><%response.write img_admin("s_arrow","")%>&nbsp;<a href='admins_popedom.asp'>权限管理</a></td></tr>
    <tr><td><%response.write img_admin("s_arrow","")%>&nbsp;<a href='admins_menu.asp'>管理菜单</a></td></tr>
    <tr><td><%response.write img_admin("s_arrow","")%>&nbsp;<a href='admin_js.asp'>J&nbsp;&nbsp;S菜单</a></td></tr>
    <tr><td><%response.write img_admin("s_arrow","")%>&nbsp;<a href='admins_fso.asp'>文件菜单</a></td></tr>
<!--<tr><td><%response.write img_admin("s_arrow","")%>&nbsp;<a href='admins_server.asp'>服务器列表</a></td></tr>-->
    <tr><td height=3></td></tr>
    </table>
  </td></tr>
  <tr>
  <td class=m_end width=4><img height=2 width=4 src="images/admin/menu_endleft.gif"></td>
  <td width=* background="images/admin/menu_endbg.gif"></td>
  <td class=m_end width=4><img height=2 width=4 src="images/admin/menu_endright.gif"></td>
  </tr>
  </table>
<%
    response.write ukong
  end if
%>
  <table cellspacing=0 cellpadding=0 class=m_table>
  <tr>
  <td class=m_td width=4><img height=25 width=4 src="images/admin/menu_topleft.gif"></td>
  <td class=m_td width=* background="images/admin/menu_topbg.gif" align=center>〓 版本信息 〓</td>
  <td class=m_td width=4><img height=25 width=4 src="images/admin/menu_topright.gif"></td>
  </tr>
  <tr><td class=m_tr colspan=3 background="images/admin/menu_bg.gif" align=center>
    <table cellspacing=1 cellpadding=2 class=m_table1>
    <tr><td height=3></td></tr>
    <tr><td align=center><%response.write web_dim(1)%></td></tr>
    <tr><td align=center><a href='http://wwwg.6600.org' target=_blank><b><font face=Arial color=#CC3300>wwwg.66</font><font face=Arial>00.org</font></b></a></td></tr>
    <tr><td height=3></td></tr>
    </table>
  </td></tr>
  <tr>
  <td class=m_end width=4><img height=2 width=4 src="images/admin/menu_endleft.gif"></td>
  <td width=* background="images/admin/menu_endbg.gif"></td>
  <td class=m_end width=4><img height=2 width=4 src="images/admin/menu_endright.gif"></td>
  </tr>
  </table>
</body><%
end sub

sub admin_top()
%>
<html>
<head>
<title><%response.write web_dim(1)%> - 管理后台</title>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<style type=text/css>
<!--
body,p,td { font-family:Verdana, Arial, Helvetica, sans-serif, 宋体; font-size:9pt; color:#A0C0E0; }
body { }

a { color: #ededed; text-decoration: none; }
a:hover { color: #ffffff; text-decoration: underline; }
a.h_t { font-size:12pt; font-weight:bold; color: #ffffff; text-decoration: none; }
a.h_t:hover { font-size:12pt; font-weight:bold; color: #ffffff; text-decoration: underline; }
-->
</style>
</head>
</head>
<body topmargin=0 leftmargin=0>
<script language=javascript>
function admin_logout()
{
  var cf=window.confirm("您确定要退出管理后台吗？");
  if (cf)
  { return true; }
  else
  { return false; }
  
}
</script>
<table border=0 cellspacing=0 cellpadding=0 width='100%' height=46 background="images/admin/top_bg.gif">
<tr>
<td width="*" align=center>
  <table border=0 width='100%'>
  <tr>
  <td width=30></td>
  <td>
    <table border=0>
    <tr>
    <td><a href='./' target=_blank class=h_t><%response.write web_dim(1)%></a></td>
    <td width=20></td>
    <td>→ 欢迎 <font class=blue><b><%response.write session(session_for&"admines")%></b></font> 进入管理后台</td>
    </tr>
    </table>
  </td>
  <td align=right>
    <table border=0>
    <tr>
    <td></td>
    <td><%response.write img_admin("s_arrow_top","")%>&nbsp;<a href='admins_login.asp?action=logout' onclick="return admin_logout()" target="_top">退出管理</a></td>
    <td width=10></td>
    <td><%response.write img_admin("s_arrow_top","")%>&nbsp;<a href='javascript:;' onclick="javascript:parent.frame_main.re_load()">刷新</a></td>
    <td width=20></td>
    </tr>
    </table>
  </td>
  </tr>
  </table>
</td>
<td width=200><a href='http://wwwg.6600.org' target=_blank><img src='images/admin/top_cms.gif' border=0 width=200 height=46 alt='白城天空最广泛的信息港'></a></td>
</tr>
</table>
<%
end sub

sub admin_frame()
  call admin_title(0)
%>
<script language=javascript>
if (top.location!=self.location)
{
  top.location="./admin.asp"
}
</script>
</head>
<frameset rows="46,*" framespacing="0" border="0" frameborder="0">
  <frame name="frame_top" src="admin.asp?action=top" scrolling="no" noresize>
  <frameset cols="150,*">
    <frame name="frame_left" src="admin.asp?action=left" scrolling="yes" noresize target="frame_main">
    <frame name="frame_main" src="admin.asp?action=main" target="frame_main">
  </frameset>
  <noframes>
    <body topmargin="0" leftmargin="0">
    <p>此网页使用了框架，但您的浏览器不支持框架。请访问 <a href="<% response.write joekoe_cms.web_url %>"><% response.write joekoe_cms.web_name %></a></p>
    </body>
  </noframes>
</frameset>
<%
end sub

%>







