admin.asp

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

<!-- #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>