<!-- #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 2008 Ȩϵ֧")
%>
<tr>
<td width='20%'>ƷȨ</td>
<td width='80%'>Ȩ &copy; <a href='http://www.alicom.cn' target=_blank>ԴƼ޹˾</a></td>
</tr>
<tr>
<td>ٷ֧վ</td>
<td><a href='http://www.alicom.cn' target=_blank>ԴƼ޹˾</a>&nbsp;&nbsp;&nbsp;<a href='http://www.alicom.cn' target=_blank>http://www.alicom.cn/</a></td>
</tr>
<tr>
<td>ҵϵʽ</td>
<td><%response.write img_admin("s_email","")%>&nbsp;136813330@qq.com&nbsp;&nbsp;<%response.write img_admin("s_qq","")%>&nbsp;<a href='http://wpa.qq.com/msgrd?V=1&Uin=136813330&Exe=QQ&Site=http://www.alicom.cn&Menu=Yes' target=blank ><img src=' http://wpa.qq.com/pa?p=1:136813330:1' border=0></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;/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=136813330&Exe=QQ&Site=http://www.alicom.cn&Menu=Yes' target=blank><img src=' http://wpa.qq.com/pa?p=1:136813330: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>
<style type="text/css">
<!--
.STYLE1 {color: #0466CC}
-->
</style>
</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 width="150" cellpadding=0 cellspacing=0 class=m_table>
  <tr>
    <td width=150 height="25" align=center valign="middle" background="images/admin/m_bg1.gif" class=m_td onClick="javascript:left_menu('left_jk');"> Ĺ </td>
  </tr>
  <tr id=left_jk style="display:none;">
    <td class=m_tr colspan=3 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>
  
</table>
<%
    response.write ukong
  end if
%>
  <table width="150" cellpadding=0 cellspacing=0 class=m_table>
  <tr>
  <td height="25" colspan="3" align="center" valign="middle" background="images/admin/m_bg1.gif" class=m_td> 汾Ϣ </td>
  </tr>
  <tr><td colspan=3 align=center valign="middle" class=m_tr>
    <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://www.alicom.cn' target=_blank><b><font face=Arial color=#CC3300>WWW.</font><font face=Arial>Alicom.Cn</font></b></a></td>
    </tr>
    <tr><td height=3></td></tr>
    </table>
  </td></tr>
  <tr>
  <td class=m_end width=14><img height=2 width=4 src="images/admin/menu_endleft.gif"></td>
  <td width=64 background="images/admin/menu_endbg.gif"></td>
  <td class=m_end width=40><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://www.alicom.cn' 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="180,*">
    <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

%>